Kiểm tra bài cũ Kiểm tra bài cũ 1, Viết cú pháp của cách khai báo biến? Cho VD Var tên biến kiểu dữ liệu; 2, Viết cú pháp của cách khai báo hằng? Cho VD Const tên hằng = giá trị của hằng; Tìm chỗ sai.
Kiểm tra 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 lệnh khai báo sau 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 tập (SGK-T33) Hãy liệt kê lỗi có chương trình 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 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 kiểu liệu a)- Khai báo biến Var : ; Trong đó: + Danh sách biến nhiều biến có kiểu liệu, phân cách dấu phẩy (,) + Kiểu liệu 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 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 nhận tiền tốn nhà khách hàng Ngồ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 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 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 chỉnh sửa 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 liệu (đơn giá số lượng) sau (1000, 20), (3500, 200), (18500, 123) Kiểm tra tính 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ử đố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 thích nằm cặp dấu { } cặp dấu (* *) : - 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 phạm vi biến, nói chung kết tính tốn sai ... => Const c = 3; => a := 200; Khai báo kiểu liệu biến b chưa 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 kiểu... 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. 30 0/quyển - Phí dịch vụ: 5000 => Tiền toán = 100 x 18. 30 0 + 5000 = 1 . 83 5.000 => Cơng thức cần tính cho toán:... 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)