Методические рекомендации по выполнению практического занятия по 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.



Рисунок 115