Dnes je čtvrtek 24. května 2012
Svátek má Jana
Svátek má Jana
Nejste přihlášen. Registrace.
Referáty
přidat referát| ČJ literatura (1548) | ČJ gramatika (36) | Angličtina (303) | Němčina (453) |
| Francouzština (43) | Španělština (67) | Matematika (17) | Fyzika (60) |
| Informatika (162) | Ekologie (245) | Zeměpis (38) | Biologie (239) |
| Chemie (261) | Společenské vědy (330) | Ekonomika, obchod... (307) | Dějepis (233) |
| Maturitní téma: Český jazyk (24) | Maturitní téma: ČJ gramatika (25) | Čtenářský deník (23) |
Referáty > Informatika
Směnárna
poslat referat na e-mail
vytisknoutVloženo: 07. 11. 2007 21:26, Přečtěno: 724
rogram Smenarna;const
Rezie = 0.01;
Mena = 'DEM'; Kurs = 18.36;
var
Vklad,r : real;
odp : char;
begin
writeln('Smenarna -- smena castky v Kcs za menu ',Mena);
write('Castka v Kcs ke smene: '); readln(Vklad);
write('Smi celkova castka prekrocit tuto castku? [A/N] ');
readln(odp);
if Upcase(odp) = 'A' then r:= Int(Vklad/Kurs)
else r:= Int((Vklad-Vklad*Rezie)/Kurs);
writeln('Mena Mnozstvi Kurs Kurs.hodnota');
writeln(Mena,r:13:2,Kurs:10:2,r*Kurs:15:2);
writeln('Vylohy:',Vklad*Rezie+1-Frac(r*Kurs):34:2);
r:= r*Kurs+Vklad*Rezie+1-Frac(r*Kurs);
writeln('-----------------------------------------');
writeln('Celkem k zaplaceni:',r:22:2);
end.
Autor:
