Zámena valút + percento za manipulačný poplatok

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Kategorija:

Zrobil: Pheo
web: pascalsource.ic.cz

Program: Exchange.pas

Zámena valút + percento za manipulačný poplatok.
{ 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.