Lập trình đơn giản

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Việt Sơn Nguyễn
Hỏi về pascal !!!

Viết chương trình nhập họ tên đầy đủ trong lớp học( không quá 50 người). Hãy sắp xếp họ tên của các học viên theo thứ tự alphabet (nếu tên trùng nhau thì sắp xếp theo tên đệm, nếu tên đệm trùng nhau thì sắp xếp theo tên họ). In ra màn hình danh sách sau khi đã sắp xếp.

người kì lạ
10 tháng 8 2017 lúc 22:08

chịu haha

Nguyễn Nhật Nam
24 tháng 8 2017 lúc 20:20

uses crt;
type ht=record
ho:string[15];
dem:string[10];
ten:string[10];
end;
var a:array[1..100] of ht;
stmp:ht;
i,j,n,tmp:integer;
s1,s2:string;
begin
clrscr;
write('So hs < 50! so hs=');readln(n);
for i:=1 to n do
begin
write('Ho hs ',i,':');readln(a[i].ho);
write('dem hs ',i,':');readln(a[i].dem);
write('Ten hs ',i,':');readln(a[i].ten);
end;

for i:=1 to n do
for j:=i+1 to n do
begin
if a[i].ten>a[j].ten then
begin
stmp:=a[i];
a[i]:=a[j];
a[j]:=stmp;
end;
if a[i].ten=a[j].ten then
if a[i].dem>a[j].dem then
begin
stmp:=a[i];
a[i]:=a[j];
a[j]:=stmp;
end
else if a[i].dem=a[j].dem then
if a[i].ho>a[j].ho then
begin
stmp:=a[i];
a[i]:=a[j];
a[j]:=stmp;
end;

end;
for i:=1 to n do
begin
writeln('Hs ',i,':',a[i].ho,' ',a[i].dem,' ',a[i].ten);
end;
readln;
end.


Các câu hỏi tương tự
Phạm Nhật Trúc
Xem chi tiết
Fan MU từ lõi trái đất
Xem chi tiết
No_pvp
Xem chi tiết
khonopro
Xem chi tiết
Võ Văn Trường
Xem chi tiết
Tích Nguyệt
Xem chi tiết
Phạm Thị Thanh
Xem chi tiết
Dan_hoang
Xem chi tiết
Suru
Xem chi tiết