Program obliczający ilość nominałów

0

Mam napisać program , który pobiera od użytkownika jakąś kwote pieniędzy i wypisuje ile jest banknotów 200 zł , 100 zł itp az do monety 1 groszowej . Już napisalem ten program jednak nie moge go skompilowac ze względu na błędy. Jesli uważacie że coś mozna optymalniej zapisac napiszcie. Prosze o pomoc !!.

uses crtl;
var  nominaly: array[1..14] of real 
i,ilosc:byte;
kwota:real;

begin 
nominaly[1]:=200  itp aż do nominaly[14]:=0.01

writeln('podaj kwote:');
read(kwota);
repeat
begin 
ilosc:=kwota div nominaly[1]; // tu wyskakuje błąd : OPERAND TYPES DO NOT MATCH OPERATOR .
writeln('liczba banknotow' , nominaly[1] , ' wynosi ', ilosc);
kwota := kwota - ilosc* nominaly[1] ;
nominaly:=nominaly +1  // nie jestem pewny czy moge to tak zapisać , chce aby w następnym obiegu tablicy pojawił sie element nominaly[2] 
end;
until i=14

readkey;
end.
0

Przejdź na grosze
const nominały:array[1..14] of integer=(20000, 10000, 5000, 2000, 1000, 500, 200,100,50,20,10,5,2,1);

0

nie możesz dzielić bez reszty (div) przez liczbę rzeczywistą

0

poza tym ta pętla się nie kończy bo i się nie zwiększa i

0

Jak przejść na kolejny element tablicy??. Chodzi o to aby w każdym obiegu pętli był brany następny element tablicy. Najpierw nominaly[1] potem nominaly [2] i tak az do konca tablicy.

0

problem już rozwiązałem :) , tylko zostaje jeszcze kwestia tego co zrobić z nominałami poniżej jeden złoty ??

0

proste: tworzysz jakąś zmienną, mającą na początku wartość 1 i przy każdym wykonaniu pętli jest ona zwiększana o 1, zmienna ta oznacza pozycję w tablicy. Czyli mniej więcej tak:

{...}
var  
pozycja:byte;
{...}
begin
pozycja:=1;
{...}
repeat
begin
{ wszędzie gdzie występuje tablica piszesz ją tak : nominały[pozycja] }
{..}
inc(pozycja)  {bardzo ważne! dzięki temu przy każdym kolejnym wykonaniu pętli program sprawdza zawartość tablicy w kolejnej 'komórce" }
end;
until pozycja=14;  {no i tu był kolejny błąd:] zmienna I nigdy nie dochodziło do wartości 14}
readkey;
end.

EDIT hehe no widzę, że się spóźniłem ;)

1 użytkowników online, w tym zalogowanych: 0, gości: 1