Kezdőoldal » Számítástechnika » Programozás » Tudnátok segíteni? Free Pascal!

Szandy :) kérdése:

Tudnátok segíteni? Free Pascal!

Figyelt kérdés

A feladat:egy tömbe be kell olvasni neveket(vezetéknév és keresztnév)-ez megvan.

Amiben a segítségeteket kérem:ezeket a neveket buborék rendezéssel vezetéknév szerint kell rendezni.Kérlek segítsetek!

Előre is köszi :)



2012. ápr. 17. 17:11
 1/6 anonim ***** válasza:
nevek hossza vagy abc szerint rendezes?
2012. ápr. 17. 17:46
Hasznos számodra ez a válasz?
 2/6 A kérdező kommentje:
ABC szerint!
2012. ápr. 17. 18:01
 3/6 anonim ***** válasza:
2012. ápr. 17. 18:08
Hasznos számodra ez a válasz?
 4/6 anonim ***** válasza:

program project1;

var nev:array[1..20] of string;

csere:boolean;

t:string;

n,i:integer;


begin

readln(n);

for i:=1 to n do

readln(nev[i]);

csere:=true;

while csere do

begin

csere:=false;

for i:=2 to n do

if nev[i]<nev[i-1] then

begin

t:=nev[i];

nev[i]:=nev[i-1];

nev[i-1]:=t;

csere:=true;

end;

end;

writeln;

writeln;

for i:=1 to n do

writeln(nev[i]);

readln;

end.

2012. ápr. 18. 13:15
Hasznos számodra ez a válasz?
 5/6 anonim válasza:
de cuki vagy szandy :)
2012. máj. 11. 21:56
Hasznos számodra ez a válasz?
 6/6 A kérdező kommentje:
Köszi,de miért is???? :D
2012. máj. 13. 17:13

Kapcsolódó kérdések:





Minden jog fenntartva © 2024, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu

A weboldalon megjelenő anyagok nem minősülnek szerkesztői tartalomnak, előzetes ellenőrzésen nem esnek át, az üzemeltető véleményét nem tükrözik.
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!