Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Tham khảo:
Tách thành các việc cụ thể:
- Đếm số điểm thuộc mỗi mức xếp hạng Tốt, Khá, Đạt, Chưa đạt.
- Tim sum, max, min.
Có hai lựa chọn viết chi tiết các câu lệnh: 1-Duyệt dãy điểm số đầu vào nhiều lần, mỗi lần làm một việc hoặc 2-Duyệt dãy điểm số đầu vào chỉ một lần, làm đồng thời nhiều việc trong một lần duyệt.
- Trả về các giá trị: điểm trung bình, max, min, số điểm thuộc mỗi mức xếp hạng.
- Gọi hàm ptDiem; viết kết quả vào tệp “phantich_theoHS.txt”.
- Theo kết quả đếm số điểm thuộc mỗi mức xếp hạng Tốt, Khá, Đạt, Chưa đạt, nếu chamDiem > 0 thì viết thêm tên học sinh vào tệp “xetKhenThuong.txt”;
- Định dạng in ra số thực bằng một trong các cách sau:
+ Dùng hàm round() làm tròn số trước khi in ra để làm tròn, chỉ giữ lại d chữ số phần lẻ sau dấu chấm thập phân.
Dùng lệnh in có giữ chỗ bằng “{}” để định dạng bằng hàm fomat. Ví dụ, nếu muốn in ra số thực với 2 chữ số phần lẻ thì giữ chỗ bằng {:.2f}
Tham khảo:
Đầu vào của hàm này là kết quả thực hiện nhapTuTep. gồm có danh sách xenf£S (các tên học sinh), danh sách tenlfon (các tên môn học) và mảng hai chiều x x x – Đọc từng cột của mảng hai chiếu để có dây số các điểm mỗi môn học.
- Ghép tương ứng mỗi tên học sinh từ danh sách tuS với mỗi điểm môn học sẽ thành danh sách các cấp (tên, điểm) cho môn học đó.
- Trả về tên danh sách dãy điểm số môn học và tên danh sách các cấp (tên, điểm).
– Sử dụng hàm sum để tính tổng và điểm trung bình.
- Gọi hàm Python thực hiện sắp xếp thứ tự tăng dần (không giảm); sau khi sắp xếp thì tìm được ngay max, min.
- Dãy số đã sắp thứ tự tăng dần (không giảm) nên có thể dùng hàm bisect left (trong mô đun bisect) tìm được các vị trí phân chia dãy điểm thành 4 đoạn điểm: Chưa đạt, Đạt, Khá và Tốt. Từ đó tính được số lượng điểm theo từng mức xếp hạng.
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Cac so chinh phuong la: ');
for i:=1 to n do
if sqrt(a[i])=trunc(sqrt(a[i])) then write(a[i]:4);
writeln;
writeln('Cac so chinh phuong chan la: ');
for i:=1 to n do
if ((sqrt(a[i])=trunc(sqrt(a[i]))) and (a[i] mod 2=0) then write(a[i]:4);
readln;
end.
for i:=1 to n do
if sqr(a[i])=sqr(trunc(sqrt(a[i]))) then
begin
write(a[i],' ');
if a[i] mod 2 =0 then write(a[i]);
writeln;
end;
*Xây dựng hàm tính N!
function gt(n:integer):longint;
var i,gthua:longint;
begin
gthua:=1;
for i:=1 to n do
gthua:=gthua*i;
gt:=gthua;
end;
– Gọi hàm nhapTuTep.
– Mở tệp ở chế độ “viết” và gán làm đầu ra chuẩn (để có thể xuất kết quả ra bằng lệnh print).
- Lặp theo i là chỉ số hàng của mảng (danh sách) 2 chiều n×m thực hiện ptHocSinh - Lặp theo k là chỉ số cột ứng với điểm các môn học, thực hiện tachMon cho môn học k, thực hiện ptMonHoc.
- Đóng tập.