Avaleht
uus teema   vasta Tarkvara »  Programmeerimine »  Programmeerimine Pascalis märgi kõik teemad loetuks
märgi mitteloetuks
vaata eelmist teemat :: vaata järgmist teemat
Hinnavaatlus :: Foorum :: Uudised :: Ärifoorumid :: HV F1 ennustusvõistlus :: Pangalink :: Telekavad :: HV toote otsing
autor
sõnum Saada viide sõbrale.  :: Teata moderaatorile teata moderaatorile
otsing:  
lauriurbal
HV vaatleja

liitunud: 04.01.2012
sõnum 09.02.2012 00:19:56 Programmeerimine Pascalis vasta tsitaadiga
Tervist,

Sai vabaainena võetud C# ja Pascal (muud valikut polnud), aga nüüd olen paari kohaga jännis.

pascal:
  1.  
  2. Program KaksArvu; {Pähitehted kahe sisestatud arvuga}
  3. {$R+} {let„ituvuse kontroll}
  4. Var
  5. a,b    :SmallInt;
  6.  
  7. Begin
  8.  
  9.         Writeln('Tere');
  10.         Writeln('See programm teeb kahe sisestatud arvuga neli pähitehet.');
  11.         Writeln('Sisendarvud olgu vahemikus -32768 .. 32767.');
  12.         Write ('Sisesta esimene arv :');
  13.  
  14.  Readln(a);
  15.           IF (a>0) THEN writeln ('Arv on positiivne');
  16.           Readln;
  17.              IF  (a<0) THEN Writeln('Arv on negatiivne');
  18.         Writeln ('Sisesta teine arv :');
  19.         Readln(b);
  20.                     IF (a<b) THEN Writeln (a ,' on v„iksem');
  21.                     Readln;
  22.                         IF (b>a) THEN Writeln (b,' on suurem');
  23.  
  24.        {Arvude analyys...}
  25.  
  26.         Writeln('Arvude ',  a, ' ja ',b,' summa on ', a+b);
  27.  
  28.         {Lisage siia ka korrutamine, jagamine ja lahutamine.
  29.         Enne jagamistehet kontrollige, et jagaja ei oleks null!
  30.         Kui jagaja on null, siis teatage ekraanile, et nulliga ei saa jagada.}
  31.         Readln;
  32.         Writeln('Arvude ', a, ' ja ',b,' vahe on ', a-b);
  33.         Readln;
  34.         Writeln('Arvude ', a, ' ja ' ,b,' korrutis on ', a*b);
  35.         Readln;
  36.         if (b=0) then writeln('Nulliga ei saa jagada');
  37.         Readln;
  38.         Writeln('Arvude ', a, ' ja' ,b,' jagatis on ', a/b:2:2);
  39.         Readln;
  40.  
  41. End.                   
  42.  



Minu jaoks arusaamatuks jäi selline osa: "Kasutades Try Exept konstruktsiooni ehitage kokkujooksmiskindlaks ka sisestuse osa. Praeguses versioonis lõpetab programm veateatega, kui arv sisestatakse vigaselt - tekib ületäitumine või sisestatakse hoopis tähemärke."

Ei oska kasutada seda Try Except statementi(?)..

Keegi oskaks aidata?
tagasi üles
vaata kasutaja infot saada privaatsõnum
Fukiku
Kreisi kasutaja
Fukiku

liitunud: 06.11.2003
sõnum 09.02.2012 10:22:39 vasta tsitaadiga
Ei tea, millist Pascali dialekti täpselt kasutad, aga soovitan guugeldada märksõnasid "pascal exception handling". Pascal osa võid siis täpsustada enda Pascali täpsema nimega. Näiteks FreePascali exception handling on kirjeldatud siin: http://www.freepascal.org/docs-html/ref/refch17.html.
_________________
Foxic is just a simple fox
Enne kui sa küsid oma küsimuse - küsi seda vannipardilt! Rangelt soovitatav enne programmeerimise alafoorumisse uue teema tegemist.
Kommentaarid: 2 loe/lisa Kasutajad arvavad:  :: 0 :: 0 :: 2
tagasi üles
vaata kasutaja infot saada privaatsõnum
näita postitusi alates eelmisest:   
uus teema   vasta Tarkvara »  Programmeerimine »  Programmeerimine Pascalis
[vaata eelmist teemat] [vaata järgmist teemat]
 lisa lemmikuks
näita foorumit:  
 ignoreeri teemat 
sa ei või postitada uusi teemasid siia foorumisse
sa ei või vastata selle foorumi teemadele
sa ei või muuta oma postitusi selles foorumis
sa ei või kustutada oma postitusi selles foorumis
sa ei või vastata küsitlustele selles foorumis
sa ei saa lisada manuseid selles foorumis
sa võid manuseid alla laadida selles foorumis



Hinnavaatlus ei vastuta foorumis tehtud postituste eest.