7 lines
94 B
Text
7 lines
94 B
Text
if x = 0 then
|
|
res := y;
|
|
elif y = 0 then
|
|
res := x;
|
|
else
|
|
res := sqrt(x^2+y^2);
|
|
end if;
|