Testy pitab: Różnice pomiędzy wersjami
Z Studia Informatyczne
Przejdź do nawigacjiPrzejdź do wyszukiwania
Nie podano opisu zmian |
Nie podano opisu zmian |
||
| Linia 1: | Linia 1: | ||
<math>\frac{2}{2}</math> | <math>\frac{2}{2}</math> | ||
''function gcd(a:integer; b:integer):integer; | |||
var | |||
c:integer; | |||
begin | |||
while b <> 0 do {linie 4-5} | |||
begin | |||
if a >= b then {linie 6-7} | |||
a := a - b {linie 8-10} | |||
else | |||
begin | |||
c := b; {linie 12-13} | |||
b := a; {linie 14-15} | |||
a := c; {linie 16-17} | |||
end; | |||
end; | |||
gcd := a; | |||
end;'' | |||
Wersja z 22:05, 5 sie 2006
function gcd(a:integer; b:integer):integer;
var
c:integer;
begin
while b <> 0 do {linie 4-5}
begin
if a >= b then {linie 6-7}
a := a - b {linie 8-10}
else
begin
c := b; {linie 12-13}
b := a; {linie 14-15}
a := c; {linie 16-17}
end;
end;
gcd := a;
end;
