home *** CD-ROM | disk | FTP | other *** search
/ Rat's Nest 1 / ratsnest1.iso / incoming / laskin.arj / LASKIN.PAS < prev   
Pascal/Delphi Source File  |  1997-01-18  |  2KB  |  55 lines
  1. Program Laskin;
  2. uses Crt;
  3. var luku1, luku2, tulo, jako, plus, miinus, arvo : Real;
  4.     i                                            : LongInt;
  5. begin
  6.   ClrScr;
  7.   TextColor (White);
  8.   Writeln;
  9.   Writeln('   ╔═══════════════════════════════════════╗ ');
  10.   Writeln('   ║ ▓▒░ LASKIN By: Tomppa / PördeSoft ░▒▓ ║ ');
  11.   Writeln('   ╚═══════════════════════════════════════╝ ');
  12.   Writeln;
  13.   Writeln;
  14.   Writeln;
  15.   TextColor (LightBlue);
  16.   Write  ('   Syötä laskettavat luvut reaalilukuina [Luku1 Luku2]: ');
  17.   TextColor (LightGreen);
  18.   Read(luku1);Read(luku2);
  19.     begin
  20.       tulo     := luku1 * luku2;
  21.       jako     := luku1 / luku2;
  22.       plus     := luku1 + luku2;
  23.       miinus   := luku1 - luku2;
  24.       arvo     := (luku1 + luku2) / 2;
  25.       Writeln;
  26.       Writeln;
  27.       Writeln;
  28.       TextColor (LightBlue);
  29.       Writeln('   ═════════════════════════════════════════════════              ');
  30.       TextColor (LightGreen);
  31.       Writeln('   ',luku1:5:2,' * ',luku2:5:2,' = ',tulo:5:2,'                   ');
  32.       TextColor (LightBlue);
  33.       Writeln('   ─────────────────────────────────────────────────              ');
  34.       TextColor (LightGreen);
  35.       Writeln('   ',luku1:5:2,' / ',luku2:5:2,' = ',jako:5:2,'                   ');
  36.       TextColor (LightBlue);
  37.       Writeln('   ─────────────────────────────────────────────────              ');
  38.       TextColor (LightGreen);
  39.       Writeln('   ',luku1:5:2,' + ',luku2:5:2,' = ',plus:5:2,'                   ');
  40.       TextColor (LightBlue);
  41.       Writeln('   ─────────────────────────────────────────────────              ');
  42.       TextColor (LightGreen);
  43.       Writeln('   ',luku1:5:2,' - ',luku2:5:2,' = ',miinus:5:2,'                 ');
  44.       TextColor (LightBlue);
  45.       Writeln('   ─────────────────────────────────────────────────              ');
  46.       TextColor (LightGreen);
  47.       Writeln('   Lukujen ',luku1:5:2,' ja ',luku2:5:2,' Keskiarvo = ',arvo:5:2,'');
  48.       TextColor (LightBlue);
  49.       Writeln('   ═════════════════════════════════════════════════              ');
  50.       Writeln;
  51.       Writeln;
  52.     end;
  53.     for i := 1 to 20000000 do
  54. end.
  55.