Nece radi. Pascal

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 je slika

valjda ste shvatili sta mi treba

prvo uzmes konsolu da radis sa file new console application.
inace ti gore fali direktiva {$APPTYPE CONSOLE}

sta ce mi direktiva?

Ovako prvo se mora da se pravi console applikacija, a ne vlc.
File -> New -> Other -> Console Application
i napises onaj kod a ispod program crtanje; stavi onu direktivu

drugo kod

assign(f,'izlaz.dat'); reset(f);

nevalja moras zvati procedure rewrite(f); umjesto reset(f);

exit code 217

dzabe....

sacu pogledam na netu za sta je taj exitcode


nego pogledajte na moju novu temu za binarne brojeve, pa pomognite tu

ovo i nije toliko bitno vise