Hodnoty souradnic krivky – Pascal – Fórum – Programujte.com

Ahoj, muze mi nekdo prosim pomoci s timhle ukolem. Neumim s tim ani pohnout. Alespon nejaky navod jak na to. Dik.

zadani:
Uvazujte parametricky zadanou krivku

[URL=http://www.imghosting.cz/view-91mimetex.cgi.gif]

Níže uvedený kód bude fungovat určitě, ovšem nevím jestli to je přesně to co se po tobě požaduje.
Nicméně, ten výpočet bodů x a y můžeš použít. Změnou konstanty c můžeš měnit počet bodů.
Počet bodů je 10*c+1. Nastaveno na 2001 bodů, pravidelně pokrývající interval <0,10*Pi>

program cvic1;

{$APPTYPE CONSOLE}

uses
SysUtils;
const c = 200;
var i: Integer;
x,y: Double;
s: String;
f: TextFile;
begin
Assign(f,'cvic1.txt');
ReWrite(f);
for i := 0 to c*10 do
begin
x := cos(i*Pi/c)+cos(i*2*Pi/(5*c))/5;
y := sin(i*Pi/c)-sin(i*2*Pi/(5*c))/5;
s := Format('%1.8f',[x])+' '+Format('%1.8f',[y]);
WriteLn(s);
WriteLn(f,s);
end;
Close(f);
ReadLn;
end.

To Honzc :
Super, dik.
Vykresleny graf mi vysel spravne.