Вычислить у(х), если у=х^2 при х> 1 и у=х при х< =1 паскаль

glushkovanastya glushkovanastya    3   15.06.2019 01:50    5

Ответы
Roma1231 Roma1231  12.07.2020 12:10
Function Y(x:real):real;
begin
  if x > 1 then Y := sqr(x)
  else Y := x;
end;

var x: real;
begin
  write('x = '); readln(x);
  writeln('y(', x, ') = ', Y(x));
  writeln;
  
  // Табуляция
  x := -1;
  repeat
    writeln('y(', x:4:1 , ') = ', Y(x):5:2);
    x := x + 0.5;
  until x > 2;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика