Zagnieżdżona pętla for

0

Witam!

Dopiero zaczynam naukę w programowaniu w Object Pascal i mam taki problem. Otóż chcę napisąć program który bęczie mi wyświetlał w Memo odwróconą "pół choinkę". Ma to wygladać tak:

5
12345
1234
123
12
1

Mam taki kod:

var
i: Integer;
j: Integer;
begin
for i := 0 to 6 do
for j := 1 to 6-1 do
Memo1.Lines.Add(IntToStr(j));

end;

W c++ taka zagnieżdżona pętla działa. A wygląda to tak:

void choinka (int n)
{
	cout << n << endl;
	for (int i = 0; i < n; i++)
	{
		
		for (int j = 1; j <= n - i; j++)
		{
			cout << j;
		
			
		}
		
		cout << endl;
	
	}
		
	


}

Gdzie mam bład? Proszę o pomoc :)
Pozdrawiam :)

0

Oba kody nie są identyczne.
Poprawnie będzie tak:

var
i: Integer;
j: Integer;
s: String;
begin
for i := 0 to 6 do
begin
 S := '';
 for j := 1 to 6-1 do
  S := S + IntToStr(J); // cout << J
 Memo1.Lines.Add(S); // cout << endl
end;
 
end;
0

Dziekuję za odpowiedź ale wypisuje mi w Memo cos takiego:
12345
12345
12345
12345
12345
12345
12345
Wiec chyba nie do końca jest dobrze :)

0

Moja (a raczej twoja) nieuwaga:

var
i: Integer;
j: Integer;
s: String;
begin
for i := 0 to 6 do
begin
 S := '';
 for j := 1 to 6-i do //było 6-1, co oczywiście nie miało sensu
  S := S + IntToStr(J); // cout << J
 Memo1.Lines.Add(S); // cout << endl
end;
 
end;
0

No faktycznie :) Dziękuję :)

1 użytkowników online, w tym zalogowanych: 0, gości: 1