Рассчитать значение функции y=5x^2+x^2-7x-30 для значений аргумента 0; 1; 1,5; 6; -4
program функция;
var a, b, c, d, e, x1, y1: real;
procedure fun (var x, y: real) ;
begin
y1 : =5*x*sqr(x)+sqr(x) - 7*x-30;
end;
begin
read (a, b, c, d, e);
fun (a, y1) ;
write (y1) ;
fun (b, y1) ;
write (y1) ;
fun (c, y1) ;
write (y1) ;
fun (d; y1) ;
write (y1) ;
fun (e, y1) ;
write (y1) ;
end.

заранее !

Редискa    1   05.11.2019 09:11    1