Localize file www.TrSek.com/cover/raptor/euro_kalkulacka.pas{ 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';