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_4 Algorytm Euklidesa - szukanie nwd przez odejmowanie

 
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:34, 07 Lis 2010    Temat postu: P7_4 Algorytm Euklidesa - szukanie nwd przez odejmowanie

Info:
Algorytm Euklidesa - szukanie najwiekszego wspólnego dzielnika przez odejmowanie

Kod źródłowy:
Cytat:

program p7_4;

uses crt;
var a,b,nwd:word;

begin
textmode(co80);
clrscr;
write('Podaj a>0: '); readln(a);
write('Podaj b>0: '); readln(b);
while a<>b do
if a>b then a:=a-b else b:=b-a;
nwd:=a;
writeln('nwd= ',nwd);

readkey;
end.


Post został pochwalony 0 razy

Ostatnio zmieniony przez Kajtas dnia Nie 13:45, 07 Lis 2010, w całości zmieniany 2 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