HƯỚNG DẪN THỰC HÀNH 1

PHẦN 1: HƯỚNG DẪN CÀI ĐẠT DEV-PASCAL
Bước 1: nhấp đôi vào biểu tượng chương trình Dev-pascal

Bước 2: Nhấp chọn I Agree chấp thuận các quy định của chương trình Bước 3: Chọn ổ đĩa cài đặt chương trình và nhấn nút Install.

Bước 4: Nhấn nút Close hoàn tất quá trình cài đặt. Bước 5: Dev-pascal hoàn tất các thủ tục đặng kí trên máy tính.

PHẦN 2: CÁC BƯỚC TẠO 1 CHƯƠNG TRÌNH PASCAL
Bước 1: nhấn nút New source file Bước 2: Nhập đoạn mã chương trình Bước 3: Lưu chương trình và biên dịch chương trình
Nhấn nút compile project để biên dịch chương trình


3. Phần thân chương trình bắt đầu bằng từ
6. Write (' *****');
7. Write (' ***');
8. Write (' *');
9. End.

khóa Begin
4; 5;6; 7; 8 dùng lệnh write để xuất nội dung
ra màn hình.
Dữ liệu dạng chuỗi được đặt trong dấu nháy
đơn ' '
Kết thúc dòng lệnh bằng dấu chấm phẩy ;
9. Kết thúc chương trình bằng từ khóa End

b. Thay lệnh write bằng lệnh writeln và thêm dòng lệnh readln; trước dòng End. Hãy so
sánh kết quả, rút ra ý nghĩa của hàm write; writeln và readln (trước từ khóa End)

Bài 2: Viết chương trình nhập vào tên mình, máy tính sẽ hiện thị câu: “Xin chào bạn” +
tên vừa nhập từ bàn phím

Bài 3: Viết chương trình nhập số đo 2 cạnh của 1 hình chữ nhật xuất ra màn hình diện
tích là chu vi hình chữ nhật đó

Kết quả xuất ra màn hình
Chương trình tham khảo
CHUONG TRINH TINH DIEN
TICH, CHU VI HINH CHU
NHAT
Cho biet chieu dai canh thu 1 = …
Cho biet chieu dau canh thu 2 =…

DIEN TICH HINH THANG
-Cho biet day ngan =
-Cho biet day dai =
-Cho biet chieu cao =
Dien tich hinh thang =
Program Hinh_thang;
Var
a,b,h:Integer;
S:Real;
Begin
Writeln('CHUONG TRINH TINH DIEN TICH HINH
THANG');
Write('-Cho biet day ngan = ');
Readln(a);
Write('-Cho biet day dai = ');
Readln(b);
Write('-Cho biet chieu cao = ');
Readln(h);
S := 0.5 * (a + b) * h;
Writeln('+Dien tich hinh thang = ',s:6:2,' met vuong');
Readln
End.
Bài 5. Viết chương trình nhập vào số đo bán kính của vòng tròn. Tính và xuất ra màn hình diện
tích và chu vi của hình hình tròn đó.

Kết quả xuất ra màn hình
Chương trình tham khảo

Write('-Nhap so giay can tinh: ');
Readln(sogiay);
gio:=sogiay DIV 3600;
sogiay:= sogiay MOD 3600;
phut:=sogiay DIV 60;
giay:=sogiay MOD 60;
Writeln;
Writeln('+Neu nhap vao: ',sogiay,' giay');
Writeln('+Doi thanh: ',gio,' gio, ',phut,' phut, ',giay,' giay');
Readln
End.

Yêu cầu:
1. Viết lại chương trình trên và thực thi chương trình với giá
nhập vào là 15; 128; 256; 5688
2. Kết quả nhận được ở câu 1 có chổ nào chưa đúng ? Tại sao? Hãy
chỉnh sữa chương trình để được kết quả đúng hơn !

BÀI TẬP TỰ LÀM
Bài 1: Viết chương trình :
- Cho trước các giá trị X, Y, Z. Viết đoạn chương trình hoán vị vòng quanh các giá trị
trên : X nhận giá trị Y, Y nhận giá trị Z, Z nhận giá trị X.

Bài 2: Viết chương trình :
Nhập vào 2 số A và B. Thực hiện các phép toán cộng, trừ, nhân, chia với 2 số đó.