Добавил:
mihail1000
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Учебное пособие 1718.pdf
начало
выражени
P1 |
истина |
|
|
Действие 1 |
|||
|
|||
ложь |
|
|
|
истина |
|
||
|
|
||
P2 |
|
Действие 2 |
ложь
………………………………………………………….
истина
Pn |
Действие n |
ложь 
Действие n +1
конец
Примеры решений задач
1. Даны действительные числа х и у. Получить max(x,y).
Program maximum;
Var x,y:real;
Begin
Write('Введите х и у');
Readln(x,y);
If x>y then m:=x else m:=y;
71