Вариант 9
Задание №1. Перечислить через запятую в возрастающем порядке элементы, которые входят в множество А после выполнения следующей последовательности операторов.
Var A,B,C:set of 1..100;
i:byte;
Begin
B:=[2..5];
For i:=1 to 10 do
If not (i in B) then
B:=B+[i];
C:=[8..12];
A:=B*C;
End.
Задание №2. Вводится 100 целых чисел. В результате выполнения программы на экран должны быть выведены суммы двузначных чисел. Выберите правильный фрагмент.
a) Var I,x,p:integer; Begin P:=0; for I:=1 to 10 do begin Read(x); If (x >10) and (x<=100) then p:=p+x; End; Writeln(p); End. |
b) Var I,x,p:integer; Begin P:=0; for I:=1 to 10 do begin Read(x); If (x >9) or (x<100) then p:=p+x; End; Writeln(p); End. |
c) Var I,x,p:integer; Begin P:=0; for I:=1 to 10 do begin Read(x); If (x mod10 >0) then p:=p+x; End; Writeln(p);End. |
d) Var I,x,p:integer; Begin P:=0; for I:=1 to 10 do begin Read(x); If (x >9) and (x<100) then p:=p+x; End; Writeln(p);End. |
Задание №3. Какая из предложенных программ выполняет следующие действия? Вводится действительное число A. Требуется найти первое N, для которого сумма s=1+1/2+1/3+...+1/N превышает A.
а) Var N:integer; А, s:real; Begin Read(A); s:=0; N:=1; repeat s:=s+1/N; N:=N+1; until s>A; writeln(N);end. |
b) Var N:integer; А, s:real; Begin Read(A); s:=1; N:=1; repeat s:=s+1/N; N:=N+1; until s>A; writeln(N);end. |
c) Var N:integer; А, s:real; Begin Read(A); s:=0; N:=1; repeat s:=s+1/N; N:=N+1; until s<=A; writeln(N);end. |
d) Var N:integer; А, s:real; Begin Read(A); s:=0; N:=1; repeat s:=s+1/N; until s>A; writeln(N); end. |
Задание №4. Требуется найти и вывести на экран минимальный элемент в массиве из 10 чисел. Массив заполняется случайными числами. Определите правильный вариант программы.
а) Var a:array[1..10] of integer; m, i:integer; Begin for i:=1 to 10 do a[i]:=random(100); m:=a[1]; for i:=2 to 10 do if m<a[i] then m:=a[i]; writeln(m); end. |
b) Var a:array[1..10] of integer; m, i:integer; Begin for i:=1 to 10 do a[i]:=random(100); m:=a[1]; for i:=2 to 10 do if m<a[i] then m:=a[i]; writeln(i); end. |
c) Var a:array[1..10] of integer; m, i:integer; Begin for i:=1 to 10 do a[i]:=random(100); m:=a[1]; i:=1; while m>a[i] do i:=i+1; writeln(a[i]); end. |
d) Var a:array[1..10] of integer; m, i:integer; Begin for i:=1 to 10 do a[i]:=random(100); m:=a[1]; for i:=2 to 10 do if m>a[i] then m:=a[i]; writeln(m); end. |
Задание №5. Введите в строку ответа строку s, которая будет выведена на экран в результате выполнения следующей программы.
Var s,s1:string[20];
m, i:integer;
Begin
s:=’barabas’;
repeat
m:=pos(‘ba’,s);
delete(s,m,2);
until m=0;
writeln(s);
end.
Задание №6. С одномерным массивом, состоящим из n вещественных элементов, выполнить следующее: Преобразовать массив таким образом, чтобы элементы, равные нулю, располагались после всех остальных.
Задание №7. Составьте программу, определяющую, пройдет ли график функции y=5x2-7x+2 через заданную точку с координатами (а,b).
Задание №8. В строке удалить все вхождения буквы В.
Задание №9. Компонентами файла f являются действительные числа. Найти:
сумму компонент;
произведение компонент;
последнюю компоненту файла.
Задание №10. Выполняется по инструкции, которая прилагается.
Создать два нетекстовых файла, содержащих сведения об успеваемости учеников (фамилия, инициалы, три оценки). Упорядочить сведения в алфавитном порядке. Перезаписать данные из этих файлов в текстовый файл, также упорядоченный в алфавитном порядке. Вывести на экран фамилии трех лучших учеников.