[tin học 8] pascal

[kool_boy_98]

[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.

Viết giúp em chương trình in ra màn hình hình tam giác cân, vd như:

*
**
***
****
*****
******
............​

em mới viết được chương trình in ra tam giác thường thôi, tam giác cân thì thử nhưng lại không được
giúp em nhanh nhá!

 

[minh_minh1996]

Cái này mình lấy trong những đề ở trên mạng !
chuẩn 100%

Program Tam_giac_can;

Var

cao,i,j:Byte;

Begin

Writeln(' TAM GIAC CAN DAC');

Writeln('Chieu cao gioi han tu 1 den 22');

Writeln('------------------------------');

Write('-Nhap chieu cao: ');

Readln(cao);

For i:=1 To cao Do

Begin

Write(#32:cao-i+1);

For J:=1 To (2*i-1) Do

Write('*');

Writeln;

End;

Writeln;

Writeln(' Bam phim <Enter> de ket thuc');

Readln

End.