Eurokalkulačka

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Category: KMP (Club of young programmers)

Author: Juraj ´RaptoR´ Daniš
Program: Euro_kalkulacka.pas
File exe: Euro_kalkulacka.exe

Program na prepočet korún na euro. Program na prepočet euro na koruny.
{ EURO_KALKULACKA.PAS                                               }
{ Program na prepocet korun na euro.                                }
{ Program na prepocet euro na koruny.                               }
{                                                                   }
{ Author: RaptoR (Juraj Danis)                                      }
{ Date  : 9.1.2009                             http://www.trsek.com }
 
program euro_kalkulacka;
uses crt;
var a,b,vysa,vysb:real;
    c,smer:char;
begin
repeat
clrscr;
writeln('Zadaj smer a= Euro na SKK , b=SKK na euro');
writeln('-----------------------------------------');
readln(smer);
clrscr;
 
IF smer='a' then
 
             begin
             writeln('Zadaj pocet Eur, ktore preratam na SKK');
              readln(a);
               clrscr;
                vysa:=a*30.1260;
                 writeln(a:2:2,' Eur je ',vysa:2:2,' SKK');
                  writeln('------------------------------');
                   end;
if smer='b' then
         begin
         writeln('Zadaj pocet SKK, ktore preratam na Eura');
          readln(b);
           clrscr;
            vysb:=b/30.1260;
             writeln(b:2:2,' SKK je ',vysb:2:2,' Eur');
              writeln('------------------------------');
               end;
writeln;
writeln;
writeln('Copyright by Juraj ''RaptoR''Danis (c) 2009');
writeln('-------------------------------------------');
writeln;
writeln;
writeln;
 
 
writeln('Opakovat vypocet? y/n');
readln(c);
until c='n';
 
end.