Vẽ Hình Tam Giác Cân Bằng Dấu * Trong Pascal .(dùng Câu Lệnh For To ...

Tam giác cân có khoảng cách giữa các dấu * trên 1 hàng (hình 1)

program bai_giai;uses crt;var h,i,j:integer;begin clrscr; write('Nhap do cao: '); readln(h); for i:=1 to h do begin for j:=1 to (h*2 div 2)-i do write(' '); for j:=1 to i do write('* '); writeln; end; readln;end.

Tam giác cân đặc (hình 2)

program bai_giai;uses crt;var h,i,j:integer;begin clrscr; write('Nhap do cao: '); readln(h); for i:=1 to h do begin for j:=1 to (h*2 div 2)-i do write(' '); for j:=1 to i*2-1 do write('*'); writeln; end; readln;end.

Tam giác cân rỗng (hình 3)

program bai_giai;uses crt;var h,i,j,k:integer;begin clrscr; write('Nhap do cao: '); readln(h); for i:=1 to (h*2 div 2)-i-1 do write(' '); writeln('*'); for i:=2 to h-1 do begin for j:=1 to (h*2 div 2)-i do write(' '); write('*'); k:=j+1; for j:=k to (h*2 div 2)+i-3 do write(' '); writeln('*'); end; for i:=1 to h*2-1 do write('*'); readln;end.

* Tâm giác cân đặc:

uses crt;var n,i,j,k:longint;beginclrscr; write('Nhap do dai duong cao: ');readln(n); k:=-1; for i:=1 to n do begin k:=k+2; for j:=1 to n-i do write(' '); for j:=1 to k do write('*'); writeln; end;readln;end.

* Tâm giác cân rỗng:

uses crt;var n,i,j,k:longint;beginclrscr; write('Nhap do dai duong cao: ');readln(n); k:=-1; for j:=1 to n do write(' '); write('*'); writeln; for i:=1 to n-1 do begin k:=k+2; for j:=1 to n-i do write(' '); write('*'); for j:=1 to k do write(' '); write('*'); writeln; end; for i:=1 to k+4 do write('*');readln;end.