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

Rozšířené hledání ›

Nejnovější témata ve fóru

22:06, Startupy Megastroj.cz – Vše na jednom místě: půjčovna, bazar a inze…

21:17, Inzerce FPGA vývojová deska XILINX VIRTEX 5 ML507

20:59, OS - GNU / Linux Ubuntu a OpenSuse

21:47, Offtopic Digitalizace v Česku

10:10, Cinema 4D Export USDC do DaVinci Resolve

16:58, Photoshop Jak odstranit (potlačit) odlesky

Stavba Laser Arény
Laser Game Brno

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]

[/URL]

napište program, který vypíše dva sloupce čísel podobné nasledujícim
0.0000000 1.34678684
0.00203456 1.37263873
...
-0.00203456 1.37263873
0.0000000 1.34678684

tak, aby každý řádek obsahujíci souřadnice x,y odpovídal určité hodnotě parametru t, který zvolíte tak aby t řádek od řádku rostlo, a jeho hodnoty nekolika tisíci body rovnoměrně pokrývaly celý interval <0,10pi>.
Až bude program na konzoli vypisovat kýžené dva sloupečky, přesměrujte pomocí > jeho výstup do souboru
C:\mujadresar\cvic1\debug\cvic1.exe > cvic1.txt

Nahlásit jako SPAM

IP: 78.128.181.–

Blog.Glor.cz - blog nejenom o cestování

Honzc 0

Stálý člen

1. 11. 2010 #2

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.