algorytm.org

Implementacja w Delphi/Pascal



Baza Wiedzy
wersja offline serwisu przeznaczona na urządzenia z systemem Android
Darowizny
darowiznaWspomóż rozwój serwisu
Nagłówki RSS
Artykuły
Implementacje
Komentarze
Forum
Bookmarki






Sonda
Implementacji w jakim języku programowania poszukujesz?

Problem wydawania reszty - Implementacja w Delphi/Pascal
Ocena użytkownikóww: *****  / 1
SłabyŚwietny
Nadesłany przez Michał Witaszek, 18 czerwca 2011 14:00
Kod przedstawiony poniżej przedstawia główną część rozwiązania problemu.
Pobierz pełne rozwiązanie.

Jeżeli nie odpowiada Ci sposób formatowania kodu przez autora skorzystaj z pretty printer'a i dostosuj go automatycznie do siebie.

Reszta.dpr:
//Problem wydawania reszty
//www.algorytm.org

program Reszta;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  //tablica dostepnych nominalow
  N: Array [1..8] of integer = (200, 100, 50, 20, 10, 5, 2, 1);
  i,P,R: integer;

begin

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;

ReadLn;
end.
Dodaj komentarz