GV: Nguy?n Th? Ngđn
V� Th? Thanh Nga
Bài dạy :
ÔN TẬP
TIN HỌC 8 - TIẾT 34-PPCT
PHÒNG GIÁO DỤC VÀ ĐÀO TẠO KRÔNG BÔNG
TRƯỜNG THCS NGUYỄN VIẾT XUÂN
Kiểm tra bài cũ
Viết chương trình nhập vào hai số a và b.
T�nh t?ng vă t�ch c?a 2 s? d�
Var a,b, T,P :real;
Begin
Write(` nhap gia tri cua a va b :`);
Readln(a, b);
T:=a+b;
P:=a*b;
Writeln(`Ket qua cua tong la:`, T:3:2);
Writeln(`Ket qua cua tich la:`, P:3:2);
Readln;
End.


a. Diễn tả thuật toán:
* Liệt kê
* Viết chương trình


b. V� d?1:
L?p tr�nh t�nh vă dua ra măn h�nh di?m trung b�nh c?a 3 m�n Toân, L�, Hoâ. N?u DTB >=8.0 th� d?t k?t qu? lă h?c sinh gi?i ngu?c l?i lă kh�ng d?t h?c sinh gi?i.
THUẬT TOÁN
Bước 1: Nhập điểm 3 môn T,L,H
.Bước 2: Tính ĐTB =(T+L+H)/3.
Bước 3: Nếu ĐTB >=8.0 thì đạt học sinh giỏi, ngược lại thì không đạt học sinh giỏi.
Bước 4: Kết thúc chương trình.
* Thuật toán liệt kê
* Viết chương trình
Program Tinh_diem_trung_binh;
Uses crt;
Var T,L,H, Dtb: real;
Begin
Clrscr;
Write(‘ nhap diem 3 mon T,L,H:’);
Readln(T,L,H);
Dtb:=(T+L+H)/3;
Writeln(‘ket qua cua diem trung binh la:’,Dtb:4:2);
If Dtb>=8.0 then writeln(‘dat hoc sinh gioi’)
Else writeln(‘ khong duoc hoc sinh gioi’);
Readln;
End.
Ví dụ 2: Hãy mô tả thuật toán giải bài toán tính tổng các phần tử của dãy số A={a1,a2,a3…an} cho trước

INPUT: n và dãy n số a1, a2,..., an.
OUTPUT: Tổng S = a1 + a2 +... + an.
Bước 1. S  0; i  0.
Bước 2. i  i + 1.
Bước 3. Nếu i  n, S  S + ai và quay lại bước 2.
Bước 4. Thông báo S và kết thúc thuật toán.