Является ли Pascal обьектно-ориентированным языком?
Является ли Pascal обьектно-ориентированным языком?
Каким будет значение k после выполнения кода:
k := 1;
while (k < 100) do k := k + k;
Каким будет значение k после выполнения кода:
k := 1;
while (k < 100) do k := k + k;
Каким будет значение переменной c после выполнения следующей программы?
var
a,c : integer;
b : real;
begin
a := abs(-2) + trunc(1.6) * (6 mod 4);
b := (a div 3) * sqrt(a + 5);
c := round(int(a / 4) + sqrt(b + 4) / sqrt(abs(b - a)));
end.
Каким будет значение переменной c после выполнения следующей программы?
var
a,c : integer;
b : real;
begin
a := abs(-2) + trunc(1.6) * (6 mod 4);
b := (a div 3) * sqrt(a + 5);
c := round(int(a / 4) + sqrt(b + 4) / sqrt(abs(b - a)));
end.
Какая из процедур не работает с динамической областью памяти в Турбо Паскале?
Какая из процедур не работает с динамической областью памяти в Турбо Паскале?
Сколько раз выполнится цикл в следующем фрагменте кода:
P := 4;
Repeat
P := P * 0.1
Until P < 0.0001;
Сколько раз выполнится цикл в следующем фрагменте кода:
P := 4;
Repeat
P := P * 0.1
Until P < 0.0001;
Как выполняется цикл с предусловием?
Варианты ответа:
1) Определяется, сколько раз должен быть выполнен цикл, и далее цикл с предусловием сводится к циклу с параметром
2) Выполняется тело цикла, изменяется параметр цикла, проверяется условие продолжения выполнения цикла
3) Тело цикла выполняется N раз (N — натуральное)
4) Проверяется условие продолжения выполнения цикла, выполняется тело цикла
5) Изменяется параметр цикла, проверяется условие продолжения выполнения цикла, выполняется тело цикла
Как выполняется цикл с предусловием?
Варианты ответа:
1) Определяется, сколько раз должен быть выполнен цикл, и далее цикл с предусловием сводится к циклу с параметром
2) Выполняется тело цикла, изменяется параметр цикла, проверяется условие продолжения выполнения цикла
3) Тело цикла выполняется N раз (N — натуральное)
4) Проверяется условие продолжения выполнения цикла, выполняется тело цикла
5) Изменяется параметр цикла, проверяется условие продолжения выполнения цикла, выполняется тело цикла
Чувствителен ли паскаль к регистру?
Чувствителен ли паскаль к регистру?
Что выведет данная программа?
var s:string[5];
begin
Write(sizeof(s));
end.
Что выведет данная программа?
var s:string[5];
begin
Write(sizeof(s));
end.
Что будет выведено в результате следующей программы:
var a, b, c: integer;
begin
a:=2;
b:=4;
c:=3;
if a>b then
if a>c then a:=0
else a:=1;
writeln(a);
end.
Что будет выведено в результате следующей программы:
var a, b, c: integer;
begin
a:=2;
b:=4;
c:=3;
if a>b then
if a>c then a:=0
else a:=1;
writeln(a);
end.
Выберите эквивалент следующего объявления var a:array[20] of byte.
Варианты ответа:
1) var a:array[0..20] of byte
2) var a:array[1..20] of byte
3) var a:array[20..20] of byte
4) Синтаксическая ошибка. Такое объявление недопустимо.
Выберите эквивалент следующего объявления var a:array[20] of byte.
Варианты ответа:
1) var a:array[0..20] of byte
2) var a:array[1..20] of byte
3) var a:array[20..20] of byte
4) Синтаксическая ошибка. Такое объявление недопустимо.
Чему равен индекс первого элемента массива?
Чему равен индекс первого элемента массива?
Какой раздел программы является обязательным?
Какой раздел программы является обязательным?
Какого оператора безусловного перехода нет в Pascal?
Какого оператора безусловного перехода нет в Pascal?
Укажите все вещественные типы:
Укажите все вещественные типы:
К процедурам для работы с динамическими переменными не относится?
К процедурам для работы с динамическими переменными не относится?
Идентификатор в Pascal не может начинаться с:
Идентификатор в Pascal не может начинаться с:
Что выведет следующая программа:
procedure proc(X: Integer);
begin
X:=1;
end;
var
r: Integer;
begin
r:=2;
proc(r);
Writeln(r);
end.
Что выведет следующая программа:
procedure proc(X: Integer);
begin
X:=1;
end;
var
r: Integer;
begin
r:=2;
proc(r);
Writeln(r);
end.
Что напечатает следующий код:
var
A: Single;
begin
A := 0.1;
if A = 0.1 then
Writeln('==')
else
Writeln('!=');
end.
Что напечатает следующий код:
var
A: Single;
begin
A := 0.1;
if A = 0.1 then
Writeln('==')
else
Writeln('!=');
end.
Что выведет следующий фрагмент кода:
n:= 2;
p:=@n;
p^ := 1;
Writeln('n=', n);
Что выведет следующий фрагмент кода:
n:= 2;
p:=@n;
p^ := 1;
Writeln('n=', n);