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
  Baza danych - dzialania, Pascal Jamuna 2 733 10.04.2021, 19:08
Ostatni post: softwareman
  dev pascal, problem z funkcją kwadratową Sentinel24 4 10196 21.10.2016, 11:20
Ostatni post: koneton
  [Pascal/Delphi] Sortowanie quicksort oraz scalanie. Chudy2000 3 9922 01.05.2016, 22:34
Ostatni post: Szachista

Skocz do:


Wybrane wątki (NWD i NWW - pascal (pomocy))
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
  Wybór języka Xyio 5 5482 30.10.2020 15:07
Ostatni post: bartexo23
  Skrypt usuwający pliki azds1 1 2627 13.10.2020 08:45
Ostatni post: Michu_PL
  Mam mały problem ze zrobieniem tego programu Asasin12PL 2 5143 12.10.2020 17:10
Ostatni post: Asasin12PL
  Skrypt pod sklep internetowy Talcia 6 15177 24.09.2020 22:20
Ostatni post: Ajgor
  Książki do nauki C# olek23 16 36105 28.08.2020 09:51
Ostatni post: Ajgor
  [VBA Excel] Wyszukiwanie wartości w kolumnie Pioro 2 8861 22.06.2020 18:27
Ostatni post: Pioro
  Validacja JS kolo48 3 10516 16.04.2020 14:06
Ostatni post: koneton
  Automatyczne wykonywanie czynności na stronie Fresher 0 9256 15.04.2020 20:53
Ostatni post: Fresher
  Visual Studio Code- zmiana folderu rozszerzeń Physicist 4 11562 05.04.2020 15:46
Ostatni post: Physicist
  Prośba o pomoc przy wyborze języka do konkretnego projektu. romands 6 10978 05.04.2020 14:07
Ostatni post: romands
Sad PhpMyAdmin w Mysql 8.0 Lauczi 3 10532 31.03.2020 16:34
Ostatni post: Lauczi
Ściana Klika pytań plz pomóżcie Samek2222 1 9987 22.03.2020 18:59
Ostatni post: Ajgor
  Pytanie - programowanie batch [cmd] Max23 0 9830 20.03.2020 01:03
Ostatni post: Max23
  Oczekiwanie na Akcje przycisku wanhelsing 8 12050 01.03.2020 19:44
Ostatni post: Szachista
Toungue Wybór szkoły średniej przez potencjalnego programistę Zikinan 1 11179 09.02.2020 15:58
Ostatni post: dzikuu86