[Remember]

Повідомлення від <SANTA>

Умова:

Обчислити послідовності значень функцій:
Р1(х)=х
Р2(х)=(3*х*х-1)/2
Р3(х)=(5*х*х-3*х)/2
Для значень аргументу Х=0; 0,05; 0.1, … ,20

Program a;
uses crt;
var x,P1,P2,P3:real;
begin
x:=0;
repeat
P1:=x;
P2:=(3*x*x-1)/2;
p3:=(5*x*x-3*x)/2;
writeLn('P1=',P1);
writeLn('P2=',P2);
writeLn('P3=',P3);
x:=x+0.05;
until x=20;
repeat
;
until keypressed;
end.