Program Pascal FLip Berurut

Hasil








Coding Program :

USES CRT;
PROCEDURE Flop(N:integer);
FORWARD;
procedure Flip(N:integer);

begin
writeln('flip dijalankan... N=',N);
if N > 0 Then
flop(N-1);
end;
procedure flop;
begin
writeln('flop dijalankan... N=',N);
if n>0 then
flip(n-1);
end;
begin
clrscr;
flip(5);
readln;
end.