pozalusta pomogite na4ertitj x^2 :))

[mike]

menja 4eto zatupilo posle dolgogo rastanija s paskaljem !

kak na paskalje napisatj ispoljzuja unit graph, y=x^2 (x vkvadrate!)???

[.: }|{ Y K :.]

Есть один вариант, но она немного квадратная

x:=-20;
While x<=20 do
begin
y:=-Sqr(x); {20(pxl) - один единичный отрезок}
PutPixel((x *20 + getmaxx div 2), (y*20 + getmaxy div 2), white);
x:=x + 1;
end;

[Alexander]

А может так ?

Код: Выделить всё

uses math;

var
    x, y : Extended;
    z    : Longint;

begin

x := 5;

y := power(x, 2);

z := Round(y);

WriteLn(z);

end.

[mike]

zdesj on ze ne 4ertit parabolu!!!