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

x:real;

h:real;

begin

clrscr;

x:=-3;

h:=1.2;

while x<5 do begin

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

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

x:=x+h;

end;

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

Висновок: закріпив основні навички роботи з усіми видами циклів, умов, рівнянь та математичнимх функцій в Torbo Pascal, виконав всі завдання по розробці програм з циклами та розгалудженнями, які надає мова Pascal.