Code người ta, code mình

2 bài khác nhau mà

Thiếu cái begin end ở sau then kìa
Mà mình test ok mà nhỉ :?

Ideone.com

Ideone.com

Ideone is something more than a pastebin; it's an online compiler and debugging tool which allows to compile and run code online in more than 40 programming languages.

yêu cầu bài là in

*
**
***
****
*****
******
*******

mà em ghi như in cái gì thần thánh ý

đọc code của bạn đúng hại não, vẫn chưa hiểu sao từ 1 bài nhẹ nhàng thế mà bạn làm nó kinh khủng thế được

sau hơn 1 năm em không đụng và pascal , giờ như người ngoài hành tinh học ý 22/10 thi rùi, không biết sẽ ra sao

In cái tam giác vuông cân mà bạn code như hacker ấy =))
Có vẻ thuật toán bạn còn yếu

P/S: Cứ luyện là từ từ sẽ lên thôi

haha, em hơi yếu toán , cố lên

anh ơi, cái thuật toán in tam giác cân ý, dùng thuật tóan j ? có phải cần thêm if…then không ?

Bạn nhìn cái hình

*
**
***
****
*****
******
*******

là ra được cái quy luật mà
Nếu chỉ là thuật toán đơn giản, bạn tạo 1 vòng lặp mẹ để lặp chiều cao, 1 vòng lặp con để lặp chiều dọc ấy.

có phải cần thêm if…then không ?

Dùng vòng lặp là ra, cần gì if…then

thế này có đúng không ?

uses crt;
var i,n,j,a,b,c : integer;
begin
 write('Nhap chieu cao : ');readln(n);
 for i:=1 to n do
  begin
  for j:=1 to n-i do write(' ');
  for a:=1 to i do write('*');
  for b:=1 to i-1 do write('*');
  for c:=1 to j do write(' ');
  writeln;
  end;
 readln;
end.

uses crt;
var i,n,j,a,b,c : integer;
begin
 write('Nhap chieu cao : ');readln(n);
 for i:=1 to n do
  begin
  for j:=1 to n-i do write(' ');
  for a:=1 to i do write('*');
  for b:=1 to i-1 do write('*');
  for c:=1 to j do write(' ');
  writeln;
  end;
 readln;
end.

Bạn đang muốn in ra tam giác nào thế ?

tam giác cân

   *
  ***
 *****
*******

std::cout << "\nNhap chieu cao tam giac: ";
std::cin >> docao;
for (int i = 1; i <= docao; ++i)
{
	for (int j = i; j <= docao - 1; ++j)
		std::cout << "  ";
	for (int k = 1; k <= i * 2 - 1; ++k)
		std::cout << "* ";
	std::cout << std::endl;
}

Tự dịch sang Pascal nhé =)) Lười lắm và không rành về Pascal nên k code Pascal được =))

ờ , em chỉ hỏi thuật toán trên thôi, cảm ơn

Chỉ là hình này mà dài vậy bạn, cho 3 vò for là ra

Đừng nản, nên lấy code đó mà học tập, từ từ sẽ giỏi thôi