8_Тест «Общие сведение о языке программирования Паскаль»
Вариант 1
1. Какие из следующих последовательностей символов можно считать операторами присваивания?
б) a+3:=5
в) a:=2a
г) b:=b+3
д) k:=k+1
2. Укажите ложное высказывание:
б) Нельзя присваивать программам имена зарезервированных языком программирования слов (begin, end, program)
в) Имя программы может содержать любое количество любых символов
3. Условия, состоящие из одной операции сравнения, называются …
б) линейными
в) простыми
г) сложными
4. Как можно представить структуру программы на языке Паскаль?
Program
Begin
End
б) Program
End
Begin
в) Begin
Program
End
5. Какое из перечисленных слов не относится к служебным словам языка
программирования Паскаль?
б) Or
в) Begin
г) Read
6. Какие символы можно использовать при записи программы на языке Паскаль?
б) *
в) F
г) Г
д) ы
7. Алгоритм, записанный на языке программирования, называется …
б) задачей
в) программой
г) моделью
8. Кто является разработчиком языка программирования Паскаль?
б) Блез Паскаль
в) Чарльз Бэббидж
г) Никлаус Вирт
9. Укажите допустимые имена в языке Паскаль:
б) sUmmA
в) _F
г) ЗЖ2
д)end
10. Установите соответствие:
А) -32 768 … 32 768
1. char
Б) true и false
2. boolean
В) Произвольный символ алфавита
3. string
Г) Последовательность не более чем из 255 символов
4. integer
var a:array [1..n,1..m] of integer;
i,j,min,x1,y1,max,x2,y2:integer;
begin
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(21)-10;
write (a[i,j]:4);
end;
writeln;
end;
min:=a[1,1];
max:=a[1,1];
x1:=1;
x2:=1;
y1:=1;
y2:=1;
for i:=1 to n do
for j:=1 to n do
if a[i,j]<min then
begin
min:=a[i,j];
x1:=i;
y1:=j;
end else
if a[i,j]>max then begin
max:=a[i,j];
x2:=i;
y2:=j;
end;
writeln ('Минимальный элемент A[',x1,',',y1,']=',min);
writeln (',Максимальный элемент A[',x2,',',y2,']=',max);
end.
var
n,i,m:integer;
x:real;
begin
write('Число оценок: ');
readln(n);
for i:=1 to n do
begin
writeln('Введите оценку: ');
readln(m);
x:=x+m
end;
x:=round(x/n);
writeln('Оценка за четверть ',x)
end.
2.
var
n:integer;
a,b,c:real;
begin
write('Число a: ');
readln(a);
if a>0 then n:=1;
write('Число b: ');
readln(b);
if b>0 then n:=n+1;
write('Число c: ');
readln(c);
if c>0 then n:=n+1;
writeln('Число положительных ',n)
end.
3.
var
n,i,s:integer;
a:array of integer;
begin
write('Размер массива: ');
readln(n);
SetLength(a, n);
for i:=0 to n-1 do
begin
a[i]:=random(-3,3);
write(a[i]:3);
if a[i]<>0 then s:=s+1
end;
writeln;
write('Ненулевых элементов: ',s);
end.