Code : Tout sélectionner
function while_example_()
begin
local n;
assume( n, integer )
DispG
ClrIO
n:=1
while n <= 5
do
printf( n )
n := n + 1
end
return Done
end
Code : Tout sélectionner
(NULL)->
{ local n;
assume(n,integer);
DispG;
ClrIO;
n:=1;
while(n<=5){
printf(n);
n:=n+1;
};; ;
return(Done);
}