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

Паскаль

Question

Информатика

Федан

20 июня, 00:27

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

Паскаль

+1

Ответы (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

Паскаль