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
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
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