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 8372 21.10.2016, 11:20
Ostatni post: koneton
  [Pascal/Delphi] Sortowanie quicksort oraz scalanie. Chudy2000 3 8322 01.05.2016, 22:34
Ostatni post: Szachista
  Analiza programu (trójkąt z gwiazdek, pascal) - pytania Chudy2000 17 13786 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
Toungue Wybór szkoły średniej przez potencjalnego programistę Zikinan 1 1852 09.02.2020 15:58
Ostatni post: dzikuu86
  Skrypt pod sklep internetowy Talcia 4 4303 14.12.2019 19:48
Ostatni post: hexopex760
  Poszukuję pomysłu na prosty program ;) janciu96 5 10747 13.12.2019 23:32
Ostatni post: Ajgor
  Programowanie Batch (CMD) Informatyk2019 0 2937 11.12.2019 18:30
Ostatni post: Informatyk2019
  [JavaScript] Znajdowanie przedziału czasu rafal12999 0 1307 10.12.2019 17:58
Ostatni post: rafal12999
  Przekazywanie wskaźnika przez referencję w Qt Trojan3000 3 10558 10.12.2019 13:16
Ostatni post: Ajgor
  Proszę o pomoc w uzupełnieniu ankiety dt. Zawodu Programisty MaleMonki 0 1804 17.11.2019 12:47
Ostatni post: MaleMonki
  Spring framework – jakie strony polecacie do nauki? olek23 5 5105 15.11.2019 15:57
Ostatni post: Alsenas
  Programowanie windy (problem) w C++ mysza2323 2 3931 06.11.2019 23:04
Ostatni post: mysza2323
  Programy w C ~Anonim 1 4295 22.10.2019 17:48
Ostatni post: Szachista
  Książki do nauki C# olek23 14 14455 17.10.2019 13:06
Ostatni post: Ajgor
  Wyświetlanie informacji z bazy danych na stronie www PitPlay 1 5505 16.09.2019 11:18
Ostatni post: Ajgor
  Błąd przy uruchamianiu programu w Java z wiersza poleceń Physicist 3 3514 30.08.2019 14:16
Ostatni post: Physicist
  Python z wiersza poleceń Physicist 15 16308 21.08.2019 20:14
Ostatni post: Physicist
  Transfer plików via FTP Visual Basic FireBytes 3 6601 15.08.2019 07:41
Ostatni post: Szachista