Question

Programowanie. :P

Napisz program, symulujący działanie maszyny do zmiany dowolnej kwoty pieniężnej na bilon ( maszyna wydaje 1PLN, 2 PLN i 5 PLN dla dowolnie wprowadzonej wartości)

Answer 1

Pisane pod FPC 2.6.0 (pod wcześniejszymi nie będzie działać z powodu konstrukcji `for..in`)

 

Link do kodu: -> http://ideone.com/WMWuLy <-

 

Kod: 

Procedure F(Num: LongInt);
Const D: Array[0..2] of LongInt = (5, 3, 1);
Var I: LongInt;
Begin
if (Num < 0) Then
Exit;

While (Num > 0) Do
Begin
For I in D Do
if (Num mod I = 0) Then
Begin
Writeln('Wydaje monete o wartosci ', I, ', pozostaje ', Num-I);
Num -= I;
Break;
End;
End;
End;

Var Num: LongInt;
Begin
Readln(Num);
F(Num);
Readln;
End. 

Answer 2

# include <iostream>

# include <cstdlib>

using namespace std;

int main()

 

{

int n;

cin>>n;

while(n>=0)

{

if(n-5<=0)

{

if(n-2<=0)

{

if(n-1<=0)

{

cout<<" 0 PLN ";

}

else{

cout<<1<<" PLN ";

}

else{

cout<<2<<" PLN ";

}

else{

cout<<5<<" PLN ";

}

}

 

system("pause");

return 0;

}

 

 

 

przepraszam jeżeli będzie błąd z nawiasami