Bài thực hành 7. Xử lí dãy số trong chương trình

NỘI DUNG
Tìm hiểu, sữa lỗi (nếu có) các câu lệnh trong chương trình của bài 1/SGK trang 80,81
Gõ chương trình vào máy. Dịch, chạy chương trình
Bài thực hành 7
XỬ LÝ DÃY SỐ TRONG CHƯƠNG TRÌNH
Bài 1. Viết chương trình nhập điểm của các bạn trong lớp. Sau đó in ra màn hình số bạn đạt kết quả học tập loại giỏi, khá, trung bình và kém (theo tiêu chuẩn từ 8.0 trở lên đạt loại giỏi, từ 6.5 đến 7.9 đạt loại khá, từ 5.0 đến 6.4 đạt trung bình và dưới 5.0 xếp loại kém).
Bài thực hành 7
XỬ LÝ DÃY SỐ TRONG CHƯƠNG TRÌNH
program Phanloai;
Var i, n, Gioi, Kha, Trungbinh, Kem: integer;
A: array[1..100] of real;
Begin
write(‘Nhap so cac ban trong lop, n = ‘); readln(n);
writeln(‘Nhap diem:’);
For i:=1 to n do
Begin
write(i,’. ‘); readln(a[i]);
End;
Gioi:=0; Kha:=0; Trungbinh:=0; Kem:=0;
for i:=1 to n do
begin
if a[i]>=8.0 then Gioi:=Gioi+1;
if a[i]<5 then kem:=Kem+1;
if (a[i]<8.0) and (a[i]>=6.5) then Kha:=Kha+1;
if (a[i]>=5) and (a[i]<6.5) then Trungbinh:=trungbinh+1
end;
writeln(‘Ket qua hoc tap:’);
writeln(Gioi,’ ban hoc gioi’);
writeln(Kha,’ ban hoc kha’);
writeln(Trungbinh,’ ban hoc trung binh’);
writeln(Kem,’ ban hoc kem’);
readln
End.
program Phanloai;
Var i, n, Gioi, Kha, Trungbinh, Kem: integer;
A: array[1..100] of real;
Begin
write(‘Nhap so cac ban trong lop, n = ‘); readln(n);
writeln(‘Nhap diem:’);
For i:=1 to n do
Begin
write(‘ a[ ‘,i,’ ]= ‘); readln(a[i]);
End;
Gioi:=0; Kha:=0; Trungbinh:=0; Kem:=0;
for i:=1 to n do
begin
if a[i]>=8.0 then Gioi:=Gioi+1;
if a[i]<5 then kem:=Kem+1;
if (a[i]<8.0) and (a[i]>=6.5) then Kha:=Kha+1;
if (a[i]>=5) and (a[i]<6.5) then Trungbinh:=trungbinh+1
end;
writeln(‘Ket qua hoc tap:’);
writeln(Gioi,’ ban hoc gioi’);
writeln(Kha,’ ban hoc kha’);
writeln(Trungbinh,’ ban hoc trung binh’);
writeln(Kem,’ ban hoc kem’);
readln
End.
NỘI DUNG
Tìm hiểu, sữa lỗi (nếu có), bổ sung các câu lệnh trong chương trình của bài 2/SGK trang 81,82
Gõ chương trình vào máy. Dịch, chạy chương trình
Bài thực hành 7
XỬ LÝ DÃY SỐ TRONG CHƯƠNG TRÌNH
Bài 2. Bổ sung và chỉnh sửa chương trình trong bài 1 để nhập hai loại điểm Toán và Ngữ văn của các bạn, sau đó in ra màn hình điểm trung bình của mỗi bạn trong lớp (theo công thức điểm trung bình = (điểm Toán + điểm Ngữ văn)/2), điểm trung bình của cả lớp theo từng môn Toán và Ngữ văn.
Bài thực hành 7
XỬ LÝ DÃY SỐ TRONG CHƯƠNG TRÌNH
Program diemtrungbinh;
Var i, n: integer;
TbToan, TbVan: real;
DiemToan, DiemVan: array[1..100] of real;
begin
writeln(`Diem trung binh:`);
for i:=1 to n do
writeln(i,`. `,(DiemToan[i]+DiemVan[i])/2:3:1);
TbToan:=0; TbVan:=0;
for i:=1 to n do
begin
TbToan:=TbToan+DiemToan[i];
TbVan:=TbVan+DiemVan[i];
end;
TbToan:=TbToan/n; TbVan:=TbVan/n;
writeln(`Diem trung binh mon Toan: `,TbToan:3:2);
writeln(`Diem trung binh mon Van: `,TbVan:3:2);
end.
begin
write(`Nhap so cac ban trong lop n=`); Readln(n); writeln(`Nhap diem:`);
for i:=1 to n do
begin
write(`Diemtoan[`,i,`]=`); readln(Diemtoan[i]);
write(`Diemvan[`,i,`]=`); readln(Diemvan[i]);
end;
writeln(`diem trung binh cua moi ban`);
for i:=1 to n do
begin writeln(`Diem TB cua ban thu ‘,i,’la:`,(Diemtoan[i]+Diemvan[i])/2:3:1);
TbToan:=0; TbVan:=0;
for i:=1 to n do
begin
TbToan:=TbToan+DiemToan[i];
TbVan:=TbVan+DiemVan[i];
end;
TbToan:=TbToan/n; TbVan:=TbVan/n;
writeln(`Diem trung binh mon Toan: `,TbToan:3:2);
writeln(`Diem trung binh mon Van: `,TbVan:3:2);
readln
end.
Program diemtrungbinh;
Var i, n: integer;
TbToan, TbVan: real;
DiemToan, DiemVan: array[1..100] of real;