programiranje (zadatak)

[Gost]

ljudi, please, ak ima netko tko bi mi mogao prebaciti sljedeci kod u qbasic:

program novac;
var a,b,c,d,e:integer;
x,y,z,min:integer;

function je(x,y,z:integer):boolean;
var polje:array[0..80] of integer;
bo:boolean;
i,j:integer;
begin
fillchar(polje,sizeof(polje),0);
bo:=true;
polje[0]:=1000;
for j:=1 to x do
for i:=0 to e-a do
if (polje[i]<>0) and (polje[i]<>j) then
begin
if polje[i+a]=0 then
polje[i+a]:=j;
end;

for j:=1 to y do
for i:=0 to e-b do
if (polje[i]<>0) and (polje[i]<>(x+j)) then
begin
if polje[i+b]=0 then
polje[i+b]:=x+j;
end;

for j:=1 to z do
for i:=0 to e-c do
if (polje[i]<>0) and (polje[i]<>(x+y+j ) ) then
begin
if polje[i+c]=0 then
polje[i+c]:=x+y+j;
end;
j:=d-1;
repeat
inc(j);
if polje[j]=0 then bo:=false;
until (bo=false) or (j=e);

je:=bo;
end;

begin
min:=maxint;
writeln;
write('Upisite brojeve A, B, C, D i E : ');
readln(a,b,c,d,e);
for x:=0 to (e div a) do
for y:=0 to (e div b) do
for z:=0 to (e div c) do
begin
if (x+y+z)<min then
begin
if je(x,y,z) then min:=x+y+z;
end;
end;
writeln;
writeln('Broj zetona = ',min);
end.

(imam napisano i u c_u ak bi pomoglo)

HVALA!

[k8yvis]

Hmm, lakše je programirat ponovo po tekstu nego prevodit...

_________________
Da li je napredak kad ljudozder uzme vilicu?

[k8yvis]

No, dragi Gost / Gostica hoćete postat tekst zadatka ili?

_________________
Da li je napredak kad ljudozder uzme vilicu?

[ma]

[splicho]

NISAM GOST OD GORE ALI I MENI TREBA ZADATAK, PA AKO MOŽE:


alan i bob igraju igru NOVAC na sljedeći način.

alan raspolaže s 3 vrste žetona crvene žute i zelene u neograničenim količinama. Dok se Alan igra sa žetonima Bob smišlja 5 brojeva A,B,C,D,E i kaže ih alanu.. Crveni žetoni tada vrijede A novčanih jedinica, žuti B, a zeleni C, . Alan mora uzeti određeni broj žetona od svake pojedine boje ,ali tako da bilo koji novčani iznos između D i E ( uključivo D i E ) može točno isplatit u žetonima . Žetoni su šatro teški pa alan želi da ukupni broj žetona koji mu je potrban bude što manji.

ulazni podaci:

upis A,B,C,D,E
A,B,C su prirodni br manji ili jednaki od 20 i međusobno različiti
D , E manji ili jednaki 40 i D je manji ili jednak E

izlazni podaci:

ukupan broj žetona koje alan mora uzeti

[k8yvis]

Mislim da ima poštovani Ma, jer su to zadatci dani za seminarski rad friško na Splitskom PMF-u, koliko znam, u Zg-bu se ne bave QBasicom
A Splićo, provat ću ti ove dane to sastavit pa ti javin ovdi...

_________________
Da li je napredak kad ljudozder uzme vilicu?