{ EXCHANGE.PAS Copyright (c) Pheo } { Zámena valút + percento za manipulačný poplatok. } { } { Datum:23.03.2005 http://www.trsek.com } program exchange; uses Crt; var Msuma,Skk,mp,kurz,vyplata:real; mena:string; v:char; begin clrscr; write('Zvol menu:'); read(mena); write('Aktualny kurz v korunach:'); read(kurz); writeln('Chcete vymenit ',mena,' za koruny(M) alebo koruny za ',mena,'(K)?'); v:=readkey; if v='m' then begin writeln('Kolko ',mena,' za koruny chcete vymenit?'); read(Msuma); Skk:=Msuma*kurz; vyplata:=Skk-2*skk/100; writeln('Vyplatene bude ',vyplata:0:2,'Skk':5) end; if v='k' then begin writeln('Kolko korun za ',mena,' chcete vymenit?'); read(Skk); Msuma:=Skk/kurz; vyplata:=Msuma-2*Msuma/100; writeln('Vyplatene bude ',vyplata:0:2, mena:5); end; repeat until keypressed; end.