[r]
Trang 1
Trang 2Mụ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.
Trang 3Bà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?
Trang 4Nhập ba số a, b, c
a+b>c và a+c>b và c+b>a
a+b+c
Cvi
a, b, c không là ba Cạnh của tam giác.
Kết thúc
p Cvi /2
Sai
Đúng
Đưa ra giá trị Cvi, Dtích.
Kết thúc
Thuật toán:
Trang 5Phầ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;
Trang 7Bà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?
Trang 8Nhậ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
́j
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
Tính ĐTB (Toan*2+Văn*2+Anh)/5
Trang 9Phầ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
Trang 11