Nick:gt
Dodano:2004-10-25 15:23:50
Wpis:Program algorytm_euklidesa;
uses crt;
var
a,b:integer;
function nwd(a,b:integer):integer;
begin
while (a>0) and (b>0) do
if a>b then a:=a mod b
else b:= b mod a;
if a>0 then NWD:=A ELSE NWD:=B ;
end;
begin
clrscr;
writeln('Podaj liczbe a=');
read(a);
writeln('Podaj liczbe b=');
read(b);
write('To jest najwiekszy wspolny dzielnik tych dwoch liczb ',NWD(a,b),'.');
read;
readkey;
end.
|
|
|
|
|
|
|
Nick:yo man
Dodano:2004-10-25 15:21:29
Wpis:algorytm
szukanie najwiekszego wsp podzielnika 2 liczb
l,m,w k-stala
l=mk+r
l-mk=r
function nwd(a,b:integer):integer;
begin
while (a>0) and (b>0) do
if a>b then a:=a mod b else
b:=b mod a;
if a>0 then nwd:=a else nwd:=b
end;
|
|
|
Nick:wr
Dodano:2004-10-25 15:11:30
Wpis:Program algorytm_euklidesa;
uses crt;
var
a,b,NWD:integer;
begin
clrscr;
writeln(\'Podaj liczbe a=\');
read(a);
writeln(\'Podaj liczbe b=\');
read(b);
while (a>0) and (b>0) do
begin
if a>b then a:=a mod b
else b:= b mod a;
end;
if a>0 then NWD:=A ELSE NWD:=B ;
write(\'To jest najwiekszy wspolny dzielnik tych dwoch liczb \',NWD,\'.\');
read;
readkey
end.
|
|
|