Главная страница
Навигация по странице:

  • Примеры задач с решением

  • Варианты заданий

  • программа. Программирование_Паскаль_ЛабРаб 1 семестр. Контроль обучения 4 Первое контрольное задание 5 Второе контрольное задание 31


    Скачать 0.69 Mb.
    НазваниеКонтроль обучения 4 Первое контрольное задание 5 Второе контрольное задание 31
    Анкорпрограмма
    Дата09.04.2023
    Размер0.69 Mb.
    Формат файлаdoc
    Имя файлаПрограммирование_Паскаль_ЛабРаб 1 семестр.doc
    ТипДокументы
    #1048084
    страница2 из 3
    1   2   3

    Второе контрольное задание



    Второе контрольное (текстовое) задание посвящено созданию программ с использованием массивов (одномерных и матриц), переменных строкового типа (строк) и множеств. В этих задачах полезно использовать подпрограммы. Во всех задачах строки вводятся пользователем с клавиатуры.

    Задание состоит из четырех задач, вам требуется составить программы на языке Паскаль. Требуется писать программы в рамках структурного программирования. В частности, запрещается использовать операторы перехода и метки.
    Примеры задач с решением
    ОДНОМЕРНЫЕ МАССИВЫ
    1. Дан массив чисел. Найти, сколько в нем пар одинаковых соседних элементов.
    Переменные:

    mas – массив чисел;

    n – размер массива;

    i – переменная цикла;

    k – количество одинаковых пар соседних элементов.
    Алгоритм решения задачи:

    1. вводим длину массива n, значение элементов массива и устанавливаем начальное значение k;

    2. последовательно просматриваем элементы и, если очередной mas[i] равен следующему mas[i+1], то увеличиваем значение k на единицу;

    3. выводим результат.


    const m=100;

    var mas : array [1..m] of integer;

    i, k, n : integer;

    begin

    write('Введите размер массива n=');

    readln(n);

    k:=0;

    for i:=1 to n do

    begin

    write('Введите элемент массива');

    readln(mas[i]);

    end;

    for i:=1 to n–1 do

    if mas[i]=mas[i+1] then k:=k+1;

    wrietln('Одинаковых пар соседних элементов ',k);

    end.
    2. Программа. Дано 100 целых чисел. Распечатать их в обратном порядке по 6 чисел в строке.
    const n=100; d=6;

    var x : array [1..n] of integer;

    i, k : integer;

    begin

    {ввод массива:}

    writeln('Введите массив из ', n,' чисел');

    for i:=1 to n do read(x[i]);

    {вывод массива по d чисел в строке:}

    k:=0; {номер числа в строке}

    for i:=n downto 1 do

    begin

    k:=k+1;

    write(x[i]:4);

    if k=d then

    begin

    k:=0; writeln

    end

    end;

    if k<>0 then writeln

    end.
    3. Сортировка слиянием
    const k=50; m=20; n=70; {n=k+m}

    var x : array [1..k] of real;

    y : array [1..m] of real;

    z : array [1..n] of real;

    i,p,j : integer;

    Элементы каждого из массивов x и y упорядочены по неубыванию. Объединить элементы этих двух массивов в один массив z так, чтобы они снова оказались упорядоченными по неубыванию.
    const k=50; m=20; n=70; {n=k+m}

    var x : array [1..k] of real;

    y : array [1..m] of real;

    z : array [1..n] of real;

    i, p, j : integer;

    begin

    writeln('Введите массив x');

    for i:=1 to k do read(x[i]);

    writeln;

    writeln('Введите массив y');

    for i:=1 to m do read(y[i]);

    writeln;

    writeln('Введенные Вами массивы');

    writeln('Массив x');

    for i:=1 to k do write(x[i]:7:3);

    writeln;

    writeln('Массив y');

    for i:=1 to m do write(y[i]:7:3);

    writeln;

    p:=1; {индекс очередного элемента из z}

    i:=1; {из х}

    j:=1; {из y}

    {пока есть нерассмотренные элементы и в x, и в y: }

    repeat if x[i]
    begin

    z[p]:=x[i]; i:=i+1

    end

    else

    begin

    z[p]:=y[j]; j:=j+1

    end;

    p:=p+1

    until (i>k)or(j>m);

    {один из массивов x или y исчерпан --> перепись в z

    оставшихся элементов другого массива:}

    if i>k {исчерпан массив x:}

    then repeat z[p]:=y[j]; j:=j+1; p:=p+1 until j>m

    else repeat z[p]:=x[i]; i:=i+1; p:=p+1 until i>k;

    writeln('Полученный массив: ');

    for i:=1 to n do write(z[i]:7:3);

    end.
    4. type shift=1..99;

    scale=array [1..100] of real;

    Описать процедуру move(s,k), которая преобразует шкалу s, циклически сдвигая ее элементы на k позиций влево, где k – параметр типа shift.
    type shift=1..99;

    scale=array [1..100] of real;

    var a:scale; m:shift;n,i:integer;

    procedure move( var s:scale; k:shift);

    var i:integer; t:scale; {вспомогательный массив}

    begin

    {t[n–k+1..n]:=s[1..k]:}

    for i:=1 to k do t[n–k+i]:=s[i];

    {t[1..n–k]:=s[k+1..n]:}

    for i:=k+1 to n do t[i–k]:=s[i];

    s:=t

    end;
    begin

    writeln('Введите размер массива');

    readln(n);

    writeln('Введите массив');

    for i:=1 to n do read(a[i]);

    writeln('Введите цикл сдвига <=', n–1);

    readln(m);

    writeln('Исходный массив');

    for i:=1 to n do write(a[i]:7:2);

    writeln;

    move(a,m);

    writeln('Полученный массив');

    for i:=1 to n do write(a[i]:7:2);

    writeln;

    end.


    МНОГОМЕРНЫЕ МАССИВЫ
    5. Дана матрица NM, состоящая из натуральных чисел. Выбрать в строках самые левые наименьшие элементы и поставить их в первый столбец.

    Для решения этой задачи нужно сначала найти самый левый минимальный элемент в каждой строке и запомнить его местоположение, а затем поменять его местами с элементом в первом столбце.
    Переменные:

    a – двумерный массив;

    n, m – количество строк и столбцов массива;

    i, j – переменные цикла;

    jm – столбец минимального элемента для каждой строки;

    min – текущий минимум.
    Алгоритм решения задачи:

    1. вводим размеры массива А и значения его элементов;

    2. просматриваем строки массива слева направо, ищем минимальное значение и запоминаем значения индексов;

    3. для каждой строки меняем местами минимальный элемент и элемент в первом столбце;

    4. выводим матрицу на экран.


    const t=100; s=100;

    var a : array [1..t,1..s] of integer;

    n, m, jm, i, j, min : integer;

    begin

    write('Введите количество строк n=');

    readln(n);

    write('Введите количество столбцов m=');

    readln(m);

    for i:=1 to n do

    begin

    write('Введите через пробел', m,'чисел');

    for j:=1 to m do

    read(a[i,j]);

    end;

    for i:=1 to n do

    begin

    min:= a[i,1];

    jm:=1;

    for j:=1 to m do

    if min > a[i,j]

    then

    begin

    jm:=j;

    min:=a[i,j];

    end;

    a[i,jm]:=a[i,1];

    a[i,1]:=min;

    end;

    for i:=1 to n do {вывод матрицы на экран в виде таблицы}

    begin

    for j:=1 to m do

    write(a[i,j]:4);

    writeln;

    end

    end.
    6. Дана квадратная матрица NN, состоящая из натуральных чисел. Зеркально отразить ее элементы относительно побочной диагонали. Вывести результат на экран.
    Рассмотрим матрицу 33 и посмотрим, что происходит с элементами при зеркальном отображении:

    A11 A12 A13 A33 A23 A13

    A21 A22 A23 <-> A32 A22 A12

    A31 A32 A33 A31 A21 A11

    Если считать, что после преобразования у нас появилась новая матрица B, то соответствие между элементами устанавливается следующим образом:

    B11 <-> A33

    B12 <-> A23

    B21 <-> A32

    B22 <-> A22 и т.д., т.е. B[I,J] <-> A[L,M]
    Внимательно изучив соответствие, можно утверждать, что для элементов матрицы NxM справедлива следующая система уравнений:

    I+M = N+1,

    J+L = N+1.

    Отсюда правило преобразования элементов выглядит следующим образом:

    B[I,J] = A[N+1–J,N+1–I].
    Переменные:

    a, b – двумерные массивы;

    m – количество строк и столбцов массива;

    i, j – переменные цикла;

    k– вспомогательная переменная.
    Алгоритм решения задачи:

    1. вводим размеры массива A и присваиваем значения его элементам;

    2. присваиваем значения элементам матрицы B по представленным выше формулам и выводим их на экран.


    Программа, решающая данную задачу, выглядит так:
    const n=100;

    var a,b : array [1..n] of integer;

    k, m, i, j : integer;

    begin

    write('Введите размер матрицы m=');

    readln(m);

    writeln('Исходная матрица');

    k:=1;

    for i:=1 to m do

    for j:=1 to m do

    begin

    a[i,j]:=k; k:=k+1;

    if j
    else writeln(a[i,j]:4)

    end;

    writeln('Матрица после преобразования');

    for i:=1 to m do

    for j:=1 to m do

    begin

    b[i,j]:= a[m+1–j, m+1–i];

    if j
    else writeln(b[i,j]:4)

    end;

    end.
    7. Вычислить: а) С = A + B
    Создадим две процедуры:

    tab_in(var a1 : mas) – для ввода элементов массива с клавиатуры. Параметр а1 – формируемый массив;

    tab_out(var b1 : mas) – для вывода массива на экран. Параметр b1 – имя выводимого массива.
    type mas=array [1..40,1..40] of real;

    vec=array[1..40] of real;

    var a,b,c : mas;

    x,y : vec;

    i, j, n, k : integer;

    r, s : real;

    procedure tab_in(var a1 : mas);

    var i, j : integer;

    begin

    for i:=1 to n do

    for j:=1 to n do

    read(a1[i,j]);

    writeln;

    end;
    procedure tab_out(var b1 : mas);

    var i,j:integer;

    begin

    for i:=1 to n do

    begin

    for j:=1 to n do

    write(b1[i,j]:7:3);

    writeln;

    end;

    end;
    begin

    writeln('Введите размер матрицы');

    readln(n);

    writeln('Введите матрицу A');

    tab_in(a);

    writeln('Введите матрицу B');

    tab_in(b);

    writeln('Матрица A');

    tab_out(a);

    writeln('Матрица B');

    tab_out(b);

    for i:=1 to n do

    for j:=1 to n do

    c[i,j]:=a[i,j]+b[i,j];

    writeln('Полученная матрица C=A+B');

    tab_out(c);

    end.
    б) y = A * x

    Основная программа
    begin

    writeln('Введите размер матрицы');

    readln(n);

    writeln('Введите матрицу A');

    tab_in(a);

    writeln('Введите вектор x');

    for i:=1 to n do read(x[i]);

    writeln;

    writeln('Матрица A');

    tab_out(a);

    writeln('Введенный вектор x');

    for i:=1 to n do write(x[i]:7:2);

    writeln;

    for i:=1 to n do

    begin

    s:=0;

    for j:=1 to n do

    s:=s+A[i,j]*x[j];

    y[i]:=s

    end;

    writeln('Полученный вектор y=A*x');

    for i:=1 to n do

    write (y[i]:7:3);

    writeln;

    end.
    в) С = A * B

    Основная программа
    begin

    writeln('Введите размер матрицы');

    readln(n);

    writeln('Введите матрицу A');

    tab_in(a);

    writeln('Введите матрицу B');

    tab_in(b);

    writeln('Матрица A');

    tab_out(a);

    writeln('Матрица B');

    tab_out(b);

    for i:=1 to n do

    for j:=1 to n do

    begin

    s:=0;

    for k:=1 to n do

    s:=s+a[i,k]*b[k,j];

    c[i,j]:=s;

    end;

    writeln('Полученная матрица C=A+B');

    tab_out(c);

    end.
    г) транспонированную матрицу B

    Основная программа
    begin

    writeln('Введите размер матрицы'); readln(n);

    writeln('Введите матрицу B'); tab_in(b);

    writeln('Матрица B'); tab_out(b);

    for i:=1 to n–1 do

    for j:=i+1 to n do

    begin

    r:=b[i,j]; b[i,j]:=b[j,i]; b[j,i]:=r;

    end;

    writeln;

    writeln('Полученная транспонированная матрица B');

    tab_out(b);

    end.
    СТРОКОВЫЙ ТИП И МНОЖЕСТВА
    8. Вывести в одну строку ABBCCCDDDDE .... ZZ...Z.
    Переменные:

    i – переменная цикла; определяет, какая буква выводится;

    k – количество повторений буквы;

    j – переменная цикла.
    Алгоритм решения задачи:

    1. цикл for i:='A' to 'z' do определяет, какую букву выводим на печать;

    2. внутренний цикл for j:=1 to k do определяет, сколько раз будет печататься буква;

    3. выводим заданную букву k раз на экран;

    4. после вывода всех букв закрываем строку оператором writeln.


    var i : char;

    k,j : integer;

    begin

    k:=1;

    for i:= 'A' to 'Z' do

    begin

    for j:=1 to k do write(i);

    k:=k+1;

    end;

    writeln;

    end.
    9. Дана строка символов. Удалить из нее все знаки препинания.

    Переменные:

    i – переменная цикла;

    L – длина строки;

    str – строка текста;

    str1 – вспомогательная строка;

    m – множество знаков препинания.


    Алгоритм решения задачи:

    1. задаем значение множества m – множества знаков препинания;

    2. вводим строку str с клавиатуры;

    3. цикл for i:=1 to l do осуществляет построение вспомогательной строки без знаков препинания: берем отдельный символ строки и проверяем, является ли он знаком препинания. Если да, то присоединяем этот символ к новой вспомогательной строке. Если нет, то переходим к следующему элементу строки;

    4. первоначальную строку заменяем на вспомогательную;

    5. выводим сроку на экран.


    var str, str1 : string;

    L, i : integer;

    m : set of char;

    begin

    m:=['.', ',', '!', ':', ';', '?', '-'];

    writeln('Введите текст');

    readln(str); L:=length(str); str1:='';

    for i:=1 to L do

    if not(str[i] in m) then str1:=str1+str[i];

    str:=str1;

    writeln('Преобразованный текст ', str);

    end.
    10. Дана строка символов. Выделить подстроку между первой и последней точкой.
    Переменные:

    i – номер позиции, которая соответствует точке;

    j – местоположение первой точки;

    m – местоположение последней точки;

    str – строка текста;

    s1 – вспомогательная переменная.
    Алгоритм решения задачи:

    1. вводим строку str и присваиваем значение вспомогательной переменной s1:=str;

    2. определяем местоположение первой точки в тексте; если точка есть, то вырезаем из s1 текст до нее;

    3. ищем последнюю точку в цикле while i<>0 do; если она есть, то значение переменной m указывает на ее местоположение;

    4. в зависимости от присутствия точек выделяем подстроку s1:=copy(str,j+1,m–j–1) и выводим результат на экран.


    var str, s1 : string;

    i, m, j : integer;

    begin

    writeln('Введите текст');

    readln(str);

    s1:=str; i:=pos('.',s1); j:=i; m:=0;

    if (i<>0) then

    begin

    while i<>0 do

    begin delete(s1,1,i); m:=m+i; i:=pos('.',s1); end;

    if m<>j then

    begin

    s1:=copy(str,j+1,m–j–1);

    writeln('Часть текста между 1-й и последней точкой');

    writeln(s1);

    end

    else writeln('В тексте только одна точка');

    end

    else writeln('В тексте нет ни одной точки');

    end.

    11. Дана строка символов. Определить, является ли она записью десятичного числа, кратного трем.
    Необходимо удостовериться, что введенная строка состоит только из цифр, т.е. может быть преобразована в десятичное число. Само преобразование цифры в число сделать очень просто. Поскольку коды символьных переменных – цифр – следуют один за другим, то функция ord в выражении ord(s1[i])–ord('0') поможет нам сделать это.
    Переменные:

    i – переменная цикла;

    s1 – строка цифр;

    m – длина строчки;

    k – счетчик цифр.
    Алгоритм решения задачи:

    1. вводим строку s1;

    2. организуем в строке поиск цифр до тех пор, пока не встретим конец строчки или не обнаружим наличие ошибки в арифметическом выражении;

    3. если встречается цифра, то добавляем ее к общей сумме цифр;

    4. после определения суммы цифр, определяем, кратна ли она на трем;

    5. в зависимости от полученного результата выводим ответ на экран.


    var s1 : string;

    k, i, m : integer;

    begin

    writeln('Введите строку');

    readln(s1);

    m:=length(s1);

    k:=0; i:=1;

    repeat

    case s1[i] of

    '0'..'9' : k:=k+(ord(s1[i])–ord('0'));

    ' ' : ;

    else k:=–1;

    end;

    i:=i+1;

    until (i>m) or (k<0);

    if k mod 3 = 0

    then writeln('Это десятичное число, кратное 3')

    else writeln('Это не десятичное число, кратное 3')

    end.

    12. Дана строка символов. Группы символов в ней между группами пробелов считаются словами. Посчитать, сколько слов содержит данная строка.
    Переменные:

    i – вспомогательная переменная;

    s – строка текста;

    k – счетчик слов.
    Алгоритм решения задачи:

    1. вводим строку s;

    2. на каждом шаге внешнего цикла отыскиваем очередное слово в строке и увеличиваем счетчик слов;

    3. выводим результат на экран.


    var s: string; i,k: integer;

    begin

    writeln('Введите строку');

    readln(s);

    k:=0; i:=1;

    while i<=length(s) do

    begin

    {пропускаем пробелы}

    while (s[i]=' ') and (i<=length(s)) do i := i+1;

    if i<=length(s) then k := k+1;

    {ищем новый пробел}

    while (s[i]<>' ') and (i<=length(s)) do i := i+1;

    end;

    writeln('количество слов =',k)

    end.
    13. Дана строка символов. Группы символов в ней между группами пробелов считаются словами. Определить длину самого короткого и самого длинного слова.

    Переменные:

    i – индекс очередного символа в строке;

    s – строка текста;

    beginStr и endStr – начало и конец слова;

    len – длина слова;

    max – длина наибольшего слова;

    min – длина наименьшего слова.
    Алгоритм решения задачи:

    1. вводим строку s;

    2. устанавливаем начальные значения max и min;

    3. организуем внешний цикл для поиска очередного слова в строке;

    4. найдя слово, определяем его длину и при необходимости корректируем max и min;

    5. выводим результат на экран.


    var s:string;

    i,min,max,beginStr,endStr,len:integer;

    begin

    writeln('Введите строку');

    readln(s);

    max:=0; min:=255;

    i:=1;

    while i<=length(s) do

    begin

    {пропускаем пробелы}

    while (s[i]=' ') and (i<=length(s)) do i:=i+1;

    if i<=length(s) then begin

    beginStr:=i;

    {нашли начало слова, ищем его конец}

    while (s[i]<>' ') and (i<=length(s)) do

    i:=i+1;

    endStr:=i–1;

    writeln(beginStr,'–',endStr);

    len:=endStr–beginStr+1;

    if len>max then max:=len;

    if len
    end

    end;

    writeln('длина самого длинного слова =',max);

    writeln('длина самого короткого слова =',min)

    end.
    14. Дана строка. Преобразовать строку, заменив в ней каждую группу стоящих рядом точек одной точкой.
    Переменные:

    s – строка текста.
    Для решения задачи:

    1. вводим строку s;

    2. найдем пару стоящих рядом точек, удалим одну из них; повторим поиск. И так до тех пор, пока в строке не окажется ни одной такой пары точек;

    3. выводим результат на экран.


    var s : string;

    begin

    writeln('Введите строку');

    readln(s);

    while pos('..', s) <> 0 do delete (s, pos('..', s), 1);

    writeln('Полученная строка : ', s);

    end.
    15. Присвоить литерным переменным с2, с1 и с0 соответственно левую, среднюю и правую цифры трехзначного числа k.
    var c0, c1, c2 : char;

    n0, k, d : integer;

    begin

    writeln('Введите трехзначное число');

    readln(k);

    n0:=ord('0');

    d:=k div 100; c2:=chr(n0+d);

    d:=k mod 100 div 10; c1:=chr(n0+d);

    d:=k mod 10; c0:=chr(n0+d);

    writeln('c2= ', c2);

    writeln('c1= ',c1);

    writeln('c0= ',c0);

    end.
    16. Используя только литерный ввод, т.е. процедуру readln(c), где с – литерная переменная, ввести непустую последовательность цифр, перед которой может находиться знак «+» или «–» и за которой следует пробел, и, получив соответствующее число, присвоить его целой переменной k.
    var c : char;

    sign, n0, k : integer;

    begin

    {определение знака числа:}

    sign:=1;

    readln(c);

    if c='–' then

    begin sign:=–1; readln(c) end

    else if c='+' then readln(c);

    {чтение цифр (первая – в c) и вычисление абсолютной величины числа k по схеме Горнера:}

    n0:=ord('0'); k:=0;

    repeat

    k:=10*k+ord(c)–n0;

    readln(c)

    until c=' ';

    {учет знака:}

    k:=sign*k; writeln(k);

    end.

    17. Программа. Напечатать заданную непустую строку:

    а) удалив из нее все цифры и удвоив знаки «+» и «–»:
    var s : string;

    i : integer;

    begin

    writeln('Введите строку:');

    readln(s);

    for i:=1 to length(s) do

    if (s[i]='+')or(s[i]='–') then write(s[i],s[i])

    else if (s[i]<'0')or(s[i]>'9') then write(s[i]);

    writeln

    end.
    б) удалив из нее все знаки «+», непосредственно за которыми идет цифра:
    var a, b : char; {a – очередная литера строки, b – следующая}

    s : string;

    i : integer;

    begin

    writeln('Введите строку:');

    readln(s);

    for i:=1 to length(s) do

    begin

    a:=s[i];

    if a<>'+' then write(a)

    else if i
    b:=s[i+1];

    if (b<'0') or (b>'9') then write(a)

    end

    else write(a);

    end;

    writeln

    end.
    МНОЖЕСТВА
    18. type str=string[100];

    Описать функцию count(s), подсчитывающую общее количество цифр и знаков '+', '–' и '*', входящих в строку s.
    Переменные:

    а) в функции count:

    s – строка (формальный параметр);

    i – счетчик цикла (локальная переменная);

    k – общее количество цифр и знаков ‘+’, ‘*’, ‘–‘ в заданной строке (локальная переменная);

    б) в основной программе:

    s1 – введенная строка (локальная переменная);

    k1 – общее количество цифр и знаков ‘+’, ‘*’, ‘–‘ в заданной строке s1 (фактический параметр).

    Алгоритм решения задачи:

    1. создаем функцию count, подсчитывающую общее количество цифр и знаков ‘+’, ‘*’, ‘–‘ в заданной строке;

    2. вводим строку s1;

    3. вызываем функцию count и выводим значение счетчика k1 на экран;

    4. завершаем работу программы.


    type str=string[100];

    var s1 : str;

    k1 : integer;

    function count(var s:str) : integer;

    var i, k : integer;

    begin

    k:=0;

    for i:=1 to length(s) do if s[i] in ['0'..'9', '+', '–', '*'] then k:=k+1;

    count:=k

    end;
    begin

    writeln('Введите строку');

    readln(s1);

    k1:=count(s1);

    writeln('Количество цифр и знаков – ', k1:5);

    end.
    19. type M=set of 0..99;

    Описать функцию card(A), подсчитывающую количество элементов множества A типа M (ноль используйте как прекращение ввода). (Например, card([5,8,23])=3.)
    Переменные:

    а) в функции card:

    A – множество (формальный параметр);

    p – счетчик цикла от 0 до 99 (локальная переменная);

    k – количество элементов множества А (локальная переменная);

    б) в основной программе:

    x – введенное число (локальная переменная);

    b – созданное множество (локальная переменная);

    k1 – количество элементов в созданном множестве (фактический параметр).
    Алгоритм решения задачи:

    1. создаем функцию card, подсчитывающую количество элементов множества;

    2. организуем пустое множество;

    3. в цикле repeat … until вводим числа до тех пор, пока не ввели 0, и дописываем их во множество;

    4. вызываем функцию card и выводим значение счетчика k1 на экран;

    5. завершаем работу программы.


    type M=set of 0..99;

    var b : m;

    k1, x : integer;

    function card(A:M) : integer;

    var p,k : integer;

    begin

    k:=0;

    for p:=0 to 99 do if p in A then k:=k+1;

    card:=k

    end;
    begin

    b:=[ ];

    repeat

    write('Введите число >0<=99 – ');

    readln(x); b:=b+[x];

    until x=0;

    k1:=card(b);

    writeln('Количество различных элементов множества', k1);

    end.
    20. Программа. Дана строка из строчных латинских букв. Напечатать первые вхождения букв в текст, сохраняя их исходный взаимный порядок.
    Переменные:

    let – множество малых латинских букв;

    c – очередной символ строки;

    s – введенная строка;

    i – переменная цикла.
    Алгоритм решения задачи:

    1. организуем пустое множество let;

    2. вводим строчку s;

    3. организуем цикл, в котором просматриваем символы строки s до тех пор, пока не встретим ‘.’, и проверяем, входит ли этот символ во множество let (т.е. символ – малая латинская буква);

    4. если очередной символ строки не входит во множество let, то этот символ встретился впервые; выводим его на экран и дописываем во множество;

    5. завершаем работу программы.


    var

    let : set of 'a'..'z';

    s : string; c : char; i : integer;

    begin

    let:=[ ]; {множество букв в рассмотренной части текста}

    readln(s);

    i:=1;

    while s[i]<>'.' do

    begin if not(s[i] in let) then {1-е вхождение}

    begin write(s[i]); c:=s[i]; let:=let+[c] end;

    i:=i+1;

    end;

    writeln

    end.

    Варианты заданий


    Вариант 1

    Задача 1.

    Даны целые числа a1, a2, ..., an . Все члены последовательности с четными номерами, предшествующие первому по порядку члену со значением max (a1, a2, ..., an), домножить на max (a1, a2, ..., an).
    Задача 2

    Элемент матрицы назовем седловой точкой, если он является наименьшим в своей строке и одновременно наибольшим в своем столбце или, наоборот, является наибольшим в своей строке и наименьшим в своем столбце. Для заданной целой матрицы размером NxM напечатать индексы всех ее седловых точек.

    Указание: определите булевскую функцию f(i,j) для определения, является ли данный элемент с индексами i и j седловым.
    Задача 3

    Для заданных трех строк S1, S2 и S3 определить, какая из них является палиндромом. Назовем строку палиндромом, если его запись читается одинаково с начала и с конца (как, например, ‘казак’, ‘алла’, ‘fffjjjfff’). Указание: определить булевскую функцию f(s) для проверки, является ли строка s палиндромом. Результатом должен быть ответ «да» или «нет».
    Задача 4

    Спортлото: 6 из 49. Составьте программу, в которой загадываются, иначе говоря, создаются 6 разных чисел, значения которых никак не связаны друг с другом, а величина лежит в интервале от 1 до 49.

    Указание. Для решения задачи используйте множества. Выражение random(49)+1 дает случайное целое число в интервале от 1 до 49.



    Вариант 2

    Задача 1

    Даны целые числа a1, a2, ..., an. Наименьший член последовательности a1, a2, ..., an заменить целой частью среднего арифметического всех членов, остальные члены оставить без изменения. Если в последовательности несколько членов со значением min(a1, a2, ..., an), то заменить последний по порядку.
    Задача 2

    var k : integer;

    c : array[1..n, 1..m] of char;

    Определить k – количество различных элементов массива c (т.е. повторяющиеся элементы считать один раз).

    Указание: для хранения счетчиков для всех символов использовать массив типа array[char] of integer.
    Задача 3

    Для заданных трех строк S1, S2 и S3 определить, какая из них является десятичной записью числа, кратного 3.

    Указание: строка может быть любой длины, поэтому переводить строку целиком в число не рекомендуется. Вспомните и используйте другой метод определения кратности числа 3.
    Задача 4

    В возрастающем порядке напечатать все целые числа из диапазона 1..255, представимые в виде n2 + m2, где m, n>=0.

    Указание. Для решения задачи используйте множества.


    Вариант 3

    Задача 1

    Даны две последовательности по n целых чисел в каждой. Найти наименьшее среди тех чисел первой последовательности, которые не входят во вторую последовательность (считая, что хотя бы одно число есть).

    Указание: определите булевскую функцию f(x,mas), которая проверяет, входит ли элемент x в массив mas.
    Задача 2

    var k : integer;

    c : array[1..n, 1..m] of integer;

    Определить k – количество «особых» элементов массива c, считая элемент «особым», если в его строке слева от него находятся элементы, меньшие его, а справа – большие.

    Указание: определите булевскую функцию f(x), которая проверяет, является ли элемент x «особым».
    Задача 3

    Для заданных трех строк S1, S2 и S3 напечатать те латинские буквы, которые входят только в одну из этих строк.

    Указание: например, ввели строки S1 – ‘asfgsas’, S2 – ‘qweasdyu’, S3 – ‘mnbqwef’. Ответом должно служить следующее: ‘Только в первую строку входят буквы – g’, ‘Только во вторую строку входят буквы – dyu’, ‘Только в третью строку входят буквы – mnb’.
    Задача 4

    Дана строка. В алфавитном порядке напечатайте (по разу) все малые латинские буквы, входящие в эту строку ровно один раз.

    Указание: решение задачи простое, если вы будете использовать множества.


    Вариант 4

    Задача 1

    Даны натуральное число m и действительные a1, a2, ..., an (числа a1, a2, ..., an попарно различны, m<=n). В последовательности a1, a2, ..., an поменять местами наибольший член и член с номером m.
    Задача 2

    Дана матрица целых чисел размером MxN. Найти номера строки и столбца наибольшего элемента матрицы.
    Задача 3

    Даны две строки S1 и S2. Создать строку, состоящую из латинских букв, не принадлежащих какой-либо строке S1 и S2.

    Указание: результирующая строка должна содержать те латинские буквы, которых вообще нет ни в строке S1, ни в строке S2.
    Задача 4

    Дана строка. В алфавитном порядке напечатайте все малые латинские буквы, не входящие в эту строку.

    Указание: решение задачи простое, если вы будете использовать множества.


    Вариант 5

    Задача 1

    Даны действительные числа a1, a2, ..., an, b1, b2, ..., bn.

    Вычислить (a1 + bn) * (a2 + bn–1)* ... *(an + b1).
    Задача 2

    var A : array [1..4,1..5] of integer;

    b : array [1..4] of boolean;

    По массиву A получить массив b, присвоив его k-му элементу значение true, если элементы k-й строки массива A упорядочены по убыванию, и значение false иначе.

    Указание: определите булевскую функцию f(i), проверяющую, является ли i-ая строка матрицы упорядоченной по убыванию.
    Задача 3

    Даны две строки S1 и S2. Создать строку, состоящую из символов, входящих либо в S1, либо в S2, но не в обе сразу.
    Задача 4

    Спортлото: 5 из 36. Составьте программу, в которой загадываются, иначе говоря, создаются 5 разных чисел, значения которых никак не связаны друг с другом, а величина лежит в интервале от 1 до 36.

    Указание: решение задачи простое, если вы будете использовать множества. Выражение random(36)+1 дает случайное целое число в интервале от 1 до 36.


    Вариант 6

    Задача 1

    Даны координаты n точек на плоскости: x1, y1, ..., xn, yn. Найти номера двух точек, расстояние между которыми наибольшее (считать, что такая пара точек единственная).
    Задача 2

    var A : array [1..4,1..5] of integer;

    b : array [1..4] of boolean;

    По массиву A получить массив b, присвоив его k-му элементу значение true, если k-ая строка массива A симметрична, и значение false иначе.

    Указание: определите булевскую функцию f(i), проверяющую, является ли i-ая строка матрицы симметричной.
    Задача 3

    Исключить из данной строки группы символов, расположенные между скобками ( , ). Сами скобки тоже должны быть исключены.

    Указание: предполагается, что внутри каждой пары скобок нет других скобок.


    Задача 4

    Напечатать все натуральные числа от 10 до 32767, в десятичной записи которых нет одинаковых цифр.

    Указание: решение задачи простое, если вы будете использовать множества. Необходимо для каждого числа создавать множество, состоящее из цифр числа. При этом проверять: если очередная цифра числа есть уже во множестве, то такое число не надо выводить на экран.


    Вариант 7

    Задача 1

    const n = ...;

    var s : array [1..n] of integer;

    Напечатать те элементы массива s, которые являются полными квадратами (1, 4, 9, 16, 25,...).

    Подсказка. Число k является полным квадратом, если выполнено равенство k = (trunc( ))2.
    Задача 2

    Определить, является ли заданная целая квадратная матрица n-го порядка магическим квадратом, т.е. такой, в которой суммы элементов во всех строках и столбцах одинаковы.

    Пример магического квадрата:

    0 1 2 3 4

    1 2 3 4 0

    2 3 4 0 1

    3 4 0 1 2

    4 0 1 2 3
    Задача 3

    Проверить, правильно ли в данной строке расставлены круглые скобки (т.е. находится ли справа от каждой открывающей скобки соответствующая закрывающая скобка, а слева от каждой закрывающей – соответствующая открывающая). Ответ – «да» или «нет».

    Используйте следующий алгоритм:

    На каждом шаге цикла во время просмотра строки символов текущее значение количества открывающих скобок больше или равно текущему значению количества закрывающих скобок.

    После окончания цикла количество открывающих скобок равно количеству закрывающих скобок.

    Задача 4

    Дана строка. В алфавитном порядке напечатайте (по разу) все малые латинские буквы, входящие в эту строку более одного раза.

    Указание: решение задачи простое, если вы будете использовать множества.


    Вариант 8

    Задача 1

    Дана последовательность из n целых чисел. Определить количество инверсий в этой последовательности (т.е. таких пар элементов, в которых большое число находится слева от меньшего: x i > x j при i < j).
    Задача 2

    var k : integer;

    C : array [1..n,1..m] of integer;

    Определить k – количество «особых» элементов массива C, считая элемент особым, если он больше суммы остальных элементов своего столбца.

    Указание: определите булевскую функцию f(i,j) для проверки, является ли элемент C[i,j] особым.
    Задача 3

    В заданном предложении найти пару слов, из которых одно является обращением другого.

    Указание: воспользуйтесь массивом строк для хранения слов.
    Задача 4

    Дана строка. В алфавитном порядке напечатайте (по разу) все строчные латинские согласные буквы, входящие в эту строку.

    Указание: гласные буквы – а, e, i, o, u; остальные – согласные. Решение задачи простое, если вы будете использовать множества.


    Вариант 9

    Задача 1

    Определить булевскую функцию, проверяющую на равенство два массива. Массивы считаются в данном случае равными, если они равны как множества, т.е. содержат одинаковые элементы, быть может, в другом порядке.

    Указание: определите булевскую функцию f(x,m), проверяющую входит ли элемент x в массив m.

    Задача 2

    type вектор = array [1..n] of integer; (n – четно)

    матрица = array [1..n] of вектор;

    var A : матрица; x : вектор;

    В матрице A поменять местами 1-ю и 2-ю строки, 3-ю и 4-ю строки,..., (n–1)-ю и n-ю строки (воспользоваться x как вспомогательным массивом).
    Задача 3

    Определить, является ли заданная строка правильной записью вещественного числа (возможно, со знаком, а также с пробелами спереди и/или сзади).

    Указание: вещественное число может быть представлено либо в виде числа с фиксированной десятичной точкой (–214.78), либо в виде числа с плавающей десятичной точкой (–2.1478Е+02).
    Задача 4

    Дана строка символов. Подсчитайте количество различных латинских малых букв, входящих в данную строку.

    Указание: решение задачи простое, если вы будете использовать множества.


    Вариант 10

    Задача 1

    Даны целые числа a1, a2, ..., an, каждое из которых отлично от нуля. Если в последовательности отрицательные и положительные члены чередуются (+, –, +, –,.... или –, +, –, +,...), то напечатать исходную последовательность. Иначе напечатать все отрицательные члены последовательности, сохранив порядок их следования.
    Задача 2

    var A : array [1..6,1..6] of boolean;

    B : array [1..5,1..5] of boolean;

    n,k : 1..6;

    Получить массив B из массива A удалением n-ой строки и k-го столбца.
    Задача 3

    Дана строка S. Каждую подстроку длиной n > 1, состоящую из одинаковых символов, заменить на подстроку из тех же символов в количестве 2*n штук.

    Например, дана строка ‘kjhhsdaaa’. Необходимо получить и вывести на зкран строку: ‘kjhhhhsdaaaaaa’.

    Задача 4

    Дана строка. В алфавитном порядке напечатайте (по разу) все большие латинские гласные буквы, входящие в эту строку.

    Указание: гласные буквы – а, e, i, o, u; остальные – согласные. Решение задачи простое, если вы будете использовать множества.


    Вариант 11

    Задача 1

    Даны действительные числа a1, a2, ..., an. Если в результате замены отрицательных членов последовательности a1, a2, ..., an их квадратами члены будут образовывать неубывающую последовательность, то получить сумму членов исходной последовательности; в противном случае получить их произведение.
    Задача 2

    const n =..;

    var A,B,C : array [1..n,1..n] of real;

    Вычислить С = (A+B)2 (сумма двух матриц A и B возводится в квадрат).

    Указание: определите процедуру с параметрами для сложения матриц и процедуру с параметрами для возведения матрицы в квадрат.
    Задача 3

    Для заданной строки определить длину содержащейся в ней максимальной подстроки, не имеющей латинских букв.
    Задача 4

    Дана строка из строчных латинских букв. Напечатайте все буквы, входящие в текст не менее двух раз.

    Указание. Просматривая в цикле символы текста, формируйте два множества: одно содержит уже просмотренные символы, другое наполняется теми элементами, которые входят в первое множество.


    Вариант 12

    Задача 1

    const n = ...;

    var x, y : array [1..n] of real;

    Дано k (1 <= k <= n–1). Преобразовать массив x по следующему правилу (воспользоваться массивом y как вспомогательным): элементы массива x циклически сдвинуть на k позиций влево.

    Подсказка: определить процедуру для сдвига массива на 1 позицию влево и применить ее k раз.
    Задача 2

    var A : array [1..n,1..m] of real;

    x : array [1..m] of real;

    Заполнить массив A по следующему правилу: A[i , j] = (x[ j ])i .

    Подсказка: ab = .
    Задача 3

    Дана строка S и дано натуральное n. Удалить из строки S все группы длиной n подряд стоящих одинаковых символов.

    Указание: если ввести строку, например, ‘kjhdahhhasaaaaa’, а значение n ввести равное 2, то необходимо получить ‘kjhdahasaaa’.
    Задача 4

    Дана строка. Определить, каких букв больше в этом тексте: латинских строчных гласных или согласных.

    Указание: гласные буквы – а, e, i, o, u; остальные – согласные. Решение задачи простое, если вы будете использовать множества.


    Вариант 13

    Задача 1

    По заданной квадратной матрице размером 10x10 построить вектор длиной 19, элементы которого – максимумы элементов диагоналей, параллельных главной диагонали.
    Задача 2

    var A : array [1..n,1..n] of real;

    Найти сумму элементов из области матрицы А, отмеченной символом '*' (диагонали входят в выделенную область):

    * * * * * * *

    0 * * * * * 0

    0 0 * * * 0 0

    0 0 0 * 0 0 0

    0 0 * * * 0 0

    0 * * * * * 0

    * * * * * * *


    Задача 3

    В данной строке найти самую длинную подстроку, состоящую из одинаковых символов.
    Задача 4

    Дана строка. В алфавитном порядке напечатайте (по разу) все малые латинские буквы, входящие в эту строку ровно два раза.
    Указание: решение задачи простое, если вы будете использовать множества.

    Заведите три множества X1, X2 и X3 (сначала эти множества пустые). И в цикле просмотрите все символы из введенной строки. С каждым символом – маленькой латинской буквой  выполняйте следующие действия:

    1. Если этого символа нет в X1, то поместите его туда (после окончания цикла множество X1 содержит все символы из строки).

    2. Если этот символ есть в X1 и нет в X2, то поместите этот символ в X2 (после окончания цикла множество X2 содержит все символы из строки, которые там встречаются более одного раза).

    3. Если этот символ есть в X1 и в X2, то поместите этот символ в X3 (после окончания цикла множество X3 содержит все символы из строки, которые там встречаются более двух раз).

    После окончания цикла распечатайте в алфавитном порядке все элементы из разности множеств X2–X3.

    Это будет ответ.

    (Используйте цикл

    for c:=’a’ to ‘z’ do

    если c входит в X2–X3, то печать c. )


    Вариант 14

    Задача 1

    Напечатать величины a1, a2, ..., an, где a0 заданное целое число,

    ai = при i = 1, 2, ... n. [i/2] означает целую часть числа i/2.

    Задача 2

    Даны натуральное n и (построчно) элементы квадратной вещественной матрицы А четвертого порядка. Вычислить n-ю степень этой матрицы (A1 = A; A2 = A*A; A3 = A2 * A и т.д.). Указания: 1. Определите процедуру mult(a,b,c) для умножения матриц (a*b = c). 2. Для вычисления n-ой степени матрицы поступайте так же, как при вычислении в цикле n-ой степени числа, но вместо умножения чисел используйте процедуру mult.
    Задача 3

    Для заданных трех строк S1, S2 и S3 определить, какая из них является десятичной записью числа, кратного 3.

    Указание: строка может быть любой длины, поэтому переводить строку целиком в число не рекомендуется. Вспомните и используйте другой метод определения кратности числа 3.
    Задача 4

    Дана строка. В алфавитном порядке напечатайте (по разу) все малые латинские гласные буквы, входящие в эту строку ровно 3 раза.

    Указание: гласные буквы – а, e, i, o, u; остальные – согласные. Решение задачи простое, если вы будете использовать множества.


    Вариант 15

    Задача 1

    Даны действительные числа a1, a2, ..., an, an , ... , a2n . Получить max (a1 + a2n , a2 + a2n – 1, ... , an + an+1 ); min(a1 * an, a2 * an+1, ... , an+1 * a2n ).
    Задача 2

    var A : array [1..n,1..n] of real; (n–нечетно)

    Найти сумму элементов из области матрицы А, отмеченной символом ' * ':

    1 n

    0 0 0 * 0 0 0

    0 0 * * * 0 0

    0 * * * * * 0

    * * * * * * *

    0 * * * * * 0

    0 0 * * * 0 0

    n 0 0 0 * 0 0 0
    Задача 3

    Дана строка S и дано натуральное n. Удалить из строки S все группы длиной n подряд стоящих одинаковых символов.

    Указание: если ввести строку, например, ‘kjhdahhhasaaaaa’, а значение n ввести равное 2, то необходимо получить ‘kjhdahasaaa’.
    Задача 4

    Напечатать все натуральные числа от 10 до 32767, в десятичной записи которых нет одинаковых цифр.

    Указание: решение задачи простое, если вы будете использовать множества. Необходимо для каждого числа создавать множество, состоящее из цифр числа. При этом проверять: если очередная цифра числа есть уже во множестве, то такое число не надо выводить на экран.


    1   2   3


    написать администратору сайта