[PASCAL 11] vẽ tam giác bằng dấu sao

[hoatraxanh24]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Mọi người ai biết vẽ tam giác bằng dấu sao (*) trong Pascal thì giúp mình (anh) với nhé Thanks trước!

 

[kophaidangvuadau]

uses crt;
var n,i,j:longint;
begin
write('Chieu cao = ');
readln(n);
clrscr;
for i:=1 to n do
begin
if i<> n then
for j:=1 to n*2-1 do
if (j = n-i+1) OR (j = n+i-1) then write('*') else write(' ')
else
for j:=1 to n*2-1 do
write('*');
writeln;
end;
readln;
end.