Tiến muốn biết diện tích rẫy nhà mình là bao nhiêu, ba mẹ Tiến chỉ cho biết rẫy nhà mình hình chữ nhật và có chiều dài là A mét, chiều rộng là B mét.. Bạn ấy đã viết chương trìn[r]
Trang 3NỘI DUNG
Trang 4I LÝ THUYẾT
1 Câu lệnh gán
<Biến>:= <Biểu thức>[; ]
2 Thủ tục nhập dữ liệu
READ/READLN(<danh sách biến vào>) [; ]
3 Thủ tục xuất dữ liệu
WRITE/WRITELN(<danh sách kết quả>) [; ]
Trang 5II BÀI TẬP
Bài 1
Cho Chương trình Pascal sau:
{1} Program bai tap1;
{2} Var y, z = integer; x: byte;
{3} Begin {4} x:= 300;
{5} y:= 2 {6} z = x*y;
{7} write (z);
{9} End
30 9876543210 31
100 99
110 119 118 109
Trang 6II BÀI TẬP
Bài 1: Bài tập kiểm tra và sửa lỗi
{1} Program bai tap1;
{2} Var y, z = integer; x: byte;
{3} Begin
{4} x:= 300;
{5} y:= 2
{6} z = x*y;
{7} write (z);
{9} End
1 Đặt tên chương trình
2 Dấu = ở khai báo
biến Dấu = thành :
3 Biến x vượt quá
phạm vi kiểu dữ liệu
byte
Khai báo x: integer;
5 Thiếu dấu ; Thêm dấu ;
6 Thiếu dấu : ở lệnh
gán Thêm = : trước
Trang 7II BÀI TẬP
Bài 2
Đến dịp nghĩ hè, Tiến được bố mẹ đưa lên rẫy để trồng ngô Tiến muốn biết diện tích rẫy nhà mình là bao nhiêu, ba mẹ Tiến chỉ cho biết rẫy nhà mình hình chữ nhật và có chiều dài là A mét, chiều rộng là B mét Bạn ấy đã viết chương trình tính diện tích thửa ruộng như sau
Trang 8II BÀI TẬP
Bài 2
{1} READLN(A);
{2} WRITELN(‘DIEN TICH:’, S:8:2); {3} VAR A, B, S: REAL;
{4} BEGIN
{5} WRITE(‘NHAP CHIEU DAI:’);
{6} END
{7} PROGRAM DIENTICH;
{8} WRITE(‘NHAP CHIEU RONG:’); {9} READLN(B);
{10}S:= A*B;
{11}READLN
Trang 9Gợi ý:
* Thuật toán
Bước 1: Nhập A,B
Bước 2: S <- A*B
Bước 3: Thông báo diện tích S ra màn hình Bước 4: Kết thúc
Trang 10II BÀI TẬP
Bài 2: Bài tập sắp xếp câu lệnh
{7} PROGRAM DIENTICH;
{3} VAR A, B, S: REAL;
{4} BEGIN
{5} WRITE(‘NHAP CHIEU DAI:’);
{1} READLN(A);
{8} WRITE(‘NHAP CHIEU RONG:’);
{9} READLN(B);
{10} S:= A*B;
{2} WRITELN(‘DIEN TICH:’, S:8: 2 );
{11} READLN
{6} END.
{1} READLN(A);
{2} WRITELN(‘DIEN TICH:’,
S:8:2);
{3} VAR A, B, S: REAL;
{4} BEGIN
{5} WRITE(‘NHAP CHIEU
DAI:’);
{6} END.
{7} PROGRAM DIENTICH;
{8} WRITE(‘NHAP CHIEU
RONG:’);
{9} READLN(B);
{10} S:= A*B;
{11} READLN
Trang 11II BÀI TẬP
Bài 3: Bài tập lập trình
Chuẩn bị cho liên hoan lớp, các bạn nữ mua X cân táo, Y cân nho Biết giá mỗi cân táo
là D đồng, nho có giá gấp 2.5 giá táo Hỏi các bạn nữ phải trả bao nhiêu đồng
a Xác định bài toán
•Input: Số cân táo (X), số cân nho (Y), giá mỗi
cân táo (D)
•Output: Tổng số tiền phải trả
Trang 12II BÀI TẬP
Bài 3: Bài tập lập trình
a Xác định bài toán
•Input: Số cân táo (X), số cân nho (Y), giá mỗi cân táo (D)
•Output: Tổng số tiền phải trả
b Tổ chức dữ liệu
Biến: X, Y, D, Tien: REAL
c Thuật toán
B1: Nhập X, Y, D B2: Tien X*D + Y*2.5*D B3: Thông báo Tien ra màn hình
B4: Kết thúc
Trang 13II BÀI TẬP
Bài 3: Bài tập lập trình
d Chương trình
B
1
B
2
B
3
B
4
Trang 14BÀI TẬP VẬN DỤNG
1 Viết chương trình giải bài toán
Tính diện tích của tam giác ABC biết chiều dài
3 cạnh là a, b, c
Gợi ý: Sử dụng công thức Heron:
S=
Với p=(a+b+c)/2
) (
* ) (
* ) (
* p a p b p c
Trang 15Xin cảm ơn quý thầy cô và
các em học sinh!