Greatest common divisor: Difference between revisions
Added an Algol W sample
Simple9371 (talk | contribs) (Added Excel) |
(Added an Algol W sample) |
||
Line 119:
</pre>
=={{header|ALGOL W}}==
<lang algolw>begin
% iterative Greatest Common Divisor routine %
integer procedure gcd ( integer value m, n ) ;
begin
integer a, b, newA;
a := abs( m );
b := abs( n );
if a = 0 then begin
b
end
else begin
while b not = 0 do begin
newA := b;
b := a rem b;
a := newA;
end;
a
end
end gcd ;
write( gcd( -21, 35 ) );
end.</lang>
=={{header|Alore}}==
| |||