Вариант 6
Задание №1. Какие символы входят в множество А после выполнения следующей последовательности операторов?
Var A,B,C:set of char;
i:byte;
Begin
A:=[‘a’,’b’,’c’];
For i:=1 to 10 do A:=A+[‘d’];
B:=[];
A:=B+А;
C:=[‘a’,’d’];
A:=C*A;
End.
Задание №2. В результате выполнения фрагмента программы на экран должно быть выведено среднее арифметическое 10 введенных чисел. Выберите правильный фрагмент.
а) Var I,x,s:integer; Begin Read(x); S:=0; For I:=1 to 10 do S:=s+x; writeln(s/10:4:2); end.
|
b) Var I,x,s:integer; Begin S:=0; For I:=1 to 10 do Read(x); S:=s+x; writeln(s/10:4:2); end.
|
c) Var I,x,s:integer; Begin S:=0; For I:=1 to 10 do begin Read(x); S:=s+x; End; writeln(s/10:4:2); end. |
d) Var I,x,s:integer; Begin S:=0; For I:=1 to 10 do begin Read(x); S:=s/10+x; End; writeln(s:4:2); end. |
Задание №3. В результате выполнения программы на экран должны быть выведены значения функции y=x3+2x, для значений х, лежащих в диапазоне [1;3] с шагом 0,2. Выберите правильный фрагмент.
а) Var x,y:real; Begin X:=1; While x<=3 do begin y:=sqr(x+0.2)*(x+0.2)+2*(x+0.2); writeln(y:4:2); end; end. |
b) Var x,y:real; Begin X:=1; While x<=3 do X:=x+0.2; y:=sqr(x)*x+2*x; writeln(y:4:2); end.
|
c) Var x,y:real; Begin X:=1; While x<=3 do begin y:=sqr(x)*x+2*x; writeln(y:4:2); x:=x+0.2; end; end. |
d) Var x,y:real; Begin X:=1; While x=3 do begin y:=sqr(x)*x+2*x; writeln(y:4:2); x:=x+0.2; end; end. |
Задание №4. Требуется найти и вывести на экран сумму четных элементов массива из 10 чисел. Массив заполняется случайными числами. Определите правильный вариант программы.
а) Var a:array[1..10] of integer; s,i:integer; Begin for i:=1 to 10 do a[i]:=random(100); s:=0; for i:=1 to 10 do s:=s+a[i]; writeln(s); end.
|
b) Var a:array[1..10] of integer; s,i:integer; Begin for i:=1 to 10 do a[i]:=random(100); s:=0; for i:=1 to 10 do if a[i] mod 2 =0 then s:=s+a[i]; writeln(s); end. |
c) Var a:array[1..10] of integer; s,i:integer; Begin for i:=1 to 10 do a[i]:=random(100); s:=0; for i:=1 to 10 do if a[i] div 2 =0 then s:=s+a[i]; writeln(s); end. |
d) Var a:array[1..10] of integer; s,i:integer; Begin for i:=1 to 10 do a[i]:=random(100); s:=0; for i:=1 to 10 do begin if a[i] mod 2 =0 then s:=s+a[i]; writeln(s); end; end. |
Задание №5. Введите в строку ответа строку s, которая будет выведена на экран в результате выполнения следующей программы.
Var s,s1:string[20];
m, i:integer;
Begin
s1:=’karabas’;
s:=’barabas’
if s>s1 then s:=s+’-‘+s1
else s:=s1+’-‘+s;
writeln(s);
end.
Задание №6. С одномерным массивом, состоящим из n вещественных элементов, выполнить следующее: Преобразовать массив таким образом, чтобы сначала располагались все элементы, равные нулю, а потом – все остальные.
Задание №7. Напишите программу, которая анализирует человека по возрасту и относит к одной из четырех групп: дошкольник, ученик, работник, пенсионер. Возраст человека вводится с клавиатуры.
Задание №8. Дана строка. Указать те слова, которые содержат хотя бы одну букву k.
Задание №9. Найдите в файле и выведите на экран слова, начинающиеся с буквы А.
Задание №10. Выполняется по инструкции, которая прилагается.
Создать нетекстовый файл Play.dat, который содержит сведения об игрушках (наименование, цена, возрастные границы, например, от 3 до 10 лет). Вывести в текстовый файл названия игрушек, упорядоченных в порядке возрастания цены, цена которых не превышает 200 рублей и предназначенных для детей 5 лет. Вывести на экран цену самой дорогой игрушки.