Viết chương trình pascal, nhập vào họ tên và ngày sinh các thành viên trong nhóm ( 4 thành viên ) in ra màn hình họ và tên được sắp xếp theo thứ tự dựa vào ngày sinh từ bé đến lớn. Ai giúp em với ạ, em cảm ơn
2 câu trả lời
*Đây là dạng bài theo ý kiến cá nhân, mời bạn xem tham khảo bài của mình nhé!
uses crt;
var n,i,j,tg:byte;
tgtn:string;
ngay,thang,nam:array[1..100] of integer;
ten:array[1..100] of string;
begin
clrscr;
write('nhap so nguoi: ');readln(n);
for i:=1 to n do
begin
write('ten cua nguoi thu ',i,': ');readln(ten[i]);
write('ngay thang nam sinh cua ',ten[i],': ');readln(ngay[i],thang[i],nam[i]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if ngay[i]>ngay[j] then
begin
tg:=ngay[i];
ngay[i]:=ngay[j];
ngay[j]:=tg;
tg:=thang[i];
thang[i]:=thang[j];
thang[j]:=tg;
tg:=nam[i];
nam[i]:=nam[j];
nam[j]:=tg;
tgtn:=ten[i];
ten[i]:=ten[j];
ten[j]:=tgtn;
end;
clrscr;
for i:=1 to n do
begin
writeln[ten[i]);
write('sinh ngay: ',ngay[i],'/',thang[i],'/',nam[i]);
writeln;
ebd;
readln;
end.
#NOCOPY
#NOPLAGIARISM
uses crt;
var n,i,j,tg:byte;
tgtn:string;
ngay,thang,nam:array[1..100] of integer;
ten:array[1..100] of string;
begin
clrscr;
write('nhap so nguoi: ');readln(n);
for i:=1 to n do
begin
write('ten cua nguoi thu ',i,': ');readln(ten[i]);
write('ngay thang nam sinh cua ',ten[i],': ');readln(ngay[i],thang[i],nam[i]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if ngay[i]>ngay[j] then
begin
tg:=ngay[i];
ngay[i]:=ngay[j];
ngay[j]:=tg;
tg:=thang[i];
thang[i]:=thang[j];
thang[j]:=tg;
tg:=nam[i];
nam[i]:=nam[j];
nam[j]:=tg;
tgtn:=ten[i];
ten[i]:=ten[j];
ten[j]:=tgtn;
end;
clrscr;
for i:=1 to n do
begin
writeln[ten[i]);
write('sinh ngay: ',ngay[i],'/',thang[i],'/',nam[i]);
writeln;
ebd;
readln;
end.
Đây là chương trình anh viết chung cho n người nha nếu muốn 4 người em chỉ cần lược bỏ bớt đi thôi hoặc là giữ nguyên chương trình và nhập n bằng 4
