3582391742

Metoda zachłanna: wydawanie reszty - program

Program Zachlanna_reszta_PL; var i, ile,kwota_int:integer; kwota    :real;

nominał:array[1..14] of integer

Deklaracje zmiennych

Nominały w groszach

= (20000, 10000,5000,20(^1000,500,200,100,50,20, 10, 5,2,1); reszta :array[1..14f of integer;

begin

write('kwota'); read(kwota); kwota_int:=round(kwota*100) ; for i:=1 to 14 do begin

ile:=kwota_int div nominał[i]; reszta[i]:=ile;    *

Czytanie kwoty

Zamiana kwoty na grosze

kwota_int:=kwota_int-ile*nominał[i] end;

for i:=l to 8 do

writeln(nominał[i] div 100,' zl.:    ',reszta [i]) ;

for i:= 9 to 14 do

writeln (nominał[i], ' gr.:    ',reszta[i])

end.

Obliczanie wielkości kolejnych nominałów

informatyka +

13