1. Definicja algorytmu
2. Problem kasjera:
a). opis problemu
b). metody rozwiązania
-lista kroków
-schematy blokowe
-rozwiązanie w Excelu
-VBA listing
-Turbo Pascal
1. Algorytm – w matematyce oraz informatyce
skończony ciąg jasno zdefiniowanych czynności, koniecznych do wykonania
pewnego rodzaju zadań. Słowo "algorytm" pochodzi od starego
angielskiego słowa algorism, oznaczającego wykonywanie działań przy pomocy liczb arabskich
2. Problem kasjera
- często gdy robimy zakupy w sklepie możemy zaobserwować, że kasjer nie
ma jak wydać nam reszty. Najczęściej wynika to z tego, że nieumiejętnie
zużył pieniądze o małych nominałach kiedy miał możliwość posłużyć się
tymi o większej wartości. Aby uniknąć takiej sytuacji kasjer powinien
operować algorytmem wydawania reszty. Algorytm ten polega po prostu na
tym, aby przy wydawaniu reszty użyć jak najmniejszej możliwej liczby
banknotów/monet. Takie rozwiązania są zastosowane np. w bankomatach.
Metody rozwiązania problemu kasjera:
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
- za pomocą schematów blokowych
program Reszta;
{obliczenia w petli WHILE}
uses crt;
const N: Array [1..8] of integer = (200, 100, 50, 20,
10, 5, 2, 1);
var i,P,R: longint;
begin
clrscr;
Write('Podaj
reszte do wyplacenia: ');
ReadLn(R);
i:=1;
while (R>0)
do {dopoki nie wydano calej reszty}
begin
if R>= N[i] then {sprawdz czy mozna wydac danym nominalem}
begin
P:= R div N[i]; {ile razy wydac dany nominal}
R:= R - (P*N[i]);{zmniejsz reszte
o wydany nominal}
WriteLn(N[i], ' x ', P);
{wypisz wynik}
end;
inc(i); {rozpatrz kolejny nominal}
end;
repeat until keypressed;
end.
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.
