Egyszerű műveletek tömbökkel Pascalban?

- Páros elemek kiválogatása

- Elemek sorrendjének megfordítása

- Elemek sorbarendezése

Két vagy több rendezetlen tömb elemeit fésüld össze egyetlen rendezett tömbbe.

Egy véletlenszerűen számokkal feltöltött tömbben keresd meg és írd ki, hogy az egyes számok hányszor fordulnak elő a tömbben, minden egyes előforduló szám csak egyszer szerepeljen a kiírásban.

- Integerrel (shortInt) feltöltött tömb tartalmát konvertáld át BCD-re.

- String tip. változókal feltöltött tömböt rendezz ABC-rendbe.

- 3-4 tömböt szervezz egyetlen adatbázisba.

Stringtömbön végzett műveletekkel írasd ki Weöres Sándor "Fughetta" című versét:

[link]

[link]

program fughetta_1;

var

i, j : byte;

tomb : array[0..4, 1..3] of string = (

('Weöres Sándor: Fughetta'#10#13, '', ''),

('egy gerenda legurul', '', ''),

('piros csörgők ', 'tündökölnek', 'összetörnek'),

('kék tojások ', 'énekelnek', 'szétfreccsennek'),

('tarka csigaszarvak ', 'lengnek', 'tűnnek')

);

begin

      WriteLn(tomb[0, 1]);

      for j := 1 to 4 do

      begin

            for i := 1 to 4 do WriteLn(tomb[i, 1], tomb[i, 2]);

            for i := 1 to 3 do

                  begin

                        tomb[0, i] := tomb[j, i];

                        tomb[j, i] := tomb[j + 1, i];

                        tomb[j + 1, i] := tomb[0, i];

                  end;

            tomb[j, 2] := tomb[j, 3];

            WriteLn;

      end;

      ReadLn;

end.

program fughetta_2;

var

i, j : byte;

rag : array[0..1] of string[3] = (#$6E#$65#$6B, '');

t : array[0..4, 1..3] of string = (

('Weöres Sándor: Fughetta'#10#13, '', ''),

('egy gerenda legurul', '', ''),

('piros csörgők ', 'tündököl', 'összetör'),

('kék tojások ', 'énekel', 'szétfreccsen'),

('tarka csigaszarvak ', 'leng', 'tűn')

);

begin

      WriteLn(t[0, 1]);

      for j := 1 to 4 do

      begin

            for i := 1 to 4 do WriteLn(t[i, 1], t[i, 2], rag[Ord(i = j)]);

            for i := 1 to 3 do

                  begin

                        t[0, i] := t[j, i];

                        t[j, i] := t[j + 1, i];

                        t[j + 1, i] := t[0, i];

                  end;

            t[j, 2] := t[j, 3];

            WriteLn;

      end;

      ReadLn;

end.