Занятие 6. Контрольная работа. 1) Есть ли в следующих текстах пустые операторы?

1) Есть ли в следующих текстах пустые операторы? (Если есть, то отметьте в тетради под какими буквами.)

а) if x>0 then x:=2 else; y:=x+1;

б) if odd(k) then else k:=0;

в) begin x:=2; y:=5; end;

г) begin a:=true; ; b:=b or a end;

д) begin if x=0 then goto 1; y:=x; 1:end

2) Если n=3, то какое значение будет иметь переменная f после выполнения следующего составного оператора? Запишите в тетрадь.

begin f:=1; i:=2;

1: if i>n then goto 9;

f:=f*i; i:=i+1; goto 1;

9: end

3) Найдите ошибки в программе, записав уже исправленную программу в тетрадь:

Program Errors;

Const L=18;

Label 18,8;

Var x, y:integer;

Begin y:=0;

8: read(x); if x<0 then goto L;

y:=y+x; goto 18;

L:writeln(y)

End.

4) Найти ошибки в следующих операторах, запишите исправленные операторы в тетрадь:

а) begin 77: if |x|<1 then goto 5

begin x:=x/2; goto 77; 5: y:=sin(x) end

end;

б) 34:if 0<x<2

then if y<1 then goto 34 else goto 15

else 15: y:=sqr(y)

в) if 1<x<2

then

x:=x+1; y:=0;

else

x:=0; y:=y+1;

г) if 1<x and x<2

then begin x:=x+1; y:=0 end;

else begin x:=0; y:=y+1 end

5) Запишите в тетрадь, какое значение будет иметь переменная z после выполнения операторов

z:=0

if x>0 then if y>0 then z:=1 else z:=2

при следующих значениях переменных х и у:

а) х=у=1; б) х=1, у=-1; в) х=-1, у=1.

Сдайте свою тетрадь на проверку учителю.

Творческое задание. Придумайте и решите задачу с применением графического режима, предлагая для выбора пользователю некоторое меню.