Tiết 7- Bài 8+9
Ví dụ: Cho hình chữ nhật có chiều dài a, chiều rộng b. Hãy viết chương trình tính diện tích của hình chữ nhật đó
CÁC THỦ TỤC CHUẨN VÀO/RA ĐƠN GIẢN
SOẠN THẢO, DỊCH THỰC HIỆN VÀ HIỆU CHỈNH CHƯƠNG TRÌNH
Input: cho HCN có chiều dài a, chiều rộng b
Output: Tính diện tích HCN đó
Program DTHCN;
uses crt;
var a,b,DT:Real;
Begin
clrscr;
Write(`Nhap vao so a` ); Readln(a);
Write(`Nhap vao so b` ); Readln(b);
DT:=a*b
Writeln(‘Dien tich hinh chu nhat la `, DT:4:2);
Readln
End.
1. Thủ tục nhập dữ liệu vào từ bàn phím
- Việc nhập dữ liệu từ bàn phím được thực hiện bằng thủ tục chuẩn:
Read();
Hoặc:
Readln();
2. Thủ tục đưa dữ liệu ra màn hình
- Để đưa dữ liệu ra màn hình, Pascal dùng thủ tục chuẩn:
Write();
Writeln();
Nhóm 1: Viết chương trình nhập vào số học sinh trong lớp của bạn và đưa ra màn hình số học sinh đó

Nhóm 2: Cho 2 số a,b. Em hãy viết chương trình tính tổng 2 số đó

Nhóm 3: Cho 2 số a,b. Em hãy viết chương trình tính tích 2 số đó

Nhóm 4: Cho hình chữ nhật có chiều dài a, chiều rộng b. Em hãy viết chương trình tính chu vi của HCN đó
 
Nhóm 1: Viết chương trình nhập vào số học sinh trong lớp của bạn và đưa ra màn hình số học sinh đó

Program Songuoi;
Uses crt;
var n:integer;
Begin
clrscr;
Write(`Lop ban co bao nhieu nguoi? `); Readln(N);
write(`Vay lop ban co `, N ,` nguoi trong lop`);
Readln
End.
Nhóm 2: Cho 2 số a,b. Em hãy viết chương trình tính tổng 2 số đó
Program Tinhtong;
Uses crt;
var a,b,T:Real;
Begin
clrscr;
Write(`Nhap vao so a`); Readln(a);
Write(`Nhap vao so b`); Readln(b);
T:=a+b;
Writeln(`Tong cua 2 so la`, T:4:2);
Readln
End.
Nhóm 3: Cho 2 số a,b. Em hãy viết chương trình tính tích 2 số đó

Program Tinhtich;
uses crt;
var a,b,Tich:Real;
Begin
clrscr;
Write(`Nhap vao so a` ); Readln(a);
Write(`Nhap vao so b` ); Readln(b);
Tich:=a*b;
Writeln(`Tich cua 2 so la `, Tich:4:2);
Readln
End.
Nhóm 4: Cho hình chữ nhật có chiều dài a, chiều rộng b. Em hãy viét chương trình tính chu vi của HCN đó

Program CVHCN;
USES crt;
var a,b,CV:Real;
Begin
clrscr;
Write(`Nhap vao so a` ); Readln(a);
Write(`Nhap vao so b` ); Readln(b);
CV:=(a+b)*2;
Writeln(`Chu vi hinh chu nhat la `, CV:4:2);
Readln
End.
3. Soạn thảo, dịch, thực hiện và hệu chỉnh chương trình
Soạn thảo: Gõ nội dung của chương trình gồm phần khai báo và phần thân
Lưu chương trình: ấn F2, nhâp tên mới rồi ấn Enter.
Biên ịch chương trình: ấn tổ hợp phím Alt+F9. Nếu chương trình có lỗi cú pháp sẽ thông báo. Cần sửa lỗi, lưu lại chương trình tới khi không còn lỗi.
Chạy chương trình: Nhấn tổ hợp phím Ctrl+F9
Đóng cửa sổ chương trình: Nhấn tổ hợp phím Alt + F3
Thoát khỏi phần mềm: Nhấn tổ hợp phím Alt+X
Luyện tập
Câu 1: Để nhập dữ liệu cho 2 biến a,b ta dùng lệnh:
A. Write(a,b); C. Real(a,b); B.Readln(a,b); D. Read(‘a,b’);
Câu 2: Cấu trúc của thủ tục đưa dữ liệu ra màn hình
Write(); C. Writ();
Readln(); D. Writen();
Câu 3: Cấu trúc của thủ tục nhập dữ liệu vào từ bàn phím
A. Real(); C. Readln();
B. Write(); D. Readln();
Câu 4: Trong các phát biểu sau phát biểu nào sai?
A. Để lưu chương trình: ấn F3, nhâp tên mới rồi ấn Enter.
B. Để biên dịch chương trình: ấn tổ hợp phím Alt+F9.
C. Để chạy chương trình: Nhấn tổ hợp phím Ctrl+F9
D. Để đóng cửa sổ chương trình: Nhấn tổ hợp phím Alt + F3
E. Để thoát khỏi phần mềm: Nhấn tổ hợp phím Alt+X
Bài tập về nhà