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

Паскаль

Question

Информатика

Костюня

5 октября, 06:14

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

Паскаль

+3

Ответы (1)

Знаешь ответ?

Катюля · Answer 1

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.

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

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

Паскаль