HS: tỡm ra hai số a, b
GV: Yờu cầu hs mụ tả thuật toỏn HS: Tự giỏc làm bài ra vở ghi.
GV: Từ thuật toỏn đú, em hóy viết chương trỡnh.
HS: Khởi động Pascal tự giỏc làm bài.
Bài toỏn 1: -: Tớnh diện tớch của hỡnh A (SGK) Program sapxep; Uses crt; Var a, b, S1 : integer; S,S2:real; Const pi = 3.14; Begin Clrscr;
Write(‘ Nhap gia tri a =’); Readln(a); Write(‘ Nhap gia tri b=’); Readln(b); S1: = 2*a*b;
S2: = pi*a*a/2; S: = S1+S2;
Writeln(‘ Dien tich hinh chu nhat la S1’,S1); Writeln(‘Dien tich hinh ban nguyet la S2’,S2:4:2);
Writeln(‘ Dien tich hinh la A’,S:4:2); Readln;
End. G : Đưa bài toỏn lờn màn hỡnh, yờu cầu H
đọc và nghiờn cứu.
H : Xỏc định Input, Output.H : Nờu cỏch của mỡnh. H : Nờu cỏch của mỡnh.
G: Dựa vào mụ tả thuật toỏn viết chương trỡnh bài toỏn. trỡnh bài toỏn.
Bài toỏn 2. Viết chương trỡnh tớnh chu vi và diện tớch của hỡnh chữ nhật cú chiều dài hai cạnh là a, b (được nhập từ bàn phớm). Program Chu_nhat; uses crt; Var a, b, S, CV: real; Begin Clrscr;
Write('Nhap chieu dai:'); readln(a); Write('Nhap chieu rong:'); readln(b); S := a*b;
CV := (a+b)*2;
Writeln('Dien tich hinh chu nhat la:',S); Writeln('Chu vi hinh chu nhat la:',CV:10:2); readln với hỡnh CN cú chiều rộng 2a, chiều dài b và một hỡnh bỏn nguyệt bỏn kớnh a
end.
G : Đưa bài toỏn lờn màn hỡnh, yờu cầu Hđọc và nghiờn cứu. đọc và nghiờn cứu.
H : Xỏc định Input, Output.H : Nờu cỏch của mỡnh. H : Nờu cỏch của mỡnh.
G: Dựa vào mụ tả thuật toỏn viết chươngtrỡnh bài toỏn. trỡnh bài toỏn.
Bài toỏn 3 Viết chương trỡnh tớnh chu vi và diện tớch hỡnh trũn cú bỏn kớnh r (được nhập từ bàn phớm). Program HINH_TRON; uses crt; Var r: real; Begin clrscr;
Write('Nhap ban kinh:'); readln(r);
Writeln('Chu vi duong tron la:',2*pi*r:10:2); Writeln('Dien tich hinh tron la:',pi*r*r:10:2); readln
end.
4. TỔNG KẾT VÀ HƯỚNG DẪN HỌC TẬP4.1. Tổng kết 4.1. Tổng kết