slide 1 tiõt 1314 bµi thùc hµnh 3 khai b¸o vµ sö dông biõn bµi 1 viõt ch­¬ng tr×nh pascal cã khai b¸o vµ sö dông biõn bµi to¸n sgk khëi ®éng pascal vµ gâ ch­¬ng tr×nh sau program tinh tien uses crt

Sau khi nhËp d÷ liÖu cÇn nhÊn phÝm Enter ®Ó x¸c nhËn.[r]

TiÕt 13+14: Bµi thùc hµnh 3:

khai b¸o vµ sö dông biÕn

Bµi 1 ViÕt ch ¬ng tr×nh

Pascal cã khai b¸o vµ sö

dông biÕn.

Bµi to¸n SGK.

Khởi động Pascal và gõ ch ơng trình sau:

program Tinh_tien;

uses crt;

var

soluong: integer;

dongia, cuocphi,thanhtien: real;

thongbao: string;

begin

clrscr;

thongbao:= Tong so tien phai thanh to¸n ’Tong so tien phai thanh to¸n

: ’Tong so tien phai thanh to¸n

{Nhap don gia va so luong hang}

write( Don gia = ); readln(dongia);’Tong so tien phai thanh to¸n ’Tong so tien phai thanh to¸n

write( So luong = );readln(soluong); ’Tong so tien phai thanh to¸n ’Tong so tien phai thanh to¸n

thanhtien:= soluong*dongia+cuocphi;

(*In ra so tien phai tra*)

writeln(thongbao,thanhtien:10:2);

readln

end

L u ch ơng trình với tên TINHTIEN.PAS

Dịch và chỉnh sửa các lỗi gõ, nếu có.

Chạy ch ơng trình với các bộ số liệu gõ vào

đơn giá và số l ợng nh sau (1000, 20),

(3500, 200), (18500, 123) Kiểm tra tính

đúng của các kết quả in trên màn hình.

Chạy ch ơng trình với bộ số liệu gõ vào là (1, 35000) Quan sát kết quả nhận đ ợc Hãy

thử đoán lí do tại sao ch ơng trình cho kết quả sai.

Bài 2 Thử viết ch ơng

trình nhập các số nguyên

X và Y, in giá trị của X và

Y ra màn hình Sau đó

tráo đổi các giá trị của X

và Y rồi in lại ra màn

hình.

program hoan_doi; var x,y,z:integer;

begin

read(x,y);

writeln(x, ,y);’Tong so tien phai thanh to¸n ’Tong so tien phai thanh to¸n

z:=x;

x:=y;

y:=z;

writeln(x, ,y);’Tong so tien phai thanh to¸n ’Tong so tien phai thanh to¸n

readln

end.

TổNG KếT

Cú pháp khai báo biến trong Pascal:

var <danh sách biến>: <kiểu dữ liệu>;

trong đó danh sách biến gồm tên các biến và đ ợc liệt kê

cách nhau bởi dấu phẩy

Kí hiệu:= đ ợc sử dụng trong lệnh gán giá trị cho biến.

Lệnh read(<danh sách biến>) hay readln(<danh sách

biến>), trong đó danh sách biến là tên các biến đã khai

báo, đ ợc sử dụng để nhập dữ liệu từ bàn phím Sau khi

nhập dữ liệu cần nhấn phím Enter để xác nhận Nếu giá

trị nhập vào v ợt quá phạm vi của biến, nói chung kết quả tính toán sẽ sai.

Nội dung chú thích nằm trong cặp dấu { và } bị bỏ qua khi

dịch ch ơng trình Các chú thích đ ợc dùng để làm cho ch

ơng trình dễ đọc, dễ hiểu

TiÕt 15: Bµi tËp

Bµi 6 KÕt qu¶ cña c¸c phÐp so s¸nh: a) §óng; b) Sai;

c) §óng;

d) §óng khi x > 2.5; ng îc l¹i, phÐp so

s¸nh cã kÕt qu¶ sai

Bµi 7:

a) 15-8>=3; b) (20-15)*(20-15)<>25; c) 11*11=121; d) x>10-3*x.

Bài 5:

Các lỗi trong ch ơng trình: (1) Thừa dấu bằng ở dòng 1 (chỉ cần dấu hai chấm); (2) Thừa dấu hai chấm ở dòng 2 (với hằng chỉ cần dấu bằng); (3) Thiếu dấu chấm

phẩy ở dòng 4; (4) Khai báo kiểu dữ liệu

của biến b không phù hợp: Khi chia hai số

nguyên, kết quả luôn luôn là số thực, cho

dù có chia hết hay không Do đó cần phải

khai báo biến b là biến có kiểu dữ liệu số

thực

Bµi 6:

a) Ch ¬ng tr×nh Pascal tÝnh chu vi vµ diÖn tÝch h×nh trßn.:

uses crt;

var r: integer; C,S: real;

begin

clrscr;

write('Nhap ban kinh r = '); readln(r);

C:=2*Pi*r;

S:=Pi*r*r;

writeln('Chu vi duong tron bang ',C:8:2);

writeln('Dien tich hinh tron bang ',S:8:2);

end.

b) Tính diện tích tam giác biết cạnh đáy và đ ờng cao.

uses crt;

var a, h: integer; S: real;

begin

clrscr;

write('Nhap duong cao h = '); readln(h);

write('Nhap day tam giac a = '); readln(a);

S:=(a*h)/2;

writeln('Dien tich hinh tam giac S= ',S:8:2);

end.