Název úlohy: Inflace Datum: 23.10.1997 Obtížnost: Z Předpokládané znalosti: příkaz přiřazení, procedury pro V/V operace, cyklus while
Zadání
Pojem inflace není pro nikoho neznámý, setkáváme se s ním denně. Občas nás zajímá,
kolik bude stát daný výrobek příští rok při dané inflaci, která u nás činí něco kolem
10%. Navrhněte program pro řešení výpočtu ceny výrobku za určitý počet let při
dané inflaci. Vstupem programu bude cena výrobku "X".
Bližší popis
nejsou žádné omezující podmínky
Diskuse k řešení
Program vyřešíme příkazem cyklu while , který bude probíhat
pro každý rok.
Nesmíme zapomenout počítat procenta inflace z aktuálního roku; tj. procenta z procent.
Výsledek zaokrouhlíme na korektní tvar české měny
Řešení
program Inflace; var cena, procenta: real; roky: integer;
BEGIN
writeln(' Zadejte cenu vyrobku a procenta inflace: ');
readln(cena,procenta);
writeln(' Zadejte pocet let: ');
readln(roky);
i:=1; while i<=roky do begin
cena:=cena*(procenta/100+1);
inc(i); {zvysime I o jednicku}