home *** CD-ROM | disk | FTP | other *** search
/ Hráč 1997 December / Hrac_16_1997-12_cd.bin / PCMANIAK.5 / PASKA / MANIAK3.PAS < prev   
Pascal/Delphi Source File  |  1997-10-26  |  789b  |  28 lines

  1. Program MATEMATIKA;
  2.  
  3. var a,b, sucet,sucin,podiel,rozdiel : real; { typ REAL su realne cisla,
  4.                                               cize cisla v rozsahu
  5.                                               2,9.10-39..1,7.10+38 aj
  6.                                               s desatinou ciarkou }
  7.  
  8. Begin
  9.  
  10. Writeln('Zadaj cislo');
  11. Readln(a);
  12.  
  13. Writeln('Zadaj dalsie cislo');
  14. Readln(b);
  15.  
  16. sucet:=a+b;                { znamienka: sucet cisel   + }
  17. sucin:=a*b;                {            sucin cisel   * }
  18. rozdiel:=a-b;              {            rozdiel cisel - }
  19. podiel:=a/b;               {            podiel cisel  / }
  20.  
  21. Writeln('Sucet : ',sucet:8:2);
  22. Writeln('Sucin : ',sucin:8:2);
  23. Writeln('Rozdiel : ',rozdiel:6:2);
  24. Writeln('Podiel : ',podiel:7:2);
  25.  
  26. Readln;
  27.  
  28. End.