BAI THUC HANH SO 3

Tổng kết 1, Cú pháp khai báo biến trong Pascal: Var Danh sách tên biến : Kiểu dữ liệu ; 2, Cú pháp khai báo hằng trong Pascal: Const tên hằng : giá trị của hằng ; 2, Cú pháp lệnh gán tro[r]

Kiểm tra bài cũ 1, Viết cú pháp cách khai báo biến? Cho VD Var tên biến : kiểu liệu; 2, Viết cú pháp cách khai báo hằng? Cho VD Const tên = giá trị hằng; Tìm chỗ sai các lệnh khai báo sau và sửa lại cho đúng? a) Var start, begin: real; b) const x:=3; y:=1000; Const a=5; c) Var a:=5; d) Const ten lop = ‘8A 2’; Tên biến chứa dấu cách e) Var xep_loai, diem : integer, real; Phải khai báo riêng kiểu liệu Chữa bài tập (SGK-T33) Hãy liệt kê các lỗi có chương trình đây và sửa lại cho đúng: Var a, b := integer; Const c := 3; Begin a := 200 b := a/c; write(b); readln End => Var a, b : integer; => Const c = 3; => a := 200;  Khai báo kiểu liệu biến b chưa đúng Bài thực hành 3: KHAI BÁO VÀ SỬ DỤNG BIẾN Các kiểu liệu Pascal Bài thực hành 3: KHAI BÁO VÀ SỬ DỤNG BIẾN Cách khai báo biến với các kiểu liệu a)- Khai báo biến Var <danh sách biến> : <kiểu liệu>; Trong đó: + Danh sách biến là nhiều biến có cùng kiểu liệu, phân cách dấu phẩy (,) + Kiểu liệu là các kiểu liệu Pascal Ví dụ Var X, Y, a, b : byte; Var So_nguyen, so_hoa_diem_tot : integer; Var Chieu_cao, can_nang, diem_TBm : real; Var Ho_va_Ten, noi_sinh, : string; Bài Viết chương trình Pascal có khai báo và sử dụng biến Bài toán: Một cửa hàng cung cấp dịch vụ bán hàng toán nhà Khách hàng cần đăng kí số lượng mặt hàng cần mua, nhân viên cửa hàng trả hàng và nhận tiền toán nhà khách hàng Ngoài trị giá hàng hóa, khách hàng còn phải trả thêm phí dịch vụ Hãy viết chương trình Pascal để tính tiền toán trường hợp khách hàng mua mặt hàng Ví dụ Hãy tính tiền mua SGK Tin học 3, biết: - Số lượng: 100 - Đơn giá: 18.300/quyển - Phí dịch vụ: 5000 => Tiền toán = 100 x 18.300 + 5000 = 1.835.000 => Công thức cần tính cho bài toán: => Tiền toán = Đơn giá x Số lượng + Phí dịch vụ a, Khởi động Pascal Gõ chương trình SGK/35 và tìm hiểu ý nghĩa câu lệnh chương trình: b, Lưu chương trình với tên BaiTH3_8A Dịch và chỉnh sửa các lỗi gõ, có { Cach viet chuong trinh SGK} Program Tinh_tien; Uses crt; Var soluong : integer ; dongia, thanhtien : real ; thongbao : string ; Const phi = 10000 ; Begin Clrscr ; Thongbao := ‘Tong so tien phai toan la: ’ ; { Nhap don gia va so luong hang } Writeln(‘Don gia = ’) ; readln(dongia) ; Writeln(‘So luong = ’) ; readln(soluong) ; Thanhtien := soluong * dongia + phi ; (* In so tien phai tra *) Writeln(thongbao, thanhtien :10:2) ; readln End Program Tinh_tien; Uses crt; Var soluong : Integer ; dongia, thanhtien : real ; Const phi = 10000 ; Begin Clrscr ; { Nhap don gia va so luong hang } Writeln(‘Don gia = ’) ; readln(dongia) ; Writeln(‘So luong = ’) ; readln(soluong) ; Thanhtien := soluong * dongia + phi ; (* In so tien phai tra *) Writeln(‘Tong so tien phai toan la: ‘, ); thanhtien :10:2 Readln End Bài c, Chạy chương trình với các liệu (đơn giá và số lượng) sau (1000, 20), (3500, 200), (18500, 123) Kiểm tra tính đúng các kết in d, Chạy chương trình với liệu (1, 35000) Quan sát kết nhận Hãy thử đoán lí chương trình cho kết sai Tổng kết 1, Cú pháp khai báo biến Pascal: Var Danh sách tên biến : Kiểu liệu ; 2, Cú pháp khai báo Pascal: Const tên : giá trị ; 2, Cú pháp lệnh gán Pascal: Biến := Biểu thức ; 3, Lệnh read(danh sách biến) readln(danh sách biến) dùng để nhập liệu từ bàn phím 4, Nội dung chú thích nằm cặp dấu { và } cặp các dấu (* và *) : - Bị bỏ qua dịch chương trình - Làm cho chương trình dễ đọc, dễ hiểu Tổng kết 5, Lệnh read(danh sách biến) readln(danh sách biến) dùng để nhập liệu từ bàn phím Sau nhập 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 biến, nói chung kết tính toán sai