Dzisiaj jest 26 Maj imieniny obchodzi: Filip, Paulina, Marianna
> Strona główna
Szukaj ściągi
Szukanie zaawansowane | Dodaj prace

Temat: PASCAL. Kod programu na Algorytm Euklidesa.

uses crt; {deklaracja modułu crt do zmiany kolorów itp.}
var liczba1, liczba2, reszta: longint {deklaracja zmiennych}
begin
clrscr; {czyszczenie ekranu}
write('A='); {wyświetlenie tekstu na ekranie}
readln(liczba1); {odczytanie wartości z klawiatury i zapisanie do zmiennej liczba1}
write('B=');
readln(liczba2);
repeat {powtarzaj}
reszta:=liczba1 mod liczba2; {zmienną reszta ustaw na resztę dzielenia liczb liczba1 i liczba2}
writeln(liczba1,' mod ',liczba2,' = ',reszta);
if (reszta<>0) then begin {jeśli reszta nie jest równa 0 to wykonaj}
liczba1:=liczba2; {wartość liczba1 ustaw na liczba2}
liczba2:=reszta;
end;
until reszta=0; {powtarzaj, aż reszta będzie równa 0}
writeln('Wynik: ',liczba2);
readkey; {czekaj na wciśnięcie}
end.

Wygenerowano: 2005-10-26

Dodaj pracę
Przybornik

przedmiot:
wiersze
zakres:

autor pracy:
anonim

data dodania:
2005-10-26

średnia ocena:
1.38
Oceń:

przedmioty

  powrót na index

Wersja_tekstowa Drukuj prace Zapisz prace Dodaj prace

szukaj prac

Zaawansowane
Linki
Statystyki
Szukaj | Powrót | Do góry Copyright © 2003 - 2006 | Wszelkie prawa zastrzeżone | Reklama | Kontakt