БЛОК СХЕМА

ЯЗЫК ПРОГРАММИРОВАНИЯ ПАСКАЛЬ

PROGRAM название программы

VAR описание переменных

BEGIN

RЕADLN (ввод данных)

CASEпеременная OF

Значение переменной : оператор 1;

Значение переменной : оператор 2;

Значение переменной : оператор 3;

ELSE оператор 4;

END ;

WRITELN(вывод результата);

END.

Пример:

По введённому номеру ноты вывести на экран её словесное название.

PROGRAM notnaj azbuka;

VAR nomer_noti : INTEGER ;

BEGIN

WRITELN (‘введите номер ноты’);

RЕADLN (nomer_noti);

CASEnomer_noti OF

1 : WRITELN (‘ДО’);

2 : WRITELN (‘РЕ’);

3 : WRITELN (‘МИ’);

4 : WRITELN (‘ФА’);

5 : WRITELN (‘СОЛЬ’);

6 : WRITELN (‘ЛЯ’);

7 : WRITELN (‘СИ’)

ELSE WRITELN (‘ТАКОЙ НОТЫ НЕТ’);

END ;

END.

В процессе исполнения оператора CASE компьютер по очереди сравнивает значение переменной со всеми значениями, перечисленными перед двоеточиями. Встретив совпадающее значение, он выполняет оператор, стоящий после двоеточия. На этом исполнение оператора CASE завершается. Если же совпадающего значения так и не нашлось, то выполняется оператор стоящий после слова ELSE. После ELSE может стоять цепочка операторов записанных через точку с запятой.

Если оператор CASE не найдёт совпадения с переменной, не выберет ни один из своих вариантов и при отсутствии ELSE, то он завершает свою работу, так ничего и не сделав.

У оператора CASE есть ограничения – переменная стоящая после слова CАSE должна быть порядкового типа (Integer, Long Int, Char).

Задача.По номеру недели вывести его словесное наименование.

program nedela;

uses crt;

var

n:char;

begin

ClrSCR;

delay(2000);

writeln('1-day week');

writeln('2-day week');

writeln('3-day week');

writeln('4-day week');

writeln('5-day week');

writeln('6-day week');

writeln('7-day week');

n:=readkey;

case n of

'1':begin

writeln('monday');

end;

'2':begin

writeln('tuesday');

end;

'3':begin

writeln('wednesday');

end;

'4':begin

writeln('thursday');

end;

'5':begin

writeln('friday');

end;

'6':begin

writeln('saturday');

end;

'7':begin

writeln('sunday');

end;

end;

readln

end.

Задача.Определить в какой четверти находится точка.

program chetvert;

uses crt;

var

n:char;

begin

ClrSCR;

writeln('1-pervai chetvert');

writeln('2-vtorai chetvert');

writeln('3-tretai chetvert');

writeln('4-chetvertai chetvert');

n:=readkey;

case n of

'1':begin

writeln('x>0 y>0');

end;

'2':begin

writeln('x<0 y>0');

end;

'3':begin

writeln('x<0 y<0');

end;

'4':begin

writeln('x>0 y<0');

end;

end;

readln

end.