ответить на вопросы, хотя бы на какие сможете Задание 1
Вопрос:
Какие служебные слова применяются для записи цикла с постусловием
Выберите несколько из 4 вариантов ответа:
1) End 3) Repeat
2) Until 4) Begin
Задание 2
Вопрос:
Как найти элемент массива с определенным значением?
Выберите один из 3 вариантов ответа:
1) Отсортировать массив и выбрать максимальный индекс.
2) Перебирать элементы массива пока они не закончатся или пока не будет найден искомый.
3) Выбрать один элемент массива, предположить его искомым и сравнить с оставшимися, меняя в процессе предполагаемый искомый элемент.
Задание 3
Вопрос:
Установите верный порядок следования команд при поиске в массиве из 50 элементов, элемента равного k
Укажите порядок следования всех 4 вариантов ответа:
_1_ if a[i]=k then writeln (i); _2_ while (a[i]<>k) and (i<50) do
_1_ i:=1; __ i:=i+1;
Задание 4
Вопрос:
Какая команда пропущена в данном участке программы, отвечающем за поиск максимального элемента массива. Запишите команду без пробелов.
r:=1;
for i:=2 to n do
if a[i]>a[r]
then ...
Запишите ответ:
Задание 5
Вопрос:
Запишите без пробелов команду, которая пропущена в данном алгоритме сортировки массива по убыванию методом пузырька.
p:=false;
while p=false do
begin
...
for i:=1 to n-1 do
if a[i] then begin
p:=a[i];
a[i]:=a[i+1];
a[i+1]:=p;
end;
end;
Запишите ответ:
Задание 6
Вопрос:
Какое служебное слово пропущено в данной записи цикла с постусловием?
repeat
i:=i-1;
... i=0;
Запишите ответ:until
Задание 7
Вопрос:
Как называется описанный метод сортировки по возрастанию?
Проходя по массиву, ищем два соседних элемента, которые расположены не по возрастанию. Найдя такие элементы, меняем их местами. Продолжаем до тех пор, пока за весь проход по массиву не будет сделано ни одной перестановки.
Выберите один из 4 вариантов ответа:
1) Метод перебора
2) Метод пузырька
3) Метод выбора
4) Метод последовательных перестановок
Задание 8
Вопрос:
Что такое сортировка?
Выберите один из 3 вариантов ответа:
1) Изменение индексов элементов массива
2) Изменение порядка следования элементов в массиве в соответствии с определенным признаком
3) Изменение значений элементов массива
Задание 9
Вопрос:
Какие существуют типы задач на поиск элементов в массиве?
Выберите несколько из 4 вариантов ответа:
1) Удаление элемента массива
2) Найти элемент с указанным значением
3) Добавление элемента
4) Найти максимальный или минимальный элемент
Задание 10
Вопрос:
Установите верный порядок следования команд при сортировке массива из 10 элементов по возрастанию методом выбора.
Укажите порядок следования всех 7 вариантов ответа:
__ a[i]:=a[j];
__ for i:=j+1 to 10 do
__ a[j]:=p;
__ p:=a[i];
__ if a[j] __ for j:=1 to 9 do
__ end;
const
ch_1: array[1..19] of string = ('один', 'два', 'три', 'четыре', 'пять', 'шесть','семь', 'восемь', 'девять', 'десять', 'одиннадцать', 'двенадцать', 'тринадцать','четырнадцать', 'пятнадцать', 'шестнадцать', 'семнадцать', 'восемнадцать', 'девятнадцать');
ch_2: array [2..9] of string = ('двадцать', 'тридцать', 'сорок', 'пятьдесят', 'шестьдесят', 'семьдесят', 'восемьдесят', 'девяносто');
ch_3: array [1..9] of string = ('сто', 'двести', 'триста', 'четыреста', 'пятьсот', 'шестьсот', 'семьсот', 'восемьсот', 'девятьсот');
var
n : 0..1000;
begin
repeat
write ('Введите натуральное число, меньшее 1000: ');
readln (n);
until n in [1..999];
if n in [100..999] then write (ch_3[n div 100], ' ');
if (n mod 100) in [20..99] then
begin
write (ch_2[(n mod 100)div 10], ' ');
if (n mod 10) <> 0 then write (ch_1[n mod 10]);
end
else
if (n mod 100) <>0 then write (ch_1[n mod 100]);
end.
var
m, n: integer;
ms: array[1..9] of string;
md: array[1..9] of string;
m1: array[11..19] of string;
me: array[1..9] of string;
flag: boolean;
begin
flag := false;
ms[1] := 'сто'; ms[2] := 'двести'; ms[3] := 'триста'; ms[4] := 'Четыреста';
ms[5] := 'пятьсот'; ms[5] := 'пятьсот'; ms[6] := 'шестьсот'; ms[7] := 'семьсот';
ms[8] := 'восемьсот'; ms[9] := 'девятьсот';
md[1] := 'десять'; md[2] := 'двадцать'; md[3] := 'тридцать'; md[4] := 'сорок';
md[5] := 'пятьдесят'; md[6] := 'шестьдесят'; md[7] := 'семьдесят';
md[8] := 'восемьдесят'; md[9] := 'девяносто';
m1[11] := 'одиннадцать'; m1[12] := 'двенадцать'; m1[13] := 'тринадцать';
m1[14] := 'четырнадцать'; m1[15] := 'пятнадцать'; m1[16] := 'шестнадцать';
m1[17] := 'семнадцать'; m1[18] := 'восемнадцать'; m1[19] := 'девятнадцать';
me[1] := 'один'; me[2] := 'два'; me[3] := 'три'; me[4] := 'четыре'; me[5] := 'пять';
me[6] := 'шесть'; me[7] := 'семь'; me[8] := 'восемь'; me[9] := 'девять';
write('введите число: ');
readln(m);
if (m < 1) or (m > 1000) then writeln('число не входит в заданный интервал')
else
if m = 1000 then writeln('одна тысяча ')
else
begin
n := m div 100;
if n > 0 then
begin
write(ms[n]);
flag := true
end;
m := m mod 100;
if m = 0 then writeln(' ')
else
begin
if (m > 10) and (m < 20) then
begin
if flag then write(' ');
writeln(m1[m])
end
else
if m > 0 then
begin
n := m mod 10;
m := m div 10;
if m > 0 then
begin
if flag then write(' ') else flag := true;
Write(md[m])
end;
if n <> 0 then
begin
if flag then write(' ');
write(me[n]);
end
end
end
end
end.