Lazarusban ezt hogy kell?

Szia.

Ird be az utolsó "end." elé hogy :

readln;

end.

Ekkor csak akkor fog kilépni a programból, ha megnyomod neki az entert.

Sok sikert.

üdv.

OFF

Mellesleg ez még csak egyszerű Free Pascal, ha a Lazarusban szerkeszted is.

ON

Nem mutatod be a programodat? Hátha lehet még csiszolni rajta.

Így gondoltad, egy ciklussal ?

program fenyofa;

var i, sorok: byte;

s, s1: string;

begin

sorok := 15;

for i := 1 to sorok do

begin

s := StringOfChar(' ', sorok - i);

s1 := StringOfChar('*', i * 2 - 1);

WriteLn(s, s1);

end;

ReadLn;

end.

Vagy így, kettővel?

program fenyofa;

var i, sorok, sorokY, emelet: byte;

lyuk, fa: string;

begin

      sorok := 15;

      sorokY := 3;

      WriteLn;

      WriteLn(StringOfChar(' ', sorok - 1),'*');

      for emelet := 1 to 4 do

            begin

                  for i := emelet to sorokY do

                        begin

                              lyuk := StringOfChar(' ', sorok - i);

                              fa := StringOfChar('#', i * 2 - 1);

                              WriteLn(lyuk, fa);

                        end;

                  Inc(sorokY,2);

            end;

      for i := 1 to 2 do

            WriteLn(StringOfChar(' ', sorok - 1),'M');

      ReadLn;

end.

Hőőő... Most nézem három ciklus :) Talán így picit rövidebben is:

program fenyofa;

var

i, sorok, sorokY, emelet: byte;

begin

sorok := 15;

sorokY := 3;

WriteLn(#10#13, StringOfChar(' ', sorok - 1), '*');

for emelet := 1 to 4 do

for i := emelet to (sorokY * emelet) - 1 do WriteLn(StringOfChar(' ', sorok - i), StringOfChar('#', i * 2 - 1));

WriteLn(StringOfChar(' ', sorok - 1), 'M', #10#13, StringOfChar(' ', sorok - 1), 'M');

ReadLn;

end.

Ez meg nekem tetszik, érezte a lelkem, hogy még igazítasz rajta. ;)

Lassan föl kéne ébrednem...

Off:

Az 'Almaszedők' - ről - 2002 - nincs egy nagyobb képed, nagyon tetszik.