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

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

0 bình luận về “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”

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

    Bình luận

Viết một bình luận