uses crt;
procedure bin_asc(m,n:integer);
var i:integer;
begin
if n>1 then bin_asc(m,n-1);
for i:=1 to n do begin
gotoxy(m+1+n-2*i,n+1);
write('* ');
end;
writeln;
end;
procedure bin_desc(m,n:integer);
var i: integer;
begin
for i:=1 to n do begin
gotoxy(m-1+i*2-n,m*2+2-n);
write('* ');
end;
writeln;
if n>1 then bin_desc(m,n-1);
end;
var n:integer;
begin clrscr;
write('Masukan tinggi : ');readln(n);
writeln;
bin_asc(n,n);
bin_desc(n,n);
readln();
end.
procedure bin_asc(m,n:integer);
var i:integer;
begin
if n>1 then bin_asc(m,n-1);
for i:=1 to n do begin
gotoxy(m+1+n-2*i,n+1);
write('* ');
end;
writeln;
end;
procedure bin_desc(m,n:integer);
var i: integer;
begin
for i:=1 to n do begin
gotoxy(m-1+i*2-n,m*2+2-n);
write('* ');
end;
writeln;
if n>1 then bin_desc(m,n-1);
end;
var n:integer;
begin clrscr;
write('Masukan tinggi : ');readln(n);
writeln;
bin_asc(n,n);
bin_desc(n,n);
readln();
end.
0 Comment:
Posting Komentar