--> Archiwum Forum

Algorytm zachłanny - pomocy!

01.12.2010

09:45

smile

[1]

TyTuSPL [ No-one ever really dies ]

Algorytm zachłanny - pomocy!

Witam. Muszę napisać algorytm zachłanny w Pascalu.
Chodzi dokładnie o problem wydawania reszty np. ze strony wikipedii

Jest tam podany algorytm w Pascalu, ale co muszę tam zrobić żeby algorytm działał? Cięgle są jakieś błędy, jak coś pamiętam jeszcze z lekcji informatyki trzeba coś dodać przed i po tym co jest podane w algorytmie na stronie. Pomoże ktoś? :)

Napisałem program do wydawania reszty, ale nie jest sposobem algorytmu zachłannego, a musi być...

01.12.2010

09:57

smile

[2]

mackie majcher [ Konsul ]

Człowieku, przecież to jest proste. Sprecyzuj czego nie rozumiesz. A może wszystko rozumiesz, tylko masz błędy składni w kodzie ? Jak przedstawiasz jakiś problem to napisz dokładnie o co chodzi. W przeciwnym wypadku nikt Ci nie pomoże.

01.12.2010

10:30

smile

[3]

TyTuSPL [ No-one ever really dies ]

Co muszę dodać do podanego kodu przed 'type' i pod 'end;' ?

Wybaczcie za taką bezczelność, ale w większości nie rozumiem tych funkcji...

01.12.2010

10:50

smile

[4]

Kane [ bladesinger ]

bo to w wiki to jest funkcja a nie gotowy progam. taka mala pulapka na ludzi nie majacych zielonego pojecia o pascalu, czy nawet o programowaniu.
musisz lekko te funkcje prerobic zeby dzialala jakos osobny program, a jeszcze lepiej wrzucic do jakiegos programu ktory bedzie pobieral jakies dane od uzytkownika bo jak kadza funkcja potrzebuje jakis danych wejsciowych.

01.12.2010

10:58

[5]

TyTuSPL [ No-one ever really dies ]

To akurat wiem, ale nie mam zielonego pojęcia jak...po prostu pogubiłem się...

Napisałem taki prosty program na podstawie tego zadania co jest na wiki no i działa jak należy, można w ten kod wepchać jakoś tą funkcję?

spoiler start
program wydawanie_reszty;
uses crt;
var
m : integer;
x : Currency;
begin
m:=0;
writeln('Kwota do wydania: ');
readln(x);
  while x >= 5 do
begin
x:=x-5;
m:=m+1;
end;
writeln(m,' monet 5 zlotowych');
m:=0;
  while x >= 2 do
begin
x:=x-2;
m:=m+1;
end;
writeln(m,' monet 2 zlotowych');
m:=0;
  while x >= 1 do
begin
x:=x-1;
m:=m+1;
end;
writeln(m,' monet 1 zlotowych');
m:=0;
readln(x);
end.

spoiler stop

01.12.2010

11:26

[6]

mackie majcher [ Konsul ]

TyTuSPL <--- No, ale mi to wygląda na program wykorzystujący ten algorytm, więc po co chcesz wklejać do niego funkcję, która robi dokładnie to samo co już napisałeś ? Owszem możesz zmodyfikować program i użyć funkcji z wiki jako ćwiczenie.

01.12.2010

11:33

smile

[7]

TyTuSPL [ No-one ever really dies ]

Mackie Majcher --> Jeśli dostałem w szkole zadanie zrobienia zadania wykorzystującego ten algorytm, więc rozumiem, że to co napisałem mniej skomplikowanym sposobem wystarczy? Mam nadzieję. Dzięki za pomoc.

© 2000-2026 GRY-OnLine S.A.