Question

:) 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

Answer 1

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