Testy pitab: Różnice pomiędzy wersjami
Z Studia Informatyczne
Przejdź do nawigacjiPrzejdź do wyszukiwania
Nie podano opisu zmian |
Nie podano opisu zmian |
||
| Linia 18: | Linia 18: | ||
gcd := a; | gcd := a; | ||
end;'' | end;'' | ||
<math> p(n) </math> to nie to samo co <math>p </math> | |||
{| border="1" cellspacing="0" | |||
! <math>\Rightarrow</math>!! 0!! 1!! | |||
|- | |||
| 0 || 1 || 1 | |||
|- | |||
| 1 || 0 || 1 | |||
|} | |||
Wersja z 12:09, 6 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;
to nie to samo co
| 0 | 1 | ||
|---|---|---|---|
| 0 | 1 | 1 | |
| 1 | 0 | 1 |
