BÀI GIẢNG MÔN TIN HỌC 11
?
?
?
?
?
?
?
TRUO`NG THPT HUY`NH THU?C KHA?NG
CHÀO QUÝ THẦY CÔ VÀ CÁC EM!
BA`I T�?P THU?C HA`NH 2
Mục đích yêu cầu:
Xây dựng chương trình có sử dụng cấu trúc rẽ nhánh.


Làm quen với việc hiệu chỉnh chương trình.
BA`I T�?P THU?C HA`NH 2
Bài toán 1:
Viết chương trình nhập 3 số a, b, c và đưa ra màn hình:
Nếu a, b,c là ba cạnh của tam giác thì đưa ra chu vi,
diện tích của tam giác đó.
Ngược lại thì đưa ra thông báo:’a, b, c không phải là ba cạnh
của tam giác’
Input:
output:
Ba số a, b, c
Đưa ra giá trị chu vi, diện tích của tam giác hoặc thông báo
“a, b ,c không phải là ba cạnh của tam giác.”

Input, Output của bài toán là gi?̀
Thuật toán để giải bài toán này như thế nào?
Nhập ba số a, b, c
a+b>c và a+c>b và c+b>a
a, b, c không là ba
Cạnh của tam giác.
Kết thúc
Sai
Đúng
Đưa ra giá trị Cvi, Dtích.
Kết thúc
Thuật toán:
BA`I T�?P THU?C HA`NH 2
Phần khai báo:
Phần thân:
Nhập dữ liệu
BEGIN
END.
Program tamgiac;
Var a,b,c,cvi,p,dtich:real; Kt:boolean;
Writeln(`Nhap so a`); readln(a);
Writeln(`Nhap so b`);readln(b);
Writeln(`Nhap so c`);readln(c);
Kt:=(a+b>c) and (a+c>b) and (b+c>a) ;
If Kt Then

Writeln(`a,b,c la ba canh cua tam giac`);
cvi:=a+b+c;
p:=cvi/2;
Dtich:=sqrt(p*(p-a)*(p-b)*(p-c));
Writeln(`chu vi tam giac la:`,cvi:6:2);
Writeln(`Dien tich tam giac la:`,Dtich:6:2);

Else
Writeln(`a, b,c khong la ba canh cua tam giac`);
Readln
Kiểm tra 3 số a, b,c
a,b,c không là 3 cạnh
của tam giác
a,b,c là 3 cạnh
của tam giác
Begin
End;
BA`I T�?P THU?C HA`NH 2
chạy chương trình ở pascal
BA`I T�?P THU?C HA`NH 2
BA`I T�?P THU?C HA`NH 2
Bài toán 2:
Viết chương trình nhập vào điểm các môn: Toán, Văn, Tiếng Anh của
một học sinh và đưa ra màn hình:


Điểm trung bình
Xếp loại học tập của học sinh đó
Biết rằng:
Điểm toán, điểm văn hệ số 2
Nếu Điểm trung bình >=8 thì xếp loại Giỏi
Nếu 6.5<=Điểm trung bình <8 thì xếp loại Khá
Nếu 5.0 <=Điểm trung bình <6.5 thì xếp loại Trung bình
Nếu Điểm trung bình <5 thì xếp loại Yếu



Input:
output:
Điểm các môn của một học sinh.
Điểm trung bình và xếp loại của học sinh đó

Input, Output của bài toán là gi?̀
Thuật toán để giải bài toán này như thế nào?
Nhập điểm Toán, Văn, TAnh
ĐTB>=8.0
6.5<=ĐTB<8.0
5.0 <= ĐTB<6.5
Xếp loại Giỏi
Kết thúc

Xếp loại Khá
Kết thúc
́


Xếp loại Trung bình
Kết thúc
Xếp loai Yếu
Kết thúc
Thuật toán:
Đúng
Sai
Đúng
Đúng
Sai
Sai
BA`I T�?P THU?C HA`NH 2
Phần khai báo:
program xep_loai;
var DToan, DVan,DAnh,DTB:real;
Phần thân:
Nhập dữ liệu
Writeln(`moi ban nhap vao diem cac mon cua mot hoc sinh`);
Writeln(`Nhap diem toan`);readln(DToan);
Writeln(`Nhap diem Van`);readln(DVan);
Writeln(`Nhap diem Anh`);readln(DAnh);
BEGIN
END.
DTB:=(DToan*2+DVan*2+DAnh)/5;
Writeln(`Diem trung binh cua hoc sinh la:`, DTB:6:2);
If DTB>=8.0 then writeln(`xep loai Gioi`)
Else
If (6.5<=DTB) and (DTB<8.0) then writeln(`xep loai Kha`)
Else
If (5.0<=DTB)and(DTB<6.5) then writeln(`xep loai Trung Binh`)
Else writeln(`Xep loai Yeu`);
readln
Tính ĐTB
Xếp loại
BA`I T�?P THU?C HA`NH 2
chạy chương trình ở pascal
BA`I T�?P THU?C HA`NH 2
BÀI GIẢNG MÔN TIN HỌC 11
?
?
?
?
?
?
?
TRUO`NG THPT HUY`NH THU?C KHA?NG
CÁM ƠN QUÝ THẦY CÔ VÀ CÁC EM!
BÀI HỌC KẾT THÚC