Bài 29: Viết chương trình tính: chu vi, diện tích của hình chữ nhật (với chiều dài và chiều rộng của hình chữ nhật là số thực dương được nhập từ bàn phím).. Bài 30: Viết chương trình [r]
(1)BÀI TẬP PASCAL 11 BÀI TẬP PASCAL 11
Phần 1: CÁC KIỂU DỮ LIỆU TRONG PASCAL Bài 1: Trong tên sau, cho biết tên sai giải thích lý
#TONG 1DEM SO2 TICH S0 DIENTICHHV
VAR1 Dientich hv END EN9D BAI_1
Bài 2: Hãy tên sai câu sau:
1 a GiaPT, b Giai_PT, c Giai-PT, d GIAIPT a Begina, b Begin1, c Begin, d Beginend
3 a So2, b So 2, c S2o, d SO2
Bài : Hãy thích sai câu sau:
1 { Hãy chọn câu sai } { Hãy chọn {câu sai } (* Hãy chọn { câu sai } (* Hãy chọn câu sai *)
Bài : Hãy thích sai câu sau:
1 { Hãy chọn câu sai { Hãy chọn (* câu sai } (* Hãy chọn { câu sai *) (* Hãy chọn (* câu sai *)
Bài : Hãy thích câu sau:
1. (* Hãy chọn câu
2. { Hãy chọn { câu } }
3. { Hãy { chọn { câu }
4. { Hãy chọn (* câu ) }
Bài : Cho biết từ từ khoá Pascal:
1 a BEGIN, b END, c IIF, d GOTO
2 a SUB, b FUNCTION, c VAR, d PROCEDURE
3 a DIV, b INTEGER, c INT, d REAL
Bài : Hãy cho biết ký hiệu Pascal không chấp nhận tên:
1 a % b _ c d z
2 a w b c - d J
Bài : Hãy cho biết từ tên chuẩn Pascal:
1 a.ABS b COS c MOD d ROUND
(2)Bài 9: Vì bạn phải biết nhớ từ khố ngôn ngữ Pascal?
Bài 10: Hãy phân biệt từ khố với tên chuẩn.
Bài 11: Có thể dùng tiếng Việt để đặt tên biến hay không? Bài 12: Tên gì? Dùng để làm gì?
Bài 13: Khi cần đếm số từ – 100 đến 100, ta dùng kiểu nào:
a BYTE b SHORTINT
c WORD c CHAR
Bài 14: Khi cần đếm số từ đến 10, dùng kiểu liệu tốt nhất:
a BOOLEAN b.CHAR
c INTEGER d BYTE
Bài 15: Để tính điểm trung bình cho học sinh, ta dùng kiểu liệu nào:
a WORD b.INTEGER
c BYTE d REAL
Bài 16: Để đếm số từ 100 đến 50000, ta dùng kiểu liệu nào?
Bài 17: Có thể dùng kiểu INTEGER trường hợp các số đếm từ:
a – 100 đến 50000 b 100 đến 32768
c – 32769 đến 100 d đến 10000
Bài 18: Trong biểu thức sau, biểu thức cho kết la TRUE:
a (3>7) and (3<5) b (3>9)
c (3>7) or (3<5) d TRUE < FALSE
Bài 19: Cho biết kết phép toán sau:
a 17 DIV b 30 DIV
c 13 MOD d 6.5 MOD
Bài 20: Cho biết kết biểu diễn sau:
a #76 b CHR(68)
c ORD(‘c’) d ‘a’
e ORD(CHR(78)) f ORD((‘Z’) +32
G #100 h.CHR(77)
Bài 21: Cho biết kết hàm sau:
a ABS(-7.5) b SQR(5)
c SQRT(36) d ROUND(15.51)
e ROUND(25.49) f TRUNC(43.95)
(3)Phần 2: BÀI TẬP VỀ CÁC KIỂU DỮ LIỆU VÀ CẤU TRÚC CHƯƠNG TRÌNH PASCAL
Bài 22: Hãy định nghĩa kiểu liệu chấp nhận số 0, 1, 2, 3, 4, 5, 6,
Bài 23: Viết câu lệnh khai báo biến a, b biến kiểu số thực; c, d là biến kiểu số nguyên chấp nhận số từ – 32768 đến 32767
Bài 24: Đầu chương trình ta khai báo Pi = 3.14 câu lệnh sau: Const Pi = 3.14;
Hãy cho biết chương trình thực câu lệnh sau không? Tại sao?
Pi := 3.1416;
Bài 25: Cho biết kết biểu thức sau: a 49 + <50
b (18 + 12 < 29) OR (25 DIV > 1) c (29 MOD 16) +
d 2*3/4*(4 – /2) e 89 DIV MOD
f (ORD(‘a’) – 70 DIV 10) MOD
Bài 26: Cho biết giá trị biến X sau thực xong lệnh gán: a X := 3*4/(5+1);
b X := 3*4/5+1;
c X := (9>5) XOR True; d X := 12 DIV + 16;
Bài 27: Đầu chương trình, ta khai báo biến sau:
Var a:integer;
b: byte;
Hãy cho biết câu lệnh gán sau, câu lệnh không hợp lệ? Tại sao?
a b:=200; b a:=45000;
c b:=256; d a:=3.14;
Bài 28: Viết chương trình tính: Tổng, hiệu, tích, thương hai số thực bất kỳ (hai số thực nhập từ bàn phím)
Bài 29: Viết chương trình tính: chu vi, diện tích hình chữ nhật (với chiều dài chiều rộng hình chữ nhật số thực dương nhập từ bàn phím)
Bài 30: Viết chương trình tính: chu vi, diện tích hình trịn (với bán kính hình trịn số thực dương nhập từ bàn phím)
(4)Phần 3: BÀI TẬP CẤU TRÚC ĐIỀU KIỆN IF…THEN Bài 32: Viết chương trình nhập vào số thực bất kỳ, kiểm tra xem chúng có phải chiều dài chiều rộng hình chữ nhật hay khơng Nếu có in chu vi diện tích hình chữ nhật đó, khơng in thơng báo ‘Khơng tồn hình chữ nhật’
Bài 33: Viết chương trình nhập vào số thực bất kỳ, kiểm tra xem có phải bán kính hình trịn hay khơng Nếu có in chu vi diện tích hình trịn đó, khơng in thơng báo ‘Khơng tồn hình trịn’
Bài 34: Viết chương trình nhập vào số thực bất kỳ, kiểm tra xem chúng có phải độ dài cạnh tam giác hay khơng Nếu có in chu vi diện tích tam giác đó, khơng in thông báo ‘Không phải tam giác’ Bài 35: Viết chương trình nhập số nguyên dương X, in kết cho biết số có chia hết cho hay khơng?
Bài 36: Viết chương trình giải biện luận hệ phương trình bậc hai ẩn:
ax + by = m cx + dy = n Bài 37:
a. Viết chương trình nhập từ bàn phím số thực dương a, b, c, d Hãy
kiểm tra xem số có lập thành cạnh tứ giác hay không?
b. Viết chương trình giải phương trình bậc hai tổng quát: ax2 + bx + c =
0
Bài 38: Viết chương trình : nhập vào từ bàn phím số a, b, c Sau tìm của: a+b+c; 2abc; ab; ac; bc
Bài 39: Viết chương trình: Cho tam giác với cạnh a, b, c Tính độ dài: a Các đường cao
b Các đường trung tuyến
c. Các đường phân giác
=> Hướng dẫn công thức: Sử dụng công thức Hêrông
(5)Phần 4: BÀI TẬP CẤU TRÚC LẶP
Bài 41: Lập chương trình tính tổng n số tự nhiên (n >=1) Bài 42: Lập chương trình tính tích m số ngun (n >=1) Bài 43: Lập chương trình tính: S=(1+1
12)(1+
22) (1+
n2)
Bài 44: Lập chương trình in số thứ tự ngày tuần bắt đầu từ: thứ hai, ngày số ngày thứ ba, …., ngày số ngày chủ nhật
Bài 45: Cho a R, n N Tính: a(a+1)(a+2)…(a+n-1)
Bài 46: Cho a R, n N Tính: 1a+
a(a+1)+ +
1
a(a+1)(a+2) (a+n)
Bài 47: Lập chương trình tính:
(x −2)(x −4) .(x −64) (x −1)(x −3) (x −63)
Bài 48: Viết chương trình tính: S = 2n Bài 49: Viết chương trình tính: S = an
Bài 50** : Lập chương trình: Chia số tiền (t) đồng thành loại tiền
(6)Phần 5: BÀI TẬP CẤU TRÚC LẶP
Bài 51: Lập chương trình: Tính tổng 1001 số tự nhiên đầu tiên, bắt đầu từ số (1<= n <=1001)
Bài 52: Lập chương trình tính tổng n số ngun dương (n >=1) Bài 53: Lập chương trình : Tính tích n số tự nhiên (n nhập từ bàn phím, n>=1)
Bài 54: Lập chương trình tính: S=(1+
12)(1+
22) (1+
n2)
(n nhập từ bàn phím) => Hướng dẫn cơng thức: S:=S*(1+1/(i*i));
Bài 55: Lập chương trình tính: S=1+1
2+ 3+
1 4+
1 5+ .+
1
n
(n nhập từ bàn phím) => Hướng dẫn cơng thức: S:=S+1/i;
Bài 56: Lập chương trình: Tính hàm luỹ thừa 2n , n số tự nhiên được nhập vào từ bàn phím (n>=0)
Bài 57: Lập chương trình: Tính hàm luỹ thừa an , a số thực n là số tự nhiên nhập vào từ bàn phím (n>=0)
Bài 58: Cho a R, n N Tính: a(a+1)(a+2)…(a+n-1) Bài 59: Cho a R, n N Tính:
1
a+
1
a(a+1)+ +
1
a(a+1)(a+2) (a+n)
Bài 60: Lập chương trình tính:
(x −2)(x −4) .(x −64) (x −1)(x −3) (x −63)
(7)(61)-Bài mảng 1: Viết chương trình nhập vào mảng(một dãy số) có n phần tử, sau đó:
a In phần tử mảng theo chiều từ phần tử thứ đến phần tử thứ n theo chiều ngang theo chiều dọc
b In phần tử mảng theo chiều từ phần tử thứ n đến phần tử thứ theo chiều ngang theo chiều dọc
c In phần tử mảng theo chiều từ phần tử thứ đến phần tử thứ n ngược lại từ phần tử thứ n đến phần tử thứ theo chiều ngang theo chiều dọc
(62)-Bài mảng 2: Viết chương trình nhập vào dãy số nguyên có n số(n phần tử) sau đó:
a Tìm in hình giá trị lớn nhất(max) dãy b Tìm in hình giá trị nhỏ nhất(min) dãy
c Tìm in hình giá trị lớn nhất(max) giá trị nhỏ nhất(min) dãy chương trình
d Tìm in hình vị trí ban đầu giá trị max e Tìm in hình vị trí ban đầu giá trị
f Tìm in hình vị trí ban đầu giá trị max giá trị chương trình
(63)-Bài mảng 3: Viết chương trình nhập vào dãy số nguyên có n số(n phần tử) sau đó:
a Tìm in hình tổng phần tử dương dãy b Tìm in hình số hạng > dãy dãy c Tìm in hình số hạng < dãy dãy d Kết hợp phần a, b, c chương trình
64)-Bài mảng 4: Viết chương trình nhập vào dãy số nguyên có n số(n phần tử) sau xếp in hình dãy tăng dần
(65)-Bài mảng 5: Viết chương trình nhập vào định thức(ma trận) có n hàng m cột, sau in hình ma trận
(8)Phần 7: BÀI TẬP KIỂU CHUỖI (68)-Bài xâu 1: Định nghĩa:
Var hoten:String[43]; Và gán:
hoten:=’Thuc Anh’; Hỏi độ dài thực hoten?
hoten[17] bao nhiêu? Tại sao?
(69)-Bài xâu 2:Hãy cho biết giá trị biến chuỗi S xuất màn hình gì?:
Var S :String[10]; BEGIN
S:=’Borland 7.0’; Insert(‘Pascal’ , S, 9); Writeln;
END
(70)-Bài xâu 3: Lập chương trình nhập vào chuỗi S, sau in hình độ dài thực tế chuỗi S
(71)-Bài xâu 4: Lập chương trình nhập vào chuỗi S có độ dài thực tế >=3, sau lấy in hình ký tự thứ thứ chuỗi (72)-Bài xâu 5: Lập chương trình nhập vào số nguyên d, sau đổi số nguyên chuỗi số S in hình chuỗi số S
(73)-Bài xâu 6: Lập chương trình nhập vào chuỗi a, b, c Sau nối chuỗi thành chuỗi S xuất hình