Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Zasto ne radi???

[es] :: Pascal / Delphi / Kylix :: Zasto ne radi???

[ Pregleda: 3092 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

kUdtiHaEX
Beograd, Yugoslavia

Član broj: 3372
Poruke: 2598
*.beotel.net

ICQ: 167621705
Sajt: www.webhost.co.yu


+4 Profil

icon Zasto ne radi???19.04.2002. u 15:23 - pre 240 meseci
Evo ga program koji sam napisao u pascalu...zasto ne radi??
-----------------------------------------------------------------------
program abc;
var
I:longint; F, S:real;
begin
S:=0; F:=1;
For I:=1 to 2*2*2*2*2*2*2*2*2*2*2*2*2*2*2*2*2*2*2*2*2 do {inace umesto ovih dvojki treba da bude 2^50}
begin
F:=sin(i)+cos(i);
S:=S+F;
end;
writeln ('S=',S);
readln;
end.
---------------------------------------------------------------------------------------------

Internet ne cini ljude glupima. Internet cini ljudsku glupost dostupnijom (TM by me)

Webhost Hosting Services
 
Odgovor na temu

Genie
Stojkovic Igor
Smederevo

Član broj: 100
Poruke: 54
*.ptt.yu

Sajt: galeb.etf.bg.ac.yu/~stojk..


Profil

icon Re: Zasto ne radi???19.04.2002. u 16:46 - pre 240 meseci
Pa cini mi se da 2^50 ne moze da stane u LongInt. Moraces da koristis vise usadjenih petlji.
 
Odgovor na temu

Dejan Krstic

Član broj: 479
Poruke: 2558



+1 Profil

icon Re: Zasto ne radi???20.04.2002. u 19:55 - pre 240 meseci
Tacno, nema sanse da stane u longint.

Probaj sa do while ili repeat until petljama.
 
Odgovor na temu

kUdtiHaEX
Beograd, Yugoslavia

Član broj: 3372
Poruke: 2598
*.beotel.net

ICQ: 167621705
Sajt: www.webhost.co.yu


+4 Profil

icon Re: Zasto ne radi???21.04.2002. u 00:00 - pre 240 meseci
Zanimljivo upravo sam naterao prog da radi sa 2^50...ali znate sta se desava?
Pa dobijete rezultat sa - predznakom i onda se komp zakucava na neodredjeno vreme (probao sa w98)....:)
Internet ne cini ljude glupima. Internet cini ljudsku glupost dostupnijom (TM by me)

Webhost Hosting Services
 
Odgovor na temu

Riste Pejov
Team Leader/Senior Software Developer @
Ein-Sof ltd Skopje
Skopje, Macedonia

Član broj: 128
Poruke: 571
*.mt.net.mk

Jabber: richie@bagra.net.mk
ICQ: 154236769
Sajt: riste.softver.org.mk


Profil

icon Re: Zasto ne radi???21.04.2002. u 02:27 - pre 240 meseci
Program se ne zakucava :)
nego jednostavno on udje u petlju a ne procesira ostale poruke koje dobija
forma,

na kraju petlje samo stavi: Application.ProcessMessages;

za da aplikacije posle svaku iteraciju unutar petlje procesira poruke koje su
poslane za njene forme, itn...
ukoliko hoces da presmetas 2^50 ili koji bilo exponent moze se posluziti
sa ln i exp funkcije

Code:

FUNCTION POWER (X: REAL; Y: REAL): REAL;
{        Raises X to the Yth power.                                    }
{        X may not be negative. If X is 0, then Y must be positive.    }
BEGIN
     IF X > 0 THEN
        POWER := EXP (Y * LN (X))
     ELSE
        IF X < 0  THEN
           Message ('Error: Cannot raise negative numbers.')
        ELSE                                               { Thus X=0. }
           IF Y > 0
              THEN POWER := 0
           ELSE
              Message ('Error: Cannot raise 0 to non-positive numbers.')
END;


ako ti trebaju stvarno veliki brojevi onda pokusaj sa Int64 za celobrojnih tipova
i Extended za real tipova.
People who think they know everything tend to irritate those of us who do.
 
Odgovor na temu

Voodoo
Novi Beograd

Član broj: 3508
Poruke: 488
*.verat.net



+1 Profil

icon Re: Zasto ne radi???23.04.2002. u 17:37 - pre 240 meseci
Za Pascal ne znam, ali probaj u Delphiju sa {$APPTYPE CONSOLE} da umesto LongInt stavis Int64 (to jest 64-bitni integer).
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Zasto ne radi???

[ Pregleda: 3092 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.