1 bài tập pascal

[mipphuong]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Đề là: Cho T1, L1, T2, L2, ..., Tn, Ln là tuổi và lương của n công nhân. Hãy viết chương trình tính và in tiền lương trung bình của các công nhân ứng với mỗi mức tuổi.
Ai giúp mình làm bài này với. Thanks!

 

[tachsung]

Có lẽ là bài này sử dụng mảng 1 chiều thôi mà Thêm 3 mảng nữa lưu các biến Số các tuổi khác nhau Số lượng nhân tương ứng và tổng số lương tương ứng

 

[p_trk]

có thể đệ qui để đánh dấu và xét là ok
(~~)(~~)(~~)(~~)(~~)(~~)

 

[p_trk]

sr bạn mình không có thời gian rút gọn cách làm hoặc nghĩ cách làm nhanh hơn, chắc chắn đây là cách làm cổ diển nhất, nếu ai có cách làm hay hơn thì post lên nha! dạo này bận ôn thi.

 uses crt;
 type congnhan = record
                       tuoi: integer;
                       luong: integer;
                       dd   : boolean;
                 end;
 var
    CN: array[1..100] of congnhan;
    x,y,sohieu,i,n,moc,j: integer;
    tuoi,tong,dem:array[1..100] of integer;

 procedure init;
  begin
    clrscr;
       y:=1;
      write(' n = '); readln(n);
      for i:=1 to n do
       begin

           y:=y+2;
           x:=x+2;

           write(' Tuoi cua cong nhan thu ',i,' :       tuoi ');
           gotoxy(29,x);
           readln(CN[i].tuoi);
           write(' Luong cua cong nhan thu ',i,' :       VND');
           gotoxy(32,y);
            readln(CN[i].luong);
           CN[i].dd:=true;
       end;
     end;

 procedure processing;
  begin

     for j:=1 to n do
      if CN[j].dd=true then
      begin
      sohieu:=sohieu+1;
      moc:=CN[j].tuoi;
      for i:=j to n do
       if CN[i].tuoi=moc then
        begin
            CN[i].dd:=false;
            tuoi[sohieu]:=moc;
            dem[sohieu]:=dem[sohieu] +1;
            tong[sohieu]:=tong[sohieu]+CN[i].luong;
        end;
      end;
   end;

 procedure print;
   begin
        for i:=1 to sohieu do

         writeln(tuoi[i] ,' tuoi co muc luong trung binh : ',tong[i]/dem[i]:6:1);
   end;

 BEGIN
   init;
   processing;
   print;
  readln;
 END.