Автор статьи
Валерия
Эксперт по сдаче вступительных испытаний в ВУЗах
1
Дана программа:
Var a,b,c,d:integer;
Function sum(a,b:integer):integer;
Var s:integer;
Begin
a:=a+2; b:=b+1;
s:=a+b;
sum:=s;
End;
Begin
a:=3; b:=5; c:=12; d:=10;
writeln(sum(c,d)-c);
end.
Что будет выведено на экран в результате выполнения программы?
2
Дано описание массива в разделе описания переменных:
Var a: array [1..10] of integer;
Выберите строку, в которой есть ошибка при обращении к массиву.
3
Какие выражения имеют значение true?
4
Дано описание переменных:
var p, q: ^integer; a, b: integer;
Выберите строки с ошибками.
5
Укажите стандартные процедуры вывода.
6
Функция SEEK:
7
Для построения многоугольников используют процедуру:
8
Даны описания:
Var a,b:integer; c,d:real;
procedure obmen(var a:real; b:integer);
Var s:integer;
Begin
s:=round(a); a:=b; b:=s;
end;
Выберите строку с ошибкой применения данной процедуры.
9
Дан фрагмент программы:
b:=8; k:=1; a:=2;
Repeat
k:=k*a;
Until k<b;
Writeln(k);
Что будет выведено на экран?
10
Процедура delete (var S: string; P: integer; N: integer) выполняет {; } {; ; } символов строки {; ; }, начиная с позиции {; ; }.
11
Какое значение будет выведено на экран после выполнения программы?
type dvig = (vverh, vniz, vpravo, vlevo);
var x, y: dvig; t: (vpered, nazad); k: integer;
begin
k:=ord(nazad)+ord(vpravo);
writeln (k);
end.
12
Дан фрагмент программы:
b:=6; k:=1; a:=2;
While k<b do
k:=k*a;
Writeln(k);
Что будет выведено на экран?
13
Дана программа:
Function f (n: integer): integer;
begin
if n=1
then f:=1
else f:=f(n-1)*n;
end;
var k: integer;
begin
readln (k);
writeln (f(k));
end.
Что будет выведено на экран, если k=4 ?
14
Типичное представление вещественных чисел в Паскале осуществляется с помощью типа данных:
15
Дан фрагмент программы:
Type a = record i, f, j: real; c: integer; end;
Var z: a;
Выберите строки, в которых есть ошибки обращения к записи.
О сайте
Ссылка на первоисточник:
http://www.iimt.ru/
Поделитесь в соцсетях: