{ 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.