Методические рекомендации по выполнению практического занятия по TurboPascal по теме разветвляющие алгоритмы

Практическое задание по TurboPascal_Разветвляющаяся структура

Program Example_1;

Var x,y:integer;

Begin

                Writeln('Введите два числа');

                Readln(x,y);

                If x>y     then Writeln(x)                 {если (If) x больше y, то (Then) выводим x}

                               else Writeln(y); {иначе (Else) выводим y}

End.

Program Example_2;

Var x:integer;

Begin

Writeln('Введите значение переменной x= ');

Readln(x);

                If x<0     then x:=-x;

Writeln(x);        

End.

Program Example_3;

Var x:integer;

Begin

                Writeln('Введите значение переменной x= ');

                Readln(x);

                If (x>0) and (x<5) then Writeln(x,'принадлежит интервалу (0,5)')

                                                  else Writeln(x,'не принадлежит интервалу');

End.

Program Example_4;

Var ch:char;

Begin

                Writeln('Введите символ');

                Readln(ch);

                Case ch of

                'а'--'я','А'--'Я': Writeln('Это буква русского алфавита');

                'a'--'z','A'--'Z': Writeln('Это буква английского алфавита');

                Else

                Writeln ('Этот символ не является буквой')

End;      

End.