Úloha č. 3


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

  1. nejsou žádné omezující podmínky

Diskuse k řešení
  1. Program vyřešíme příkazem cyklu while , který bude probíhat pro každý rok.
  2. Nesmíme zapomenout počítat procenta inflace z aktuálního roku; tj. procenta z procent.
  3. 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}
end;
END.



[Archív] [Změna kódování]