home *** CD-ROM | disk | FTP | other *** search
/ Hráč 1997 December / Hrac_16_1997-12_cd.bin / PCMANIAK.5 / PASKA / MANIAK2.PAS < prev    next >
Pascal/Delphi Source File  |  1997-10-26  |  1KB  |  32 lines
  1. Program Scitanie;
  2.  
  3. var a,b, sucet : integer; { za var nasleduje definicia premennych.
  4.                             Premenne su charakterizovane najakym slovom
  5.                             (a,b,sucet) a ich hodnota sa moze menit.
  6.                             Dalej su charakterizovane typom (integer,
  7.                             co znamena celocislene (cila v rozsahu
  8.                             -32768..32767)). }
  9.  
  10. Begin
  11.  
  12. Writeln('Zadaj cislo');
  13. Readln(a);                      { do premennej A nacita z klavesnice cislo }
  14.  
  15. Writeln('Zadaj dalsie cislo');
  16. Readln(b);                      { do premennej B nacita z klavesnice cislo }
  17.  
  18. sucet:=a+b;                     { premennej SUCET priradi hodnotu (sucet:=)
  19.                                   suctu cisel v premennych A a B (a+b).
  20.                                   Ak by sme mali premennej A priradit hodnotu
  21.                                   suctu cisel v premennych SUCET a B vyzeralo
  22.                                   by to takto:    A := SUCET + B }
  23.  
  24. Write(a,' + ',b,' = ',sucet);   { vypise hodnotu premennej A dalej medzeru,
  25.                                   plus, medzeru, hodnotu premennej B, medzeru,
  26.                                   znak rovna sa, medzeru, hodnotu premennej SUCET,
  27.                                   takze to moze vyzerat asi takto 10 + 18 = 28 }
  28.  
  29.  
  30. Readln;   { caka na stlacenie ENTERu }
  31.  
  32. End.