Hướng dẫn cài đặt và thực hành Dev Pascal

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

Nhấn nút Excute để thực thi chương trình


Cửa sổ khi chương trình thực thi


PHẦN 3: BÀI TẬP THỰC HÀNH
Bài 1:
Viết chương trình xuất ra hình tam giác từ các dấu hoa thị.
Kết quả hiển thị:
*********
*******
*****
***
*
a. Viết lại đoạn chương trình và đọc những lưu ý cần nhớ

Chương trình
Những lưu ý cần nhớ
1. Program Tam_giac;
2. Uses Crt;
3. Begin
4. Write('*********');
5. Write (' *******');
1. Khai báo chương trình bằng từ khóa
Program
2. Khai báo sử dụng thư viện Crt bằng từ
khóa Uses

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 chu nhat =
Chu vi hinh chu nhat =

Program hinh_chu_nhat;

Var
a,b, p,S:Integer;
Begin
Writeln('CHUONG TRINH TINH DIEN TICH, CHU VI
HINH CHU NHAT');
Write('-Cho biet chieu dai canh thu 1 = ');
Readln(a);
Write('-Cho biet chieu dau canh thu 2 = ');
Readln(b);

S := a * b;
p := (a+b)*2;

Writeln('+Dien tich hinh chu nhat = ',s:6:2);
Writeln('+chu vi hinh chu nhat = ',p:6:2);
Readln
End.


Bài 4. Viết chương trình nhập vào số đo 2 cạnh đáy và chiều cao của hình thang. Tính và xuất ra
màn hình diện tích của hình thang đó

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

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

TINH CHU VI, DIEN TICH
HINH TRON
Cho biet ban kinh :
Chu vi vong tron =
Dien tich vong tron =
Program hinh_tron;
Var
Radius,s,cv :Real;
const Pi=3.14;
Begin
Writeln('TINH CHU VI, DIEN TICH HINH TRON');
Writeln(' ');
Write('-Cho biet ban kinh : ');
Readln(Radius);
cv:=2*Pi*Radius;
S:=Pi*Radius*Radius;
Writeln;
Writeln('+Chu vi hinh tron = ',cv:10:2);
Writeln('+Dien tich hinh tron = ',s:10:2);
Writeln;
Readln
End.


Bài 6.

Program bai1;
Var
sogiay,gio,phut,giay:Integer;
Begin

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ố đó.