Tom

Aus ProgrammingWiki

Archivierte Version vom 2013-05-14T18:11:18+00:00. Aktuelle Version

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;

alg(3, 4, 5);

Tom

Suche