PrintLn???

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Kupio sam skoro knjigu "Programsko Okruženje Delphi 4 sa rešenim zadacima" Lasla Krausa. U njoj sam našao sledeći primer:

program Trougao; function P (A: Real = 2; B: Real =2; C: Real = 2): Real;          var S: real;          begin               S := (A + B + C) / 2;               P := Sqrt (S * (S - A) * (S - B) * (S - C));          end; begin PrintLn ('P        =  ',   P:        4.2); PrintLn ('P(3)     =  ',   P(3):     4.2); PrintLn ('P(3,4)   =  ',   P(3,4):   4.2); PrintLn ('P(3,4,5) =  ',   P(3,4,5): 4.2); end.

Ne koristim Delphi, pa ne znam da li stvarno postoji funkcija "PrintLn". Ali me zanima da li postoji ili ne. Koliko ja znam PrintLn je metod Javinog objekta SystemOut... Da nije autor pomešao nešto ili da nije u pitanju štamparska greška (ne kompajlira se pod mojim kompajlerom - a treba li bi... Ovo prilično liči na ANSI Pascal).

Pošto imam ograničeno znanje Pascala (preferiram C, ali mi je trenutno potreban Pascal) posegao sam za jednim malim tutorijalom sa neta... Uz pomoć njega, za par sekundi sam ono gore prepravio u ovo:

program Trougao; function P (A: Real = 2; B: Real =2; C: Real = 2): Real;          var S: real;          begin               S := (A + B + C) / 2;               P := Sqrt (S * (S - A) * (S - B) * (S - C));          end; begin WriteLn ('P        =  ',   P         :4:2); WriteLn ('P(3)     =  ',   P(3)      :4:2); WriteLn ('P(3,4)   =  ',   P(3,4)    :4:2); WriteLn ('P(3,4,5) =  ',   P(3,4,5)  :4:2); end.                                                       

To radi i kod mene... Dakle... Da ponovim pitanje: da li PrintLn postoji u Delphiju ili ne?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

PrintLn ne postoji u delfiju, bar ne genericki. Zapravo, ne postoji ni u TurboPascalu iz cega je Delphi nastao.
Verovatno je 3rd-party funkcija .
WriteLn zavrshava posao jer ta funkcija pishe liniju na sta god bilo.

Inace, batali autora koji u delfiju pishe "real" kao tip podataka....
(to je u principu "znam da prckam po delfiju, pa hajde da napisem knjigu i zaradim keke")

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

@ beli0135
Pa sta ima veze sto je stavio Real?

Laslo Kraus je, bar po meni, odlican i veoma cenjen predavac na nasim prostorima ( za godinu-dve cu videti ovo iz prve ruke posto ce da mi predaje ), a knjigu o kojij se radi sam video i jako je lepo napisana, tj. bas onako za pocetnike...

@all
E sad samo ne znam odakle se zalomi ovo PrintLn, al' 'ajd' ... U svakom slucaju beli0135 rece da se koristi WriteLn i to je to .

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

beli0135 ::PrintLn ne postoji u delfiju, bar ne genericki. Zapravo, ne postoji ni u TurboPascalu iz cega je Delphi nastao.
Verovatno je 3rd-party funkcija .
WriteLn zavrshava posao jer ta funkcija pishe liniju na sta god bilo.

Inace, batali autora koji u delfiju pishe "real" kao tip podataka....
(to je u principu "znam da prckam po delfiju, pa hajde da napisem knjigu i zaradim keke")

Bez frke... Imam ja i jednu ozbiljniju knjigu za Delphi... Samo što ova vrlo jednostavno prikazuje Delphijeve kontrole. Zbog toga mi je bila interesantna.

Inače pokušavam da se aklimatizujem na FPC/Lazarus... Pretpostavljam da bi osnovne kontrole funkcionisale na isti način. A pošto ne postoje knjige za Lazarus (bar ne ovde)... Preostaje samo ovakvo "pikanje" iz knjiga za Delphi.

Izgleda da ću, ako odlučim da nastavim da koristim ovu knjigu, morati da hvatam greške i obilato koristim literaturu sa strane. Mislim... Ako sam ja kao laik za Pascal u prvom primeru uočio par grešaka... Mada me to iznenađuje: Laslo Kraus je autor nekoliko knjiga o programiranju...

BTW, hvala.

Dopuna: 28 Mar 2006 20:26

Strog ::a knjigu o kojij se radi sam video i jako je lepo napisana, tj. bas onako za pocetnike...

Da... Zato sam je i uzeo... Izgleda ok... Ali ne znam da li su takve greške dopustive. A posebno me iznenađuje što je u pitanju autor koji je poznat po pisanju takve literature...

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Strog ::@ beli0135
Pa sta ima veze sto je stavio Real?

Pa to je u neku ruku kao "skolski" tip. Kod izrade oprofesionalnih programa uvek se preporucuje koristiti extended, posebno ako se radi o nekim novcanim jedinicama i sl. zbog broja znacajnih cifara.

Verovatno je Beli mislio na to?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Pa ne znam, ali i ja najcesce koristim real posto bi mi extended bez veze trosio vise memorije ...

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Sto se tice one greske oko PrintLn, moguce je da je pogresio posto Laslo predaje i Javu (na VETS) pa se greska mogla desiti.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Ako se dobro secam, u Fortranu je isto postojao PrintLn.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

@Nullcode i @Strog

Obojica ste malo pogresili...

Real je implementiran samo zbog Backward compatability i nije Delphi-native tip. To je u stvari "Double". Posle su napravili typecast u stilu type Real:Double;

Ne znam zasto je preporucljivo koristiti Extended?! Koristis ono sta ti treba. Iskreno, u 99.99% slucajeva je dovoljan Double.

Ako ti broj nije velik i ne treba velika preciznost, koristi se single. Ako je normalni racionalni broj, Double zadovoljava sve potrebe.
Samo za extremnu preciznost (kao napr, kod proracuna navigacijskih tacaka, atomske fizike i sl.) ti treba Extended.

Double ima 13 decimala, sta ce ti vise?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

snoop ::Sto se tice one greske oko PrintLn, moguce je da je pogresio posto Laslo predaje i Javu (na VETS) pa se greska mogla desiti.

Izgleda da je bas ovo u pitanju. Kasnije se ispravio... Inace, ako zanemarimo ovo, knjiga predstavlja jednostavan uvod u Delphi. Nije tako losa.