Pascal, Детальна інформація

program zanattia3_variant1;

uses crt;

var

y:real;

x:real;

h:real;

begin

clrscr;

x:=-3;

h:=1.2;

repeat

y:=2*sqr(x-1)+3;

writeln(' y=',y:7:5,' при x=',x:7:5);

x:=x+h;

until x>5;

end.

Р Е З У Л Ь Т А Т И Р О Б О Т И П Р О Г Р А М И :

______________________________________________________________________________

y=35.00000 при x=-3.00000

y=18.68000 при x=-1.80000

y=8.12000 при x=-0.60000

y=3.32000 при x=0.60000

y=4.28000 при x=1.80000

y=11.00000 при x=3.00000

y=23.48000 при x=4.20000

______________________________________________________________________________

program zanattia3_variant2;

uses crt;

var

y:real;