Вариант 4
Задание №1. Перечислить через запятую, в возрастающем порядке элементы, которые входят в множество А после выполнения следующей последовательности операторов.
Var A,B,C:set of 1..100;
i:byte;
Begin
A:=[1,2,3];
For i:=5 to 9 do A:=A+[i];
B:=[2..4];
A:=B*А;
End.
Задание №2. В результате выполнения фрагмента программы на экран должно быть выведено значение n!. Выберите правильный фрагмент.
Begin Read(n); For I:=1 to 10 do begin n:=n*i; writeln(n); end; end.
|
Begin Read(n); P:=1; For I:=2 to n do p:=p*i; writeln(p); end.
|
Begin Read(n); For I:=2 to n do p:=p*i; writeln(p); end.
|
Begin Read(n); P:=1; For I:=1 to n do begin p:=p*i; writeln(p); end; end.
|
Задание №3. Какое значение переменной А будет выведено на экран оператором writeln(A) в результате выполнения следующей программы?
Var A, n:integer;
Begin
A:=2; n:=A;
repeat
n:=A+2;
A:=n-1;
Until A=1245;
writeln(A);
end.
Задание №4. Требуется переписать элементы массива а в массив b в обратном порядке. Массив а заполняется случайными числами. Определите правильный вариант программы.
а) const n=10; Var a,b:array[1..n] of integer; i:integer; Begin for i:=1 to n do a[i]:=random(100); for i:=1 to n do b[i]:=a[n-i]; end.
|
b) const n=10; Var a,b:array[1..n] of integer; i:integer; Begin for i:=1 to n do a[i]:=random(100); for i:=1 to n do b[i]:=a[n-i+1]; end.
|
c) const n=10; Var a,b:array[1..n] of integer; i:integer; Begin for i:=1 to n do a[i]:=random(100); for i:=1 to n do b[i]:=n-a[i]; end.
|
d) const n=10; Var a,b:array[1..n] of integer; i:integer; Begin for i:=1 to n do a[i]:=random(100); for i:=1 to n do a[i]:=b[n-i+1]; end.
|
Задание №5. С клавиатуры вводится некоторая строка. Требуется после каждого символа «.» (точка) вставить один символ пробела. Определите правильный вариант программы.
а) Var s:string[20]; m, i:integer; Begin Readln(s); i:=1; while i<=length(s) do if s[i]=’.’ then begin s[i+1]=’ ‘; i:=i+1; end; end.
|
b) Var s:string[20]; m, i:integer; Begin Readln(s); i:=1; while i<=length(s) do if s[i]=’.’ then begin insert(s,i+1,’ ‘); i:=i+1; end; end.
|
c) Var s:string[20]; m, i:integer; Begin Readln(s); i:=1; while i<=length(s) do begin if s[i]=’.’ then insert(‘ ‘,s,i+1); i:=i+1; end; end.
|
d) Var s:string[20]; m, i:integer; Begin Readln(s); i:=1; while i<=length(s) do begin if s[i]=’ ’ then copy(‘ ‘,s,i+1); i:=i+1; end; end.
|
Задание №6. С одномерным массивом, состоящим из n вещественных элементов, выполнить следующее: Сжать массив, удалив из него все элементы, модуль которых не превышает 1. Освободившиеся в конце массива элементы заполнить нулями.
Задание №7. Составьте программу, проверяющую, что введенное число является четным или нечетным.
Задание №8. Дана строка. Преобразовать ее, удалив каждый символ звездочки и повторив каждый символ, отличный от звездочки.
Задание №9. Дан файл Input.txt, элементы которого являются целыми числами. Получите в файле Output.txt все элементы файла Input.txt, которые делятся на 3 и не делятся на 7.
Задание №10. Выполняется по инструкции, которая прилагается.
Создать нетекстовый файл, содержащий сведения об учащихся из разных классов (фамилия имя отчество, класс). Создать текстовые файлы, в каждый из которых записать в алфавитном порядке Ф.И.О. учащихся по классам.