Zagnieżdżona pętla for

Odpowiedz Nowy wątek
2011-07-24 14:06
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 :)

edytowany 1x, ostatnio: madmike, 2011-07-24 14:19

Pozostało 580 znaków

2011-07-24 14:21
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;

Pozostało 580 znaków

2011-07-24 14:29
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 :)

Pozostało 580 znaków

2011-07-24 14:31

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;

edytowany 1x, ostatnio: Patryk27, 2011-07-24 14:31

Pozostało 580 znaków

2011-07-24 14:38
0

No faktycznie :) Dziękuję :)

Pozostało 580 znaków

Odpowiedz
Liczba odpowiedzi na stronę

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