Sqrt a sqr – Pascal – Fórum – Programujte.com

 uses crt,graph;

var x,z:real;

    y:integer;

    Gd, Gm: Integer;

begin

  Gd := Detect;

  InitGraph(Gd, Gm, 'C:/tp/bgi');



 for y:=1 to 200 do

  begin

    z:=478*y-17121-y*y;

    x:=sqrt(z)+319;

    putpixel(round(x),y,15);

  end;

  readln;

  closegraph;



end.

Premenna "z" vychadza zaporne číslo a z toho ti odmocnina spravit nepojde...

No mas pravdu tam mali byt pri nasobeni zatvorky, pred tym som ich tam mal. Ale problem bol v niecom inom. Ked som do z priradil cislo vacsie ako 2 na 15-tu tak mi vznikol nejaky zaporny nezmysel a az potom to blblo. Som to upravil na mensie cisla a ide to.... :tuc: Ale diky