GRY-Online.pl --> Archiwum Forum

Algorytm Euklidesa w Turbo Pascalu - pomocy!!!

18.05.2002
21:28
smile
[1]

[email protected] [ Legionista ]

Algorytm Euklidesa w Turbo Pascalu - pomocy!!!

Jak korzystając z algorytmu Euklidesa napisać program obliczający NWD i NWW trzech dowolnych liczb?

18.05.2002
21:58
[2]

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.

18.05.2002
23:53
smile
[3]

[email protected] [ Legionista ]

Bardzo dziękuje z pomoc. To działa. Tylko dalej nie wiem jak obliczyć NWW.

18.05.2002
23:59
[4]

The Dragon [ Eternal ]

nww to nie algorytm euklidesa :) a przynajmniej nie w takiej formie jak go wymyslil euklides ;))

19.05.2002
00:29
[5]

zakq [ Centurion ]

Wydaje mi się, że NWW=NWD*(a/NWD)*(B/NWD) co po skróceniu da a*b/NWD

03.06.2002
15:54
[6]

[email protected] [ Legionista ]

Wiem jak obliczyć NWD i NWW dwóch liczb, ale nie wiem jak obliczyć NWW dla trzech liczb.

03.06.2002
15:56
smile
[7]

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...;)

03.06.2002
15:58
smile
[8]

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

03.06.2002
19:30
[9]

[email protected] [ Legionista ]

-->smutek Dziękuję za twoję zasoby. Jednak nie znalazłem tego czego szukam. Szukam wzoru na NWW 3 liczb.

© 2000-2021 GRY-OnLine S.A.