К оглавлению



8 класс. Глава 3
2. Ветвления в языке Pascal

1. В операторе if и после then, и после else нельзя использовать:
составной оператор
несколько операторов
условный оператор
оператор ввода
оператор вывода
2. В каких операторах ветвления допущены ошибки?
if b=0 then writeln ('Деление невозможно');
if a<b then min:=a; else min:=b;
if a>b then max:=a else max:=b;
if a>b then c:=a+b d:=a-b;
if a<b then begin a:=a+1; b:=b+1 end;
3. Чему будет равно значение переменной b после выполнения фрагмента программы при а=11?
read (a);
if a mod 2 = 0 then b:=1 else b:=0;
Ответ: 
4. Чему будет равно значение переменной b после выполнения фрагмента программы при а=22?
read (a);
if a mod 2 = 0 then b:=1 else b:=0;
Ответ: 
5. Какие значения x и y будут выведены на экран в результате выполнения фрагмента программы при x=10 и y=5? 
if x>y then
  begin x:=x-y; y:=x+y end
else
  begin y:=y-x; x:=x-y end;
writeln (x, ',' , y);
-5,10
-5,5
10,15
5,10
6. Какие значения x и y будут выведены на экран в результате выполнения фрагмента программы при x=10 и y=15? 
if x>y then
  begin x:=x-y; y:=x+y end
else
  begin y:=y-x; x:=x-y end;
writeln (x, ',' , y);
5,5
10,15
-5,5
-5,10
7. Определите значение переменной c после выполнения фрагмента программы при a=100 и b=30: 
readln (a, b);
a:=a-b*3;
if a>b then c:=a-b else c:=b-a;
writeln (c);
Ответ: 
8. Определите значение переменной c после выполнения фрагмента программы при a=50 и b=10: 
readln (a, b);
a:=a-b*3;
if a>b then c:=a-b else c:=b-a;
writeln (c);
Ответ: 
9. Определите значение переменной c после выполнения фрагмента программы при a=5 и b=3: 
readln (a, b); a:=a*b;
if a>b*b then b:=a-b;
if b>a-1 then
  begin b:=b-a; a:=a-b end
else
  begin a:=a-b; b:=b-a end;
c:=a*b; writeln (c);
Ответ: 
10. Определите значение переменной y после выполнения фрагмента программы при x=-2: 
if x<=-2 then y:=-x
else
  if x<=2 then y:=0 else y:=x;
writeln (y);
Ответ: 
11. Определите значение переменной y после выполнения фрагмента программы при x=3: 
if x<=-2 then y:=-x
else
  if x<=2 then y:=0 else y:=x;
writeln (y);
Ответ: 
12. Определите значение переменной y после выполнения фрагмента программы при x=2: 
if x<=-2 then y:=-x
else
  if x<=2 then y:=0 else y:=x;
writeln (y);
Ответ: