Пример. Month =(jan,feb,mar,apr,may,jun,

Type

Month =(jan,feb,mar,apr,may,jun,

Jul,aug,sept,oct,nov,dec);

Var tec_mes: Month;

If tec_mes=okt then writeln(‘октябрь’);

If tec_mes<apr then writeln(‘первый квартал’);

Case tec_mes of

Jan.feb,mar:writeln(‘1 rv’);

…

Oct.nov,dec:writeln(‘4 rv’);

End;

Пример. Вычислить значения функций f и g:

Написать две программы, использующие:

· вещественные значения;

· целочисленную арифметику (целочисленные данные, промежуточные и конечные результаты, операции целочисленной арифметики, константу MAXINT, диапазоны оператора выбора Case).

Program example1;

{Программирование ветвящихся вычислительных процессов}

{использование вещественных значений }

Uses Crt;

Var

x,y,f,g:Real;

Begin

Clrscr; {Очистка экрана}

WriteLn('Введите значения x,y');

ReadLn (x,y);

WriteLn ('При x=',x:5:2,' y=',y:5:2);

If x+y<0 then

Begin

WriteLn ('x+y=',x+y:5:2,'<0');

f:=1/sqrt(x*x+y*y);

g:=x-y;

End

Else

If x+y<=5 then

Begin

WriteLn ('0<=x+y=',x+y:5:2,'<=5');

f:=2*x*y;

g:=2*x+3;

End