Исходные данные к работе и предварительные расчеты

Исходные данные к работе:

1) Действительные числа x и y типа REAL.

Предварительные расчеты:

1) Если x=2, y=1, x>y, значит по условию 2-1=1;

2) если x=1, y=2, значит по условию 2-1+1=2;

3) в противном случае x=1, y=1→Ошибка.

Реализация алгоритма.

Словесная форма записи алгоритма.

1) Ввести в компьютер значение x;

2) Ввести значение y;

3) Рассчитать ;

4) Вывести на экран компьютера значение z.

Графический способ записи алгоритма (в виде блок-схемы):

начало

Введите x,y

x>y

да нет

x<y

z=x-y

да нет

z=y-x+1

конец

Вывод z

Ошибка

Запись алгоритма на языке Паскаль:

program RVP;

uses crt;

var x,y:real;

z:real;

BEGIN

clrscr;

write('x=');

readln(x);

write('y=');

readln(y);

if x>y then begin

z:=x-y;

writeln('z=',z);

end else

if x<y then begin

z:=y-x+1;

writeln('z=',z); end else

writeln ('Ошибка:нет решения,когда x=y.');

readln;

END.