Question

Ребята, очень нужна понятная и доступная помощь в Pascal, посмотрите на баллы.
Написать программу: вычислить значение переменной у по одной из двух ветвлений. (данные прикреплены). Надеюсь на вашу помощь, желательно на листке написать и тоже прикрепить, но можно и без.

Answer 1

program ClarisVerbis;

var
  x,y:real;

begin
  Write('x='); Read(x);
  if x>0 then y:=x*x
  else y:=x+2;
  Writeln('y=',y)
end.

Answer 2

Я думаю, условие написано неверно. надо найти y, поэтому там должно быть x везде.

Answer 3

угу

Answer 4

что именно неверно? в чем загвоздка? учитель трактовал задание именно так, у = данной системе.

Answer 5

Во-первых, это никакая не система. Это определение кусочной функции. Во-вторых Вы как собираетесь y определять через y ? Там вместо y должно стоять х.

Answer 6

Var
y,x,z:real;
Begin
write('Введите x: ');
readln(x);
write('Введите у: ');
readln(y);
if x>0 then 
z:=sqr(y)
else 
z:=y+2;
Writeln('z=',z);
readln;
end.