Rozwiązywanie problemów

Wydawanie reszty

1. Opis słowny algorytmu wydawania reszty.

Dane: Kwota pieniędzy do wydania, nominały banknotów i bilonu uporządkowane malejąco
Wyniki: Ilość poszczególnych nominałów banknotów i bilonu
Krok 1: Ustalenie wartości początkowych
Krok 2: Sprawdzamy, ile razy najwyższy nominał mieści się w kwocie do wydania
Krok 3: Obliczamy resztę do wydania: poprzednia kwota - obliczona ilość * nominał
Krok 4: Przechodzimy do niższego nominału
Krok 5: Jeśli reszta do wydania = 0 [stop] w przeciwnym razie powtarzamy kroki 2 - 4

2. Opis słowny wydawania reszty:

program wydawanie_reszty; uses crt; var reszta : longint;

begin

clrscr;

  writeln('podaj kwote: '); readln(reszta);  writeln;

  writeln(reszta div 200, ' banknotow 200zl');

  reszta:=reszta mod 200;

  writeln(reszta div 100, ' banknotow 100zl');

  reszta:=reszta mod 100;

  writeln(reszta div 50, ' banknotow 50zl');

  reszta:=reszta mod 50;

  writeln(reszta div 20, ' banknotow 20zl');

  reszta:=reszta mod 20;

  writeln(reszta div 10, ' banknotow 10zl');

  reszta:=reszta mod 10;

  writeln(reszta div 5, ' monet 5zl');

  reszta:=reszta mod 5;

  writeln(reszta div 2, ' monet 2 zl');

  reszta:=reszta mod 2;

  writeln(reszta, ' monet 1 zl');

  repeat until keypressed;

end.

3.Wydawanie reszty: