Peruzzi
Domaćin
- Poruka
- 4.066
Ovako. Imate jedan veliki krug. I u njemu jedan manji. I sad na tom manjem ima na ivici negde jedna tacka. I onda taj manji krug pocne da se okrece i meni treba linija koju ce da ostavlja ta tacka na manjem krugu. Malo sam se baktjo sa matematikom i dobio lepo sve potrebno, i onda ajd da ubacim to sve u pascal da proverim da li radi, i nece...
Evo ga kod
program crtanje;
uses math;
{const pi=3.1415926535897932384626433832795;}
var
R,rm,a,g,x,y:real;
koren:real;
brojac:integer;
f:text;
begin
assign(f,'izlaz.dat'); reset(f);
writeln('Unesi R i r');
readln(R,rm);
for brojac:=0 to 6282 do
begin
a:=brojac/1000;
koren:=sqrt(sqr(R-rm));
g:=arcsin((rm*sin(a*R/rm))/koren+sqr(rm));
x:=cos(a+g)*koren;
y:=sin(a+g)*koren;
writeln(f, x, y);
end;
close(f);
end.
u delphi 7 kompajliram i izbacuje mi Project1.exe has raised expetion class EInOutError with message 'I/O Error 105'. Process stopped...
i obelezi red gde je writeln('');
Naravno obrisem taj red, i onda opet uradi isto i obelezi red ispod (readln('')
ovo pi stoji kao komentar jer sam se kasnije setio da je definisan u math, valjda, pa da posle ne prepisujem ponovo 30 brojeva...
R je poluprecnik velikog, rm malog kruga. a je ugao alfa koji je mali krug presao po velikom, a gama je ugao za koji se tacka pomerila u odnosu na pravac R-rm
ebiga sad treba i slika
Evo ga kod
program crtanje;
uses math;
{const pi=3.1415926535897932384626433832795;}
var
R,rm,a,g,x,y:real;
koren:real;
brojac:integer;
f:text;
begin
assign(f,'izlaz.dat'); reset(f);
writeln('Unesi R i r');
readln(R,rm);
for brojac:=0 to 6282 do
begin
a:=brojac/1000;
koren:=sqrt(sqr(R-rm));
g:=arcsin((rm*sin(a*R/rm))/koren+sqr(rm));
x:=cos(a+g)*koren;
y:=sin(a+g)*koren;
writeln(f, x, y);
end;
close(f);
end.
u delphi 7 kompajliram i izbacuje mi Project1.exe has raised expetion class EInOutError with message 'I/O Error 105'. Process stopped...
i obelezi red gde je writeln('');
Naravno obrisem taj red, i onda opet uradi isto i obelezi red ispod (readln('')
ovo pi stoji kao komentar jer sam se kasnije setio da je definisan u math, valjda, pa da posle ne prepisujem ponovo 30 brojeva...
R je poluprecnik velikog, rm malog kruga. a je ugao alfa koji je mali krug presao po velikom, a gama je ugao za koji se tacka pomerila u odnosu na pravac R-rm
ebiga sad treba i slika