Помогите написать фрагмент программы на основе заданного алгоритма в паскале:

Ввод x, y;

Если (x>0) или (y<0) то m=x+y/xy;

Если (x0) то m = (x-y) (x+y) ;

Вывод m;

Question

Информатика

Лидуня

21 июля, 20:47

Помогите написать фрагмент программы на основе заданного алгоритма в паскале:

Ввод x, y;

Если (x>0) или (y<0) то m=x+y/xy;

Если (x0) то m = (x-y) (x+y) ;

Вывод m;

+1

Ответы (1)

Знаете ответ на вопрос?

Мишуня · Answer 1

Обратите внимание, если во втором условии y>=0, то необходимо заменить знак в программе

program ryazantsev;

var x, y, m:real;

begin

m:=0;

readln (x, y) ;

if (x>0) and (y<0) then m: = (x+y) / (x*y) ;

if (x0) then m: = (x-y) / (x+y) ; / / y>0 или y>=0 - у вас ошибка в условии

writeln (m)

end.

Помогите написать фрагмент программы на основе заданного алгоритма в паскале:Ввод x, y;Если (x>0) или (y<0) то m=x+y/xy;Если (x0) то m = (x-y) (x+y) ;Вывод m;

Помогите написать фрагмент программы на основе заданного алгоритма в паскале:

Ввод x, y;

Если (x>0) или (y<0) то m=x+y/xy;

Если (x0) то m = (x-y) (x+y) ;

Вывод m;