--> Archiwum Forum
s@m [ Legionista ]
Algorytm Euklidesa w Turbo Pascalu - pomocy!!!
Jak korzystając z algorytmu Euklidesa napisać program obliczający NWD i NWW trzech dowolnych liczb?
MOD [ Generaďż˝ ]
Algorytm na nwd ‹dopoki a nie jest rowne b wykonuj jezeli a>b a=a-b; w przeciwnym wypadku b=b-a;› nwd=a; Na razie masz nwd dwoch liczb a pozniej wykonujesz to samo dla nwd i dla 3 liczby. Musisz to sobie zamienic na instrukcje pascala.
s@m [ Legionista ]
Bardzo dziękuje z pomoc. To działa. Tylko dalej nie wiem jak obliczyć NWW.
The Dragon [ Eternal ]
nww to nie algorytm euklidesa :) a przynajmniej nie w takiej formie jak go wymyslil euklides ;))
zakq [ Centurion ]
Wydaje mi się, że NWW=NWD*(a/NWD)*(B/NWD) co po skróceniu da a*b/NWD
s@m [ Legionista ]
Wiem jak obliczyć NWD i NWW dwóch liczb, ale nie wiem jak obliczyć NWW dla trzech liczb.
smutek [ Centurion ]
program nwd; uses crt; var a,b:byte; odp:char; begin repeat clrscr; write('Podaj dwie liczby calkowite dodatnie: '); readln(a,b); while a<>b do begin if a>b then a:=a-b else b:=b-a; end; writeln('NWD wynosi: ',a:8); write('Czy chcesz skonczyc [t/n]?: '); readln(odp); until odp='t'; end. powodzenia...;)
smutek [ Centurion ]
wybierz cos sobie moze ci pomoze...: ketrab.zw.pl/1.pas ketrab.zw.pl/2.pas ketrab.zw.pl/3.pas ketrab.zw.pl/4.pas ketrab.zw.pl/5.pas ketrab.zw.pl/6.pas sorki wiecej nie mam
s@m [ Legionista ]
-->smutek Dziękuję za twoję zasoby. Jednak nie znalazłem tego czego szukam. Szukam wzoru na NWW 3 liczb.