|
Registriert seit: 21. Dez 2002
Ort: Lenzburg
861 Beiträge
Delphi 6 Professional
|
Re: Wie kann ich in Pascal kürzen?
17. Nov 2003, 20:16
hier mal eine :
Delphi-Quellcode:
function GCD(a,b : integer):integer;
begin
if (b mod a) = 0 then Result := a
else Result := GCD(b, a mod b);
end;
mfg Tobias
Tobias
Die Physik ist für die Physiker eigentlich viel zu schwer.
|