Witamy na forum PC Format Zapraszamy do REJESTRACJI


Użytkownicy przeglądający ten wątek: 1 gości

NWD i NWW - pascal (pomocy)

#1
NWD i NWW - pascal (pomocy)
Witam,

Muszę napisać program do obliczenia największego wspólnego dzielnika i najmniejszej wspólnej wielokrotności z liczb 12 i 8. Korzystam z algorytmu Euklidesa jednak mam problem, ponieważ muszę to zrobić tak, żeby np. NWD na końcu wyszło 4 (chodzi o to, żeby ten algorytm nie był napisany ogólnie dla dowolnych liczb tylko dla tych konkretnych).
Kod:
var a,b,c:integer;
begin
write('podaj pierwsza liczbe : ');
readln(a);
write('podaj druga liczbe : ');
readln(b);

while (b<>0) do
begin
c := a mod b;
a := b;
b := c;
end;

write('NWD : ',a);

end.
Domyślam się, że do a i b mam przypisać 12 i 4, ale nie wiem jak zapisać to działanie dalej, żeby wyszedł konkretny wynik.
Mi wyszło coś takiego, ale raczej to nie jest dobrze zrobione. xd
Kod:
var a,b,c:integer;
a:= 12
b:= 8
begin
while (b<>0) do
begin
c := a mod b;
a := b;
b := c;
end;
Byłbym bardzo wdzięczny za pomoc w rozwiązaniu tego. Z góry dziękuję Wesoły
 System operacyjny: windows_seven Przeglądarka: chrome
#2
RE: NWD i NWW - pascal (pomocy)
Witam, no i w czym problem - przecież masz dobrze napisany program (brakuje tylko średników w instrukcji przypisania do zmiennej a i b). NWW możesz policzyć jako
Kod:
a div NWD(a, b) * b
Dzielenie wykonuje się najpierw, aby nie doszło do przepełnienia (choć dla tak małych liczb nie dojdzie do niego Oczko).
 System operacyjny: linux_ubuntu Przeglądarka: firefox
Programy: Polecane / Nowe / Inne




Podobne wątki (NWD i NWW - pascal (pomocy))
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
  dev pascal, problem z funkcją kwadratową Sentinel24 4 8135 21.10.2016, 11:20
Ostatni post: koneton
  [Pascal/Delphi] Sortowanie quicksort oraz scalanie. Chudy2000 3 8123 01.05.2016, 22:34
Ostatni post: Szachista
  Analiza programu (trójkąt z gwiazdek, pascal) - pytania Chudy2000 17 13451 15.11.2015, 12:23
Ostatni post: Chudy2000

Skocz do:


Wybrane wątki (NWD i NWW - pascal (pomocy))
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
  [C#] Program do moderacji czatów gier wiktrom12 0 7396 07.03.2019 15:33
Ostatni post: wiktrom12
  Mój pierwszy projekt - Pomoc rafal12999 1 7847 07.02.2019 22:01
Ostatni post: Szachista
  pomoc projekt scilab piesel18 2 9259 04.02.2019 09:03
Ostatni post: piesel18
  Szkoła Informatyczna Zikinan 1 8114 02.02.2019 17:59
Ostatni post: wojownikhaha
  [Java] Strona z zadaniami do rozwiązania i odpowiedziami rafal12999 2 8843 27.01.2019 13:44
Ostatni post: rafal12999
  kompilacja biblioteki Agui - cmake jurek2 0 8149 10.01.2019 13:12
Ostatni post: jurek2
  Zamiana całego zestawu znaków wg przyporządkowania BarHorab 5 8850 19.12.2018 16:45
Ostatni post: Szachista
  Sumowanie licz excel - problem OxyGenE 2 11523 19.12.2018 16:29
Ostatni post: Szachista
  Jaki kod pod pewne zdarzenia visualbasic 2010 aktywny27 4 9311 07.11.2018 13:41
Ostatni post: Ajgor
Scared Ipad Pro programowanie? NissmoOne 4 10359 06.10.2018 12:22
Ostatni post: NissmoOne
  C# pierwsza pusta komórka Excel DonCorleone 0 9360 21.09.2018 16:58
Ostatni post: DonCorleone
  .bat nie kompresuje plików GIENTY 3 9905 06.09.2018 07:20
Ostatni post: broda99
  problem z programem .bat wiktrom12 4 11113 30.08.2018 08:25
Ostatni post: wiktrom12
  Silnik do gier ZigglerGames 1 9739 23.08.2018 09:03
Ostatni post: Szachista
  Chciałbym zrobić prosty plik exe z jedną funkcją densour 4 10520 09.08.2018 16:24
Ostatni post: Ajgor