:) 1. Выпишите недопустимые имена переменных:
a) Nomer; b) S34; c) И92; d) Kol_vo54; e) 45_A; i) fg-л23
2. Установите соответствие (таблица) между переменной и типом данных:
а) A:=3.234 1) Integer
b) Z:=14 2) Real
c) B:=10351 3) Byte
d) K:=-0.2 4) Word
e) C:= 64000
3. Запишите инструкцию:
а) присваивающую переменной V значение 7;
б) увеличивающую значение переменной Z на 30;
4. Напишите инструкцию вывода на экран:
а) вашего имени б) числа 400
5. Установите соответствие между служебными словами и названиями разделов программы:
а) Var 1) Раздел операторов
b) Program 2) Раздел имени программы
c) Uses 3) Раздел описания переменных
d) Begin …end 4) Раздел описания библиотечных модулей
6. Найдите ошибки в записях оператора:
a) Write ©;
b) Writeln;
c) Writeln (Введите любое число);
d) Write X,Y;
e) WRITELN (‘воскресенье, нерабочий день’);
7. Какая структура программы верная:
1) begin
program MyFirst;
X:=Y+195;
end.
2) program MyProg;
begin
Writeln (‘Привет’);
end.
8. Расположите в правильном порядке строки программы, вычисляющей периметр и площадь параллелограмма:
1) S:=a*h;
6) var a,b,h,p,s: integer;
2) end.
7) readln;
3) program pr;
8) Writeln(‘p=’,p,’ s=’,s);
4) p:=2*(a+b);
9) a:=6;b:=3;h:=4;
5) Uses crt;
10) clrscr;
11) begin
9. Дан текст программы в таблице с ошибками:
исправьте ошибки в программе;
что выведется на экран в результате выполнения программы?
Программа с ошибками
Программа без ошибок
На экране будет напечатано:
War: a,b,c – integer, x: real;
Bigin
A=7, b=3,2, c:=a+b;
Writln ( summa= , c);
C:=c/2; x:=a-c;
Writeln(‘x=’ , x, ‘kvadrat=’ , x*x);
and
1) c e i
2) a2 b1 c1 d 2 e1
3) a)
program v7;
var v:integer;
begin
v:=7
end.
b)
program z30;
var z:integer;
begin
z:= z + 30;
end.
4) a)
program name;
begin
write("Тут пиши своё имя")
end.
b) program num4;
begin
write(400)
end.
5) a3 b2 c4 d1
6) хз надо исправлять ошибки или нет, но вот неправильные, которые вызовут ошибку
a c d
7) 2
8) 3 5 6 11 9 4 1 8 7 10 2
9) var a:integer; b,c,x:real;
begin
a:=7; b:=3; c:= a+b;
writeln('summa=',c);
c:= c/2; x:= a-c;
writeln('x=',x,' ','kvadrat=',x*x);
end.
На экран выйдет summa = 10.2
х = 1.9 kvadrat = 3.61