┌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φ]