Chương trình

Program Tinh_tien; {Khai bao ten chuong trinh}

Uses CRT; {Khai bao thu vien CRT}

Var soluong: integer;{Khai bao  bien kieu du lieu la so nguyen}

dongia, thanhtien,phi:real;{Khai bao  bien kieu du lieu la so thuc}

thongbao:string;{Khai bao  bien kieu du lieu la chuoi ky tu}

BEGIN {Bat dau phan than Chuong trinh}

clrscr; {Xoa man hinh}

thongbao:='Tong so tien phai thanh toan: ';{Gan bien thong bao voi chuoi ky tu}

Write('Nhap số lượng: ');{In ra man hinh chuoi ky tu'Nhap số lượng: '}

Readln(soluong);{Nhap bien soluong}

Write('Nhap don gia: ');{In ra man hinh chuoi ky tu'Nhap don gia: '}

Readln(dongia);{Nhap bien dongia}

Write('Nhap phi: ');{In ra man hinh chuoi ky tu'Nhap phi: }

Readln(phi);{Nhap bien phi}

thanhtien:=soluong*dongia+phi; {Gan bien thanh tien voi gia tri bang soluong*dongia+phi}

Writeln(thongbao,thanhtien:4:2); {In ra man hinh so tien can tra}

readln; {CT dung lai}

END.{ket thuc chuong trinh}

c. Chương trình chạy đúng với các bộ dữ liệu đó

d. Lỗi vì khi đó 35000 > 32676 gt lớn nhất của kiểu integer vì vậy cần khai báo biến với kiểu dữ liệu lớn hoăn để hoạt động được ví dụ Longint, int64...

Câu 1 :

1. a) Gõ chương trình SGK / 35

program tinh_tien;

// Khai báo tên chương trình tinh_tien

uses crt;

// Khai báo thư viện crt

var soluong : integer;

// Khai báo biến soluong kiểu nguyên

dongia, thanhtien : real;

// Khai bái biến dongia, thanhtien kiểu thực

thongbao : string;

// Khai báo biến thongbao kiểu xâu

const phi = 1000;

// Khai báo hằng phi giá trị 1000

begin

// Bắt đầu chương trình

clrscr;

// Xoá màn hình

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

// Gán giá trị cho thongbao là 'Tong so tien phai thanh toan : '

write('Don gia = '); readln(dongia);

// Thông báo nhập giá trị cho dongia

write('So luong = '); readln(soluong);

// Thông báo nhập giá trị cho soluong

thanhtien := soluong * dongia + phi;

// Gán giá trị thanhtien bằng soluong * dongia + phi

writeln(thongbao, thanhtien : 10 : 2);

// In thông giá tiền

readln

// Dừng màn hình

end.

// Kết thúc

b) Lưu chương trình với tên TINHTIEN.PAS. Dịch và sửa lỗi

c)

- Với bộ dữ liệu (1000, 20) : 21000.00

- Với bộ dữ liệu (3500, 200) : 701000.00

- Với bộ dữ liệu (18500, 123) : 2276500.00

d)

- Với bộ dữ liệu (1, 35000) : -29536.00

- Với giá trị 35000 đã vượt phạm vi lưu trữ của kiểu integer là 32767, nên kết quả sai