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.
Skip to content
Viết chương trình nhập chiều cao của 1 tam giác [số hàng của tam giác] , in ra tam giác có dạng : * Program ve_tam_giac; begin
***
*****
*******
uses crt;
var center,i,j,max,h:integer;
max_hang ,k:integer;
clrscr[];
Write[‘ Nhap vao chieu cao cua tam giac : ‘];readln[h];
max:=h+h-1;
center:=[max div 2] + 1;
for i=1 to h do
begin
max_hang:=i+i-1;
k:=[max-max_hang] div 2;
for j=1 to max do
begin
if[j>k and j