[r]
(1)
(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.
(3)Bài toán 1: Viết chương trình nhập số a, b, c và đưa màn hình:
Nếu a, b,c là ba cạnh của tam giác thì đưa chu vi, diện tích của tam giác đó
Ngược lại thì đưa 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 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
(4)Nhập ba số a, b, c
a+b>c và a+c>b và c+b>a
a+b+c
Cvi
S p(p-a)(p-b)(p-c)
a, b, c không là ba Cạnh của tam giác.
Kết thúc
p Cvi/2
Sai
Đúng
Đưa giá trị Cvi, Dtích. Kết thúc
(5)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 số a, b,c
a,b,c không là cạnh của tam giác
a,b,c là cạnh của tam giác
Begin
(6)(7)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 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
(8)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
(9)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
(10)(11)