Hogyan kell ezt a feladatot megoldani Free Pascalban?

A vektor az egy tömb. Ennek kell két egymást követő elemét megcserélni.

Eljárás Csere(v:vektor ; index:egész);

segédváltozók:

x: egész

x:=v[index];

v[index]:=v[index+1];

v[index+1]:=x;

eljárás vége

Hát valami ilyesmi lehet. Csak le kell programozni. A cserénél figyelni kell, hogy ha a tömb legmagasabb indexe kerül megadásra, tehát a vektor utolsó eleme, akkor mi történik. Erre nincsen felkészítve a fentebbi vázlat.

Kijavítottam:

program cserebere;

Uses crt;

var v: array[1..5] of integer;

Procedure adatbekeres;

Var i:integer;

Begin

Writeln('Add meg a vektor első 5 elemét!');

for i:=1 to 5 do

Begin

Write('A(z) ',i,'. elem: ');

Readln(v[i]);

End;

Writeln('Akkor a te elemeid: ');

for i:=1 to 5 do

Write(v[i],', ');

writeln;

End;

Procedure csere;

Var a,x,j:integer;

Begin

repeat

clrscr;

Write('Hányadik elemet cseréljem meg a következővel?: ');

Readln(a);

until a in [1..4];

x:=v[a];

v[a]:=v[a+1];

v[a+1]:=x;

Writeln('Akkor az új sorrend: ');

For j:=1 to 5 do

Write(v[j],', ');

writeln;

End;

BEGIN

ClrScr;

Adatbekeres;

writeln('A folytatáshoz nyomj ENTER-t!');

Readln;

csere;

writeln('A kilépéshez nyomj ENTER-t!');

Readln;

END.

„utána meg majd olyat kéne, hogy tetszőleges 2 elemet cserélek meg, utána meg, hogy egy n elemű vektor tetszőleges 2 elemét cserélem meg. Vagy ez kezdőnek még túl necces? :)”

Az elv ugyan ez. Tök mindegy, hogy mekkora a vektor. De ha a cserélgetést akarod gyakorolni, akkor pl egy véletlen számokkal feltöltött vektor elemeit rakd növekvő/csökkenő sorrendbe.

Még az eredeti kérdésre egy variáció:

program dinnye;

uses crt;

const

SZOHOSSZMAX = 11;

TOMBHOSSZMAX = 7;

var

betu : char;

szam, csereindex : byte;

csere : string[SZOHOSSZMAX];

tomb : array[1..TOMBHOSSZMAX] of string[SZOHOSSZMAX] =

('elment','apád','dinnyét','lopni','elfelejtett','zsákot','vinni');

BEGIN

ClrScr;

GotoXY(13,3);

Write('Hányadik elemet cseréled a következővel? (0 = Kilépes)');

repeat

        GotoXY(15,10);

        for szam := 1 to TOMBHOSSZMAX do Write(tomb[szam], ' ');

        GotoXY(39,4);

        repeat

                betu := ReadKey;

                szam := Ord(betu)-48;

        until szam in[ 0..TOMBHOSSZMAX];

        Write(szam);

        if szam > 0 then

                if szam < TOMBHOSSZMAX then

                        csereindex := szam + 1

                else

                        csereindex := 1;

        csere := tomb[szam];

        tomb[szam] := tomb[csereindex];

        tomb[csereindex] := csere;

until szam < 1;

ClrScr;

END.