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

*Chào mừng quý thầy cô và các em tham gia buổi học hôm nay*
bài thực hành 7
xử lí dãy số trong chương trình
a) var X:Array[20,25] of integer;
b) var X:Array[5..10.5] of Real;
c) var X:Array[10..1] of integer;
d) var X:Array[3..10] of integer;
Kiểm tra bài cũ
Câu hỏi: Các khai báo biến mảng sau đây trong Pascal đúng hay sai?
Viết chương trình nhập từ bàn phím các phần tử của 1 dãy số. độ dài nhập từ bàn phím?
Var n,i : integer ;
A : array[1..100] of integer ;
Begin
Write(‘nhap n=’) ; readln(n) ;
For i :=1 to n do
Begin
Write(‘a[’,i,’]=’) ; readln(a[i]) ;
End ;
Readln
End.
bài thực hành 7
xử lí dãy số trong chương trình
bài thực hành 7
xử lí dãy số trong chương trình
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 1.
Input, Output của bài toán?
* Input:
Điểm của các bạn trong lớp.
* Output:
Số các bạn đạt kết quả học tập loại giỏi, khá, trung bình, yếu (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)
Ý tưởng tìm số các bạn đạt kết quả học tập loại giỏi, khá, trung bình, yếu?
* í tu?ng :
- D?t cỏc giỏ tr? ban d?u: Gi?i:=0; Khỏ:=0; Trungbinh:=0; Kộm:=0;
- L?n lu?t cho ch?y t? 1 d?n n v� ki?m tra:
+ N?u A[i]>=8.0 thỡ d?m s? HS gi?i l�: Gi?i:=Gi?i+1
+ N?u A[i]<8.0 v� A[i]>=6.5 thỡ d?m s? HS khỏ l�: Khỏ:=Khỏ+1
+ N?u A[i]<6.5 v� A[i]>=5.0 thỡ d?m s? HS trung bỡnh l�: trung bỡnh:=trung bỡnh+1
+ Cũn l?i l� s? HS y?u: y?u:=y?u+1
Liệt kê các biến dự định sẽ sử dụng trong chương trình?
Tìm hiểu phần khai báo dưới đây và tìm hiểu tác dụng của từng biến?
program Phanloai;
uses crt;
Var i,n,Gioi,Kha,Trungbinh,Kem: integer;
A: array[1..100] of real;
- i:
- n:
- Gioi, Kha, Trungbinh, Kem:
- A:
Biến đếm
Biến để nhập số các bạn trong lớp sẽ được nhập vào.
Số các học sinh giỏi, khá, trung bình, yếu.
Biến mảng, dùng để lưu điểm số của các học sinh trong lớp, có kiểu số thực.
Phần thân chương trình sẽ tương tự dưới đây:
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]<8.0) and (a[i]>=6.5) then Kha:=Kha+1;
if (a[i]>=5)and(a[i]<6.5)then Trungbinh:=trungbinh+1
if a[i]<5 then kem:=Kem+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.
C�u 1. For i:=1 to n do
Begin
write(i,`. `); readln(a[i]);
End;
Do?n CT sau th?c hi?n l?nh gì
a. Nhập điểm vào mảng
b. In điểm ra màn hình
c. Sắp xếp điểm
d. Khai báo mảng điểm
Phần quà của bạn là: cái bắt tay của bạn bên cạnh
c�u 2.
if (a[i]<8.0) and (a[i]>=6.5) then Kha:=Kha+1;
Do?n CT sau th?c hi?n l?nh gì?
a. Tổng điểm khá từ 6.5 đến 8.0
b. Đếm điểm khá từ 6.5 đến 7.9
c. Tổng điểm khá từ 6.5 hoặc 8.0
d. Đếm điểm khá từ 6.5 hoặc 8.0
Phần quà của bạn là: Là 1 điểm cộng
C�u 3.
writeln(Trungbinh,` ban hoc trung binh`);
Do?n CT sau th?c hi?n l?nh gì?
a. Nhập số bạn học trung bình
b. In tổng số bạn học trung bình
c. Tổng điểm trung binh từ 5.0 hoặc 6.4
d. In số bạn học trung bình
Phần quà của bạn là: Một tràng vỗ tay của cả lớp
Em hãy gõ tiếp phần chương trình này vào máy tính sau phần khai báo. Dịch, chạy chương trình.
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 2.
Tìm hiểu ý nghĩa của các câu lệnh sau đây:
Phần khai báo:
Var i, n: integer;
TbToan, TbVan: real;
DiemToan, DiemVan: array[1..100] of real;
Phần thân chương trình:
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.
C�u 1. for i:=1 to n do
writeln(i,`. `,(DiemToan[i]+DiemVan[i])/2:3:1);
Do?n CT sau th?c hi?n l?nh gì
a. Tính điểm trung bình môn toán và văn lấy 1 chữ số thập phân, tại vị trí thứ i
b. Tính tổng điểm môn toán và văn lấy 3 chữ số thập phân, tại vị trí thứ i
c. Nhập điểm toán và văn rồi tính tổng điểm
d. Nhập điểm toán và văn rồi tính trung bình điểm 2 môn
Phần quà của bạn là: cái bắt tay của bạn bên cạnh
c�u 2.
for i:=1 to n do
begin
TbToan:=TbToan+DiemToan[i];
TbVan:=TbVan+DiemVan[i] ;
end;
Do?n CT sau th?c hi?n l?nh gì?
a. Tính trung bình điểm môn toán, văn
b. Tính tổng điểm môn toán, văn
c. Đếm điểm môn toán, văn
d. Tính tổng điểm môn toán hoặc văn
Phần quà của bạn là: Là 1 điểm cộng
C�u 3.
TbVan:=TbVan/n;
TbToan:=TbToan/n;
Do?n CT sau th?c hi?n l?nh gì?
a. Tính tổng điểm toán, văn
b. In tổng số bạn học trung bình
c. In điểm trung bình điểm văn, toán
d. Tính trung bình điểm văn, toán.
Phần quà của bạn là: Một tràng vỗ tay của cả lớp
Bổ sung các câu lệnh trên vào vị trí thích hợp trong chương trình. Thêm các lệnh cần thiết, dịch và chạy chương trình với các số liệu thử.
Var i, n: integer;
TbToan, TbVan: real;
DiemToan, DiemVan: array[1..100] of real;
Begin
Write(‘nhap n=’); readln(n);
For i:=1 to n do
Begin
Write(‘DiemToan[’,I,’]=’); readln(DiemToan[i]);
Write(‘DiemVan[’,I,’]=’); readln(DiemVan[i]);
End;
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.
Tin học 8
1. Cú pháp khai báo biến mảng kiểu số nguyên và số thực trong Pascal có dạng:
Var : array[..] of integer;
Var : array[..] of real;
Trong đó, chỉ số đầu không lớn hơn chỉ số cuối.
2. Tham chiếu tới phần tử của mảng được xác định bằng cách:
[chỉ số]
Tổng kết
huướng dẫn về nhà
Hoàn thành 2 bài tập
Chuẩn bị bài mới