Bài tập  /  Bài đang cần trả lời

Bài tập Tin học 8

giuppppppppppppppppppppppppppppppppppppppppppppp
----- Nội dung dịch tự động từ ảnh -----
Vào dịp tổng kết năm học, nhà trường tổ chức khen thưởng cho các học sinh đạt
hạng Nhất, Nhì, Ba trong toàn trường với những phần thưởng đặc biệt và muốn biết điểm
số có phá kỉ lục điểm của năm học trước hay không. Số học sinh được các lớp đề nghị
khen thưởng rất nhiều nên nhà trường cần xét chọn lại.
Việc xét hạng theo nguyên tắc: Các học sinh bằng điểm thì đồng hạng và không có
thứ hạng kế tiếp. Chẳng hạn: Có 3 học sinh đồng hạng Nhất thì không có học sinh hạng
Nhì, hạng Ba. Có 2 học sinh đồng hạng Nhì thì không có học sinh hạng Ba.
- Yêu cầu: Cho trước kỉ lục điểm năm học trước là K, số lượng học sinh đề nghị
khen thưởng là N, các điểm số tương ứng là: ai, a2, ..., âN
a) Xét xem điểm số của học sinh có phá kỉ lục điểm năm học trước hay không?
Nếu phá kỉ lục điểm thì tính số điểm vượt kỉ lục, nếu không phá kỉ lục điểm thì ghi số 0.
b) Thống kê số lượng học sinh đạt hạng Nhất, số lượng học sinh đạt hạng Nhì,
số lượng học sinh đạt hạng Ba và điểm số tương ứng của thứ hạng đó.
- Dữ liệu vào: Từ tệp văn bản XETHANG.INP gồm 2 dòng:
+ Dòng đầu tiên ghi số nguyên N và số thực K (3 + Dòng tiếp theo ghi các số thực a1, a2, ..., ân (0 Các số trên một dòng cách nhau một kí tự trắng.
- Kết quả: Ghi vào tệp văn bản XETHANG.OUT gồm:
+ Dòng thứ nhất ghi kết quả của câu a.
+ Dòng thứ hai ghi số lượng học sinh đạt hạng Nhất và điểm số của hạng Nhất.
+ Dòng thứ ba ghi số lượng học sinh đạt hạng Nhì và điểm số của hạng Nhì.
+ Dòng thứ tư ghi số lượng học sinh đạt hạng Ba và điểm số của hạng Ba.
Các số trên cùng một dòng cách nhau một kí tự trắng, các điểm số lấy một chữ
số thập phân.
1 trả lời
Hỏi chi tiết
73
1
0
Thái Thảo
17/05/2023 17:51:00
+5đ tặng
program XetHang;
var
  N: Integer;
  K: Real;
  i, Count1, Count2, Count3: Integer;
  Score: array of Real;
begin
  AssignFile(Input, 'XETHANG.INP');
  Reset(Input);
  ReadLn(N, K);
  SetLength(Score, N);
  for i := 0 to N - 1 do
    Read(Score[i]);
  CloseFile(Input);
  Count1 := 0;
  for i := 0 to N - 1 do
  begin
    if Score[i] > K then
    begin
      WriteLn('Pha ky luc diem!');
      WriteLn('Diem vuot ky luc: ', Score[i] - K:0:2);
      Exit;
    end;
  end;
  WriteLn('Khong pha ky luc diem!');
  Count1 := 0;
  Count2 := 0;
  Count3 := 0;
  for i := 0 to N - 1 do
  begin
    if Score[i] = K then
      Inc(Count1)
    else if Score[i] = K - 1 then
      Inc(Count2)
    else if Score[i] = K - 2 then
      Inc(Count3);
  end;
  AssignFile(Output, 'XETHANG.OUT');
  Rewrite(Output);
  WriteLn(Count1, ' hoc sinh dat hang Nhat');
  WriteLn(Count1, ' diem: ', K:0:2);
  WriteLn(Count2, ' hoc sinh dat hang Nhi');
  WriteLn(Count2, ' diem: ', K - 1:0:2);
  WriteLn(Count3, ' hoc sinh dat hang Ba');
  WriteLn(Count3, ' diem: ', K - 2:0:2);
  CloseFile(Output);
end.
 

Mở khóa để xem toàn bộ nội dung trả lời

(?)
Bạn đã đạt đến giới hạn của mình. Bằng cách Đăng ký tài khoản, bạn có thể xem toàn bộ nội dung trả lời
Cải thiện điểm số của bạn bằng cách đăng ký tài khoản Lazi.
Xem toàn bộ các câu trả lời, chat trực tiếp 1:1 với đội ngũ Gia sư Lazi bằng cách Đăng nhập tài khoản ngay bây giờ
Tôi đã có tài khoản? Đăng nhập

Bạn hỏi - Lazi trả lời

Bạn muốn biết điều gì?

GỬI CÂU HỎI
Học tập không giới hạn cùng học sinh cả nước và AI, sôi động, tích cực, trải nghiệm
Bài tập liên quan
Bài tập Tin học Lớp 8 mới nhất

Hôm nay bạn thế nào? Hãy nhấp vào một lựa chọn, nếu may mắn bạn sẽ được tặng 50.000 xu từ Lazi

Vui Buồn Bình thường

Học ngoại ngữ với Flashcard

×
Gia sư Lazi Gia sư
×
Trợ lý ảo Trợ lý ảo