[es] - .bas >>>2>>> .pas source

Frojd

Član broj: 58694
Poruke: 38
*.dialup.neobee.net.

Profil

^{28.06.2005. u 09:27 - pre 228 meseci}

moze li neko ovaj kod iz basica da prebaci u pascal? ja sam pokusao ali negde sam pogresio

Code:

INPUT t1
INPUT t
INPUT t2
tbb = t1 / 2 + 2 * t
tzb = t2 / 2
IF tbb / tzb = tbb \ tzb THEN PRINT "blago": END
tbu = t1 / 2
IF tbu / tzb = tbu \ tzb THEN
PRINT "ulaz"
ELSE PRINT "pobego"
END IF
END

Code:

program os1okr05;
var
t1,t,t2,tbb,tzb,tbu:real; *trebalo bi tu da bude mozda integer
label kraj;
begin
     readln(t1);
     readln(t);
     readln(t2);

     tbb:=t1/2+2*t;
     tzb:=t2/2;
     if tbb/tzb=(tbb div tbb) then writeln('blago');goto kraj;
     tbu:=t2/2;
     if tbu/tzb=tbu div tzb then
        writeln('ulaz');
     else
         writeln('pobego');
     end
kraj end.

Odgovor na temu

Nemanja Avramović
Engineering Manager
MENU Technologies
Beograd, Srbija

Član broj: 32202
Poruke: 4391
*.yu1.net.

Sajt: https://avramovic.info

+46 Profil

Re: .bas >>>2>>> .pas source

^{28.06.2005. u 11:38 - pre 228 meseci}

ne znam tacno gde ti je greska, ali vidim jos jednu, vecu gresku: NIKAD NE KORISTI GOTO u pascalu!!!! da izadjes iz procedure koristi EXIT;

isto tako, sta ti znaci ono kraj end. ?

_{[Ovu poruku je menjao JaHvram dana 28.06.2005. u 12:48 GMT+1]}

Laravel Srbija.

_{[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]}

Odgovor na temu

Toyo

Član broj: 45193
Poruke: 227
*.kovnet.co.yu.

+1 Profil

Re: .bas >>>2>>> .pas source

^{28.06.2005. u 11:50 - pre 228 meseci}

Ako hoces da ti radi isto kao onaj prvi:
obrisi goto :kraj
i naravno labelu :kraj gde god da se nalazi

_{[Ovu poruku je menjao Toyo dana 28.06.2005. u 12:50 GMT+1]}

Odgovor na temu

Frojd

Član broj: 58694
Poruke: 38
*.com
Via: [es] mailing liste

Profil

Re: .bas >>>2>>> .pas source

^{29.06.2005. u 11:24 - pre 228 meseci}

mislim da je div celobrojno deljenje a meni treba sledece: da se utvrdi da
li je broj deljiv bez ostatka (jao sad sam se setio da treba da koristim
mod)...
i kako u nekim slozenim logickim struktirama da izbegava goto?

Odgovor na temu

Toyo

Član broj: 45193
Poruke: 227
*.kovnet.co.yu.

+1 Profil

Re: .bas >>>2>>> .pas source

^{29.06.2005. u 11:47 - pre 228 meseci}

Postuj neku po tebi, jako slozenu strukturu (sa goto) pa ces da dobijes prevod (bez goto).

Odgovor na temu

Bojan Kopanja
Bojan Kopanja
Senior Web Developer, ZeusSoftware
Stara Pazova

Član broj: 6155
Poruke: 507
80.93.238.*

ICQ: 346697685
Sajt: www.zeussoftware.rs

Profil

Re: .bas >>>2>>> .pas source

^{29.06.2005. u 21:03 - pre 228 meseci}

goto se prevazilazi repeat until ili while petljama tako da stvarno zaboravi na goto i prebaci se na ove varijante! BTW ne koristi ni exit jer ti je to isti djavo, sa ovim petljama sve to resavas jako lepo i elegantno

.

_{[Ovu poruku je menjao Strog dana 29.06.2005. u 22:04 GMT+1]}

ex Strog

http://www.zeussoftware.rs

Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949

+10 Profil

Re: .bas >>>2>>> .pas source

^{29.06.2005. u 22:31 - pre 228 meseci}

Ja cesto koristim Exit i Continue procedure... mnogo je mi je lakse da citam kod ako pise recimo

Code:
procedure Osvezi;
  if not FEnabled then Exit;
  Uradi ovo
  Uradi ono
  .
  .
  .
end;

nego

Code:
procedure Osvezi;
  if FEnabled then
  begin
    Uradi ovo
    Uradi ono
    .
    .
    .
  end;
end;

Pogotovo ako ima mnogo koda izmedju begin i end u jos mnogo if...then...else. Uvek koristi ono sto ti pomaze da lakse pregledas kod i da lakse uocavas greske.

Play Store

Odgovor na temu

Nemanja Avramović
Engineering Manager
MENU Technologies
Beograd, Srbija

Član broj: 32202
Poruke: 4391
*.yu1.net.

Sajt: https://avramovic.info

+46 Profil

Re: .bas >>>2>>> .pas source

^{29.06.2005. u 23:55 - pre 228 meseci}

Citat:

Srki_82:
Pogotovo ako ima mnogo koda izmedju begin i end u jos mnogo if...then...else. Uvek koristi ono sto ti pomaze da lakse pregledas kod i da lakse uocavas greske.

ali izbegavaj goto ;)

Laravel Srbija.

_{[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]}

Odgovor na temu

Frojd

Član broj: 58694
Poruke: 38
*.com
Via: [es] mailing liste

Profil

Re: .bas >>>2>>> .pas source

^{30.06.2005. u 12:08 - pre 228 meseci}

a kako se u pascalu obradjuju greske? u vb otkucam on error GOTO
errorHandler i resena stvar

Odgovor na temu

Burgos
Nemanja Borić
Amazon Web Services
Berlin

Član broj: 12484
Poruke: 1947
*.smin.sezampro.yu.

Sajt: stackoverflow.com/users/1..

+480 Profil

Re: .bas >>>2>>> .pas source

^{30.06.2005. u 13:34 - pre 228 meseci}

Ja obicno napisem proceduru, pa je pozovem.

_{[Ovu poruku je menjao Burgos dana 30.06.2005. u 14:35 GMT+1]}

Odgovor na temu

Nemanja Avramović
Engineering Manager
MENU Technologies
Beograd, Srbija

Član broj: 32202
Poruke: 4391
*.yu1.net.

Sajt: https://avramovic.info

+46 Profil

Re: .bas >>>2>>> .pas source

^{30.06.2005. u 14:12 - pre 228 meseci}

logicno ;)

mozes sa try except end... mislim... ;)

Laravel Srbija.

_{[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]}

Odgovor na temu