Sau khi nhËp d÷ liÖu cÇn nhÊn phÝm Enter ®Ó x¸c nhËn.[r]
(1)TiÕt 13+14: Bµi thùc hµnh 3:
khai báo sử dụng biến
Bài Viết ch ơng trình
Pascal có khai báo vµ sư dơng biÕn.
(2)Khởi động Pascal gõ ch ơng trình sau:
program Tinh_tien; uses crt;
var
soluong: integer;
dongia, cuocphi,thanhtien: real; thongbao: string;
begin
clrscr;
(3)cuocphi:=10000;
thongbao:= Tong so tien phai to¸n ’
: ’
{Nhap don gia va so luong hang}
write( Don gia = ); readln(dongia);’ ’
write( So luong = );readln(soluong); ’ ’
thanhtien:= soluong*dongia+cuocphi; (*In so tien phai tra*)
writeln(thongbao,thanhtien:10:2); readln
(4)L u ch ơng trình với tên TINHTIEN.PAS Dịch chỉnh sửa lỗi gõ, có
Chy ch ơng trình với số liệu gõ vào đơn giá số l ợng nh sau (1000, 20),
(3500, 200), (18500, 123) Kiểm tra tính kt qu in trờn mn hỡnh
Chạy ch ơng trình với số liệu gõ vào (1, 35000) Quan sát kết nhận đ ợc HÃy
(5)Bài Thử viết ch ơng
trình nhập số nguyên X Y, in giá trị X Y hình Sau
tráo đổi giá trị X và Y in lại
(6)program hoan_doi; var x,y,z:integer;
begin
read(x,y);
writeln(x, ,y);’ ’
z:=x; x:=y; y:=z;
writeln(x, ,y);’ ’
(7)TæNG KÕT
Có ph¸p khai b¸o biÕn Pascal:
var <danh sách biến>: <kiểu liệu>;
trong ú danh sách biến gồm tên biến đ ợc liệt kê cách dấu phẩy
KÝ hiÖu:= đ ợc sử dụng lệnh gán giá trị cho biÕn. LƯnh read(<danh s¸ch biÕn>) hay readln(<danh s¸ch
biến>), danh sách biến tên biến khai
báo, đ ợc sử dụng để nhập liệu từ bàn phím Sau nhập liệu cần nhấn phím Enter để xác nhận Nếu giá trị nhập vào v ợt phạm vi biến, nói chung kết tính tốn sai
(8)TiÕt 15: Bµi tËp
Bµi Kết phép so sánh: a) Đúng; b) Sai;
c) §óng;
d) §óng x > 2.5; ng ợc lại, phép so sánh có kết sai
Bài 7:
(9)Bài 5:
Các lỗi ch ơng trình: (1) Thừa dấu dòng (chỉ cần dÊu hai chÊm); (2) Thõa dÊu hai chÊm ë dßng (víi h»ng chØ cÇn dÊu b»ng); (3) ThiÕu dÊu chÊm
(10)Bµi 6:
a) Ch ơng trình Pascal tính chu vi 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);
(11)b) Tính diện tích tam giác biết cạnh đáy đ ờ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);