Задание 1
Во Сколько байт оперативной памяти будет занимать описанный массив?
t: array [1..80] of boolean;
Выберите один из 4 вариантов ответа:
1) 160 2) 10 3) 0 4) 80
Задание 2
Во Сколько элементов в описанном массиве?
d: array [byte] of byte;
Запишите число:
Задание 3
Во Сколько байт занимает описанный массив?
a: array [boolean] of real;
Запишите число:
Задание 4
Во Как называются ячейки оперативной памяти, в которых хранятся данные массива?
Выберите один из 4 вариантов ответа:
1) Пункты массива 2) Строки 3) Индексы 4) Элементы массива
Задание 5
Во Какие действия возможны над массивами, как над единым целым?
Выберите несколько из 4 вариантов ответа:
1) Присваивание 2) Проверка неравенства
3) Сложение 4) Проверка равенства
Задание 6
Во Как обратится к элементу массиваа с индексом 5?
Запишите ответ:
Задание 7
Во Как называется структурный тип данных, используемый для хранения пронумерованных величин одного типа?
Выберите один из 4 вариантов ответа:
1) Регулярный тип 2) Комбинированный тип
3) Составной тип 4) Строковый тип
Задание 8
Во Какие варианты описания элементов массива являются правильными?
Выберите несколько из 4 вариантов ответа:
1) c: array [char] of 1..7; 2) m: array [integer] string;
3) t: array [real] of real; 4) a: array [1..2] of byte;
Задание 9
Во Сколько байт оперативной памяти в среде PascalABC занимает описанный двумерный массив?
a: array [1..50, 1..70] ofinteger;
Выберите один из 4 вариантов ответа:
1) 7 000 2) 70 3) 3 500 4) 50
Задание 10
Во Какая величина в языке Pascalназывается массивом?
Выберите один из 4 вариантов ответа:
1) Величина составного типа
2) Величина одного из числовых типов
3) Величина регулярного типа
4) Величина символьного типа
1 программа:
var x, y, t:integer;
begin
for x:=3 to 15 do begin
writeln('x = ', x);
t := x - 2;
y := 7*t*3-6*t+10;
writeln('y = ', y);
writeln('');
end;
end.
2 программа:
const pass ='45xlua';
var x:string;
a:boolean;
begin
a:= false;
while a<>true do begin
writeln('Введите пароль');
readln(x);
if x = pass then begin
a:=true;
writeln('Пароль верный');
end
else
writeln('Пароль неверный, введите еще раз');
writeln('');
end;
end.
4 программа:
var a, a1, a2, x, kol:integer;
begin
writeln('Введите четырёхзначное число');
readln(a);
x := a;
while x<>0 do begin
x:= x div 10;
kol:= kol + 1;
end;
if (kol = 4) then begin
a1 := a div 100;
a2:= a mod 100;
writeln(a1+a2);
end
else
writeln('Число не является четырёхзначным');
end.