Вариант 15

Задание №1. Чему будет равно значение переменной b при а=10 после выполнения следующего участка программы:

if (a div 3) mod 2=0 then b:=sqrt(a*4)+5

else b:=sqr(a-5)-6;

Задание №2. Выберите правильные ответы. Первым символом в идентификаторе может быть:

1. буква

2. знак пробела

3. знак подчеркивания

4. цифра

5. точка

Задание №3. Какие значения примут переменные с и d после выполнения следующего фрагмента программы:

c:=100;  d:=0; while с mod 2 =0 do

begin

c:=c div 2;

d:=d+1;

end;

Задание №4. Какое значение примет переменная А после выполнения следующего фрагмента программы:

А:=1; b:=true;

repeat А:=А+1;

b:=b and (A>10) until b;

Задание №5. Какое значение примет переменная А после выполнения следующего фрагмента программы:

for i:=20 downto 5 do А:=4*i;

Задание №6. С одномерным массивом, состоящим из n вещественных элементов, выполнить следующее: Преобразовать массив таким образом, чтобы сначала располагались все элементы, отличающиеся от максимального не более чем на 20%, а потом – все остальные.

Задание №7. Составьте программу, которая для числа K (от 1 до 99), введенного вами, напечатает фразу «Мне K лет», где K – введенное число, при этом в нужных случаях слово «лет» заменяя на «год» или «года». Например, при K=70 «Мне 70 лет», при K=15 «Мне 15 лет», при K=23 «Мне 23 года», при K=31 «Мне 31 год». (2балла

Задание №8. Составьте программу, удаляющую из предложения каждую вторую букву Т.

Задание №9. Подсчитать количество букв в исходной символьной строке и напечатать все, кроме цифр, включая пробелы, знаки операций и препинания.

Задание №10. Выполняется по инструкции, которая прилагается.

Создать нетекстовый файл animal.dat, содержащий информацию о животных (название, вид (дикое или домашнее), численность). Переписать в текстовый файл информацию о диких животных, упорядоченную в алфавитном порядке. Вывести на экран названия животных, численность которых меньше 1000. Определить, каких животных больше, диких или домашних, содержится в вашем файле.

Вариант 16

Задание №1. Найдите все ошибки в программе и исправьте их:

Var i,j,k:integer;

Begin

Read(‘введитеk’);

i:=20;

j:=k/i;

Writeln(j = , j);

End.

Задание №2. Что будет выведено на экран в результате выполнения следующей программы. (Известно, что код символа ‘с’ равен 99):

Var c:char;

Begin

c:=’ф’;

writeln(c);

writeln(‘c’);

Writeln(pred( c),’ ‘, char(ord(‘c’));

End.

Задание №3. Чему будет равно значение переменной b при а=10 после выполнения следующего участка программы:

if (a div 5) mod 2=0 then b:=sqrt(а*10)+5

else b:=sqr(a-5)-6;

Задание №4. Какие значения примут переменные с и d после выполнения следующего фрагмента программы:

c:=1;  d:=0; while d<50 do

begin

d:=d+sqr(c);

c:=c+1;

end;

Задание №5. Какое значение примет переменная А после выполнения следующего фрагмента программы:

А:=1; b:=false;

repeat А:=А+1;

b:=b or (A>10) until b;

Задание №6. С одномерным массивом, состоящим из n вещественных элементов, выполнить следующее: Заменить все отрицательные элементы массива их модулями и изменить порядок следования элементов в массиве на обратный.

Задание №7. Даны два действительных числа X и Y. Если X>Y, то вычислить произведение этих чисел, иначе их сумму. Разработать схему алгоритма для решения этой задачи. Протестировать алгоритм на трёх различных тестах (X>Y, X=Y и X<Y).

Задание №8. Составьте программу, определяющую, на какую букву начинается третье слово в предложении.

Задание №9. Подсчитать количество букв в исходной символьной строке и напечатать все, кроме цифр, включая пробелы, знаки операций и препинания.

Задание №10. Выполняется по инструкции, которая прилагается.

Создать нетекстовый файл car.dat, содержащий информацию о машинах (марка, год выпуска, цвет, номер). Переписать в текстовый файл информацию о машинах черного цвета, упорядоченную в порядке убывания года выпуска. Вывести на экран марки машин, номера которых начинаются на букву М.