PMG/Kurs 1214/eigene Übungen/Tom

Wiki-Quelltext dieser Seite.

<language>Pascal</language>
<code id="51927e467869d">
procedure alg(x,y,z:real);
var a,b:real;
begin
a:=1;
b:=0;
while z>0 do begin
a:=a*x;
z:=z-1;
end;
if ((x-y)>0) then begin
b:= x-y ;
//writeln ((a) + (b));
end
else b:= y-x 
end;
</code>

<run id="51927e467872f">
alg(3, 4, 5);
</run>