Tin học 8_Bài thực hành 3

Dữ liệu do biến lưu trữ sẽ thay đổi trong chương trình Khai báo và sử dụng biến Câu 2: Việc khai báo biến gồm những gì?. Việc khai báo biến gồm: + Khai báo tên biến + Khai báo kiểu dữ

Trang 2

Bài thực hành 3

Khai báo và sử dụng biến

Tiết 13

GV: Bùi Anh Toán Thực hiện: Tháng 10/2013

Trang 3

Ôn lại kiến thức

Câu 1: Hãy cho biết biến được sử dụng để làm gì?

Biến ( biến nhớ ) Dùng để lưu trữ dữ liệu Dữ liệu do biến lưu trữ sẽ thay đổi trong chương trình

Câu 2: Việc khai báo biến gồm những gì ? Nêu cú pháp

của khai báo biến?

Việc khai báo biến gồm:

+ Khai báo tên biến

+ Khai báo kiểu dữ liệu của biến

*Cú pháp: Var <Danh sách tên biến> :<Kiểu dữ liệu>;

Trang 4

Câu 3: Hằng là gì ? Nêu cú pháp khai báo hằng?

Hằng là một đại lượng có giá trị không đổi trong suốt quá trình thực hiện chương trình

* Cú pháp khai báo hằng:

Const <Tên hằng> = <Giá trị của hằng>;

* Ví dụ:

Const Pi=3.14;

Trang 5

Câu 4: Sử dụng biến trong chương trình như thế nào?

- Gán giá trị cho biến

- Tính toán với giá trị của biến

- Cú pháp lệnh gán:

<Tên biến> := <Biểu thức và giá trị cần gán>;

Ví dụ: X := (a+b)/2

Y:= 12

Trang 6

Các kiểu dữ liệu trong Pascal

Tên dữ liệu Phạm vi giá trị

Byte Các số nguyên từ 0 đến 255

Integer Số nguyên trong khoảng -215 đến 215 -1

Real Số thực có giá trị tuyệt đối trong khoảng

2.9x10-39 đến 1.7x1038 và số 0 Char Một kí tự trong bảng chữ cái

String Xâu kí tự, tối đa gồm 255 kí tự

Trang 7

Thực hành bài 1:

Bài 1 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

thanh toán tại nhà Khách hàng chỉ cần đăng kí số lượng mặt hàng cần mua, nhân viên cửa hàng sẽ trả hàng và nhận tiền thanh toán tại nhà khách hàng Ngoài trị giá hàng hoá, 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 thanh toán trong trường hợp khách hàng chỉ mua một mặt hàng duy nhất.

Tiền thanh toán=Đơn giá * Số lượng+phí dịch vụ

Gợi ý: Công thức cần tính:

Trang 8

Bài 1:

program Tinhtien;

uses crt;

var soluong:integer;

dongia, thanhtien: real;

thongbao: string;

Const phi=10000;

begin

clrscr;

thongbao:='Tong so tien phai thanh toan:';

{Nhap do gia va so luong hang}

Write('Don gia:'); readln(dongia);

Write('So luong:'); readln(soluong);

thanhtien:=soluong*dongia+phi;

(*in ra so tien phai tra*)

writeln(thongbao,thanhtien:10:2);

readln

end.

Khai báo biến

Khai báo hằng

Lệnh gán

Ghi chú Nhập đơn giá Nhập số lượng Lệnh gán

In kết quả

a) Khởi động Pascal Gõ chương trình sau và tìm hiểu ý

nghĩa của từng câu lệnh trong chương trình:

Trang 9

b)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ó

c)Chạy chương trình với các bộ dữ liệu (đơ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 ra

d)Chạy chương trình với bộ dữ liệu (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

Trang 10

BÀI TẬP CỦNG CỐ

? Hãy gõ chương trình sau, liệt kê các lỗi nếu có trong

chương trình dưới đây và sửa lại cho đúng

Program vd;

Uses crt;

Var a:=Integer;

b: real;

Const c:=3;

Begin a:=200 b:= a/c;

Write(‘ Ket qua ‘,b);

Readln;

End

Program vd;

Uses crt;

b:Real;

Begin

b:= a/c;

Write(‘Ket qua ‘,b); Readln;

End

Trang 11

DẶN DÒ

- Về xem lai bài 1.

- Xem trước bài 2.

Trang 12

GV: Bùi Anh Toán Thực hiện: Tháng 10/2013

Trang 13

Định dạng
Số trang	13
Dung lượng	3,2 MB