Оператор CASE.
Автор: Сердюк С.А.


Задание #1
Вопрос:
Результат работы программы при n введенном 3?
var n:byte;
Begin      writeln('Введите номер поры года');  readln(n);
case n of
1: writeln('зима');
2: writeln('весна');
3: writeln('лето');
4: writeln('осень');
else
writeln('неправильно ввели номер поры года');
end;
End.


Выберите один из 5 вариантов ответа:
1) неправильно ввели номер поры года
2) осень
3) весна
4) лето
5) зима

Задание #2
Вопрос:
Что выведет на экран программа: 
var n:integer;  
begin  n:=7;  
case n div 2 of
  1,6,7: n:=n-1; 
   0,2:n:=n+2;
     5: n:=1; 
   3,4:n:=n+1;
   end;
   write(n); 
end.


Выберите один из 5 вариантов ответа:
1) 2
2) 9
3) 1
4) 8
5) 4

Задание #3
Вопрос:
Что выведет на экран программа: 
var n:integer;  
begin  n:=8;  
case (n+3) div 2 of
  1,6,7: n:=n-1; 
   0,2:n:=n+2;
     5: n:=1; 
   3,4:n:=n+4;
   end;
   write(n); 
end.


Выберите один из 5 вариантов ответа:
1) 9
2) 1
3) 7
4) 4
5) 2

Задание #4
Вопрос:
Что выведет на экран программа: 
var n:integer;  
begin  n:=7;  
case n mod 2 of
  1,6,7: n:=n-1; 
   0,2:n:=n+2;
     5: n:=1; 
   3,4:n:=n+4;
   end;
   write(n); 
end.


Выберите один из 5 вариантов ответа:
1) 4
2) 2
3) 6
4) 1
5) 9

Задание #5
Вопрос:
Результат выполнения программы ?
var a,b,s:real;  sim:char;
Begin   a:=5; b:=2; sim:='*';
case sim of
'+': s:=a+b;
'-': s:=a-b;
'*': s:=a*b;
'/': s:=a/b;
end;
writeln ('результат ',a,sim,b,' = ',s);
End.


Выберите один из 4 вариантов ответа:
1) результат a*b = 10
2) результат a,sim,b = 10

3) результат '5*2 =10 '

4) результат 5*2 =10


Задание #6
Вопрос:
Что выведется при MONTH=5 

case MONTH of
1, 2, 3 : writeln (‘Первый квартал‘);
4, 5, 6 : writeln (‘Второй квартал‘);
7, 8, 9 : writeln (‘Третий квартал‘);
10, 11, 12 : writeln (‘Четвёртый квартал‘);
end;


Выберите один из 4 вариантов ответа:
1) Первый квартал
2) Четвёртый квартал
3) Второй квартал
4) Третий квартал

Задание #7
Вопрос:
Результат выполнения программы ?
var a,b,s:real;  sim:char;
Begin   a:=2; b:=4; sim:='-';
case sim of
'+': s:=a+b;
'-': s:=a-b;
'*': s:=a*b;
'/': s:=a/b;
end;
writeln ('результат ',a,sim,b,' = ',s);
End.


Выберите один из 4 вариантов ответа:
1) результат 2-4 =-2 

2) результат a,sim,b = -2

3) результат a-b = -2
4) результат '2-4 =-2 '


Задание #8
Вопрос:
Результат работы программы при n введенном 6 ?
var n:byte;
Begin      writeln('Введите номер поры года');  readln(n);
case n of
1: writeln('зима');
2: writeln('весна');
3: writeln('лето');
4: writeln('осень');
else
writeln('неправильно ввели номер поры года');
end;
End.


Выберите один из 5 вариантов ответа:
1) осень
2) лето
3) зима
4) неправильно ввели номер поры года
5) весна

Конец