مرتب سازی

[masood samadi]

سلام

خسته نباشید.یک جدول دارم که databaseآن Sqlاست حالا می خواهم اطلاعات موجود در این جدول را بر اساس نام خانوادگی وبه صورت صعودی مرتب کنم نه با دستورات Sql بلکه به صورت مرتب سازی حبابی


ممنونم اگر به من کمک کنید

[دلفــي]

سلام

خسته نباشید.یک جدول دارم که databaseآن Sqlاست حالا می خواهم اطلاعات موجود در این جدول را بر اساس نام خانوادگی وبه صورت صعودی مرتب کنم نه با دستورات Sql بلکه به صورت مرتب سازی حبابی


ممنونم اگر به من کمک کنید

اين تابع مرتب سازي حبابي در زبان پاسكال هست ، با كمي تغيير مي توني ازش استفاده كني :



program arr;
uses crt;
var
a : array [1..10] of byte;
temp,m,n : byte;
begin
(*Daryafte etelaat *)
for m := 1 to 10 do begin
clrscr;
Writeln('Please enter ',m,'th positive number(1-255)');
Readln(a[m]);
end;
(* moratab sazi *)
for n := 1 to 9 do
for m := 1 to 9 do begin
if a[m] > a[m+1] then begin
temp := a[m+1];
a[m+1] := a[m];
a[m] := temp;
end;
end;
(* namayesh arraye *)
for n := 1 to 10 do
write(a[n]0,' ');
end.