Nece radi. Pascal
Prikazujem rezultate 1 do 7 od 7

Tema: Nece radi. Pascal

  1. #1
    Peruzzi nije na forumu
    је дошао тихо и ушао у легенду...
    Domaćin Peruzzi (avatar)
    Učlanjen
    03.08.2003.
    Pol
    muški
    Lokacija
    Shumadija
    Poruke
    3.924
    Reputaciona moć
    92

    Podrazumevano 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




  2. #2
    Peruzzi nije na forumu
    је дошао тихо и ушао у легенду...
    Domaćin Peruzzi (avatar)
    Učlanjen
    03.08.2003.
    Pol
    muški
    Lokacija
    Shumadija
    Poruke
    3.924
    Reputaciona moć
    92

    Podrazumevano Re: Nece radi. Pascal

    evo je slika

    valjda ste shvatili sta mi treba


  3. #3
    Obećava Nemanja666 (avatar)
    Učlanjen
    27.05.2006.
    Poruke
    99
    Reputaciona moć
    43

    Podrazumevano Re: Nece radi. Pascal

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

  4. #4
    Peruzzi nije na forumu
    је дошао тихо и ушао у легенду...
    Domaćin Peruzzi (avatar)
    Učlanjen
    03.08.2003.
    Pol
    muški
    Lokacija
    Shumadija
    Poruke
    3.924
    Reputaciona moć
    92

    Podrazumevano Re: Nece radi. Pascal

    sta ce mi direktiva?


  5. #5
    Iskusan
    Učlanjen
    06.12.2004.
    Poruke
    5.596
    Reputaciona moć
    103

    Podrazumevano Re: Nece radi. Pascal

    [font=Verdana]Da bi prevodioc znao da je u pitanju tekst aplikacija i da bi read/write vezani na standradni ulaz i izlaz radili.[/font]

  6. #6
    Obećava Nemanja666 (avatar)
    Učlanjen
    27.05.2006.
    Poruke
    99
    Reputaciona moć
    43

    Podrazumevano Re: Nece radi. Pascal

    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);

  7. #7
    Peruzzi nije na forumu
    је дошао тихо и ушао у легенду...
    Domaćin Peruzzi (avatar)
    Učlanjen
    03.08.2003.
    Pol
    muški
    Lokacija
    Shumadija
    Poruke
    3.924
    Reputaciona moć
    92

    Podrazumevano Re: Nece radi. Pascal

    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


Slične teme

  1. Opera nece da radi
    Autor Salexiya u forumu Mobilna telefonija
    Odgovora: 0
    Poslednja poruka: 21.02.2009., 03:23
  2. DIRT nece na visti da radi
    Autor Nemke16 u forumu Video igre
    Odgovora: 8
    Poslednja poruka: 18.02.2009., 12:56
  3. Webcam neće da mi radi
    Autor jegor u forumu Hardver
    Odgovora: 3
    Poslednja poruka: 19.06.2007., 13:06
  4. instaliran outrun2006 i neće da radi-šta sad?
    Autor ssky u forumu Video igre
    Odgovora: 5
    Poslednja poruka: 11.10.2006., 10:32
  5. Nece Da mi radi mikrofon?!
    Autor Sasa Zuber u forumu Hardver
    Odgovora: 3
    Poslednja poruka: 31.03.2006., 21:48

Pravila za slanje poruka

  • Ne možete kreirati novu temu
  • Ne možete poslati odgovor
  • Ne možete dodati priloge
  • Ne možete prepraviti svoju poruku
  •