Forum www.cosinusinfa.fora.pl Strona Główna www.cosinusinfa.fora.pl
Nieoficjalne forum szkoly cosinus - kierunek informatyka
 
 FAQFAQ   SzukajSzukaj   UżytkownicyUżytkownicy   GrupyGrupy   GalerieGalerie   RejestracjaRejestracja 
 ProfilProfil   Zaloguj się, by sprawdzić wiadomościZaloguj się, by sprawdzić wiadomości   ZalogujZaloguj 

p7_3 Algorytm Euklidesa - szukanie nwd przez dzielenie

 
Napisz nowy temat   Odpowiedz do tematu    Forum www.cosinusinfa.fora.pl Strona Główna -> Programowanie
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
Kajtas
Administrator
Administrator



Dołączył: 26 Wrz 2010
Posty: 37
Przeczytał: 0 tematów

Pomógł: 1 raz
Ostrzeżeń: 0/5
PostWysłany: Nie 13:44, 07 Lis 2010    Temat postu: p7_3 Algorytm Euklidesa - szukanie nwd przez dzielenie
Opis:
Algorytm Euklidesa - szukanie najwiekszego wspolnego dzielnika przez dzielenie

Cytat:

program p7_3; {algorytm Euklidesa - szukanie nwd przez dzielenie}
uses crt;
var a,b,r,nwd:word;

begin
textmode(co80);
clrscr;
write('Podaj a>0: ');readln(a);
write('Podaj b<a: ');readln(b);
while b<>0 do
begin
r:=a mod b;
a:=b;
b:=r;
end;
nwd:=a;
write('nwd= ',nwd);

readkey;
end.


Post został pochwalony 0 razy
Powrót do góry
Zobacz profil autora
Wyświetl posty z ostatnich:   
Napisz nowy temat   Odpowiedz do tematu    Forum www.cosinusinfa.fora.pl Strona Główna -> Programowanie Wszystkie czasy w strefie EET (Europa)
Strona 1 z 1

 
Skocz do:  
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach

fora.pl - załóż własne forum dyskusyjne za darmo
Powered by phpBB © 2001, 2005 phpBB Group
Regulamin
Na skróty:InneWAŻNE DATY I MATERIALYZajeciaGry i rozrywkaSystemyProgramowanieaktualnościPrace kontrolneUTKOprogramowanieMultimediaAngielski