bai tap bg tin 8

Trần Hữu Quyền 8/3 TQT Bài 1: Nhập vào cạnh hình chữ nhật In hình diện tích chu vi Program hcn; Uses crt; Var a,b,s,c:real; Begin Clrscr; Writeln(‘Tinh chu vi va dien tich hcn’); Write(‘nhap chieu dai:’); Readln(a); Write(‘nhap chieu rong:’); Readln(b); S:=a*b; C:=(a+b)*2; Writeln(‘Dien tich hinh chu nhat la:’,S); Writeln(‘Chu vi hinh chu nhat la:’,C); Readln; End Bài 2:Nhập vào bán kính hình tròn.In hình diện tích chu vi Program hinh_tron; Uses crt; Var R, S, P: real; Const pi=3.14; Begin Clrscr; Writeln(‘Dien tich va chu vi hinh tron:’); Write(‘nhap ban kinh:’); Readln(R); S:=pi*R*R; P:=2*pi*R; Writeln(‘dien tich cua hinh tron la:’,S); Writeln(‘chu vi cua hinh tron la:’,P); Readln; End Bài : Tính tam giác: Nhập vào ba số a,b,c Kiểm tra xem độ dài ba cạnh hay khơng, khơng in hình ' Khong la ba canh cua mot tam giac' Ngược lại, in diện tích, chu vi tam giác hình Program Tam_giac; Uses crt; Var a,b,c,s,p:real; Begin Clrscr; Writeln(‘bai toan tam giac’); Write(‘nhap a=’); Readln(a); Write(‘nhap b=’); Readln(b); GV: Lê Bá Khánh Toàn Tin hoc Trần Hữu Quyền 8/3 TQT Write(‘nhap c=’); Readln(c); If ((a+b)>c) and ((b+c)>a) and ((a+c)>b) then Begin p:=(a+b+c)/2; s:=sqrt(p*(p-a)*(p-b)*(p-c)); Writeln(‘chu vi tam giac:’,2*p); Writeln(‘dien tich hinh tam giac:’,s); End; Else Writeln(a,b,c khong phai la canh cua tam giac’); Readln; End Bài 4: Viết chương trình giải phương trình bậc (ax + b = 0) Program GIAI_PHUONG_TRINH_BAC_NHAT; Uses crt; Var a,b,x:real; Begin Clrscr; Writeln(‘giai phuong trinh bac nhat:ax+b=0’); Write(‘nhap a=’); Readln(a); Write(‘nhap b=’); Readln(b); If (a=0)then If (b=0) then Writeln(‘phuong trinh co vo so nghiem’) Else Writeln(‘phuong trinh vo nghiem’) Else Writeln(‘phuong trinh co nghiem x=’,-b/a); Readln End Bài 5: Viết chương trình giải bất phương trình bậc (ax + b >= 0) Program BAT_PHUONG_TRINH_BACI; Uses crt; Var a,b:real; Begin Clrscr; Writeln(‘giai bat Phuong trinh bac nhat’); Write(‘nhap a=’); Readln(a); Write(‘nhapb=’); Readln(b); If a0 then If a>0 then writeln(‘bat phuong trinh co nghiem:x>=’,-b/a); Else writeln(‘bat phuong trinh co nghiem:x=0 then Writeln(‘bat phuong trinh co vo so nghiem’); Else writeln(‘bat phuong trinh vo nghiem’); Readln; End Bài 6: Viết chương trình nhập sử dụng biến X Y để lưu số nhập từ bàn phím,sau GV: Lê Bá Khánh Toàn Tin hoc Trần Hữu Quyền 8/3 TQT hốn đổi giá trị biến cho nhau(x, y có giá trị tăng dần) Cách 1: Program hoan_doi; uses crt; var X,Y,Z: real; begin clrscr; write('Nhap so X = '); readln(Y); write('Nhap so Y = '); readln(Y); if X>Y then begin Z:=X; X:=Y; Y:=Z; End; writeln(X,’ ’,Y); readln end Cách 2: Program hoan_doi; uses crt; var X,Y,Z: real; begin clrscr; write('Nhap so X = '); readln(Y); write('Nhap so Y = '); readln(Y); if Xr then writeln(‘diem A nam ngoai duong tron’) else writeln(‘diem A nam duong tron); Readln; End Bài 12: Viết chương trình tính xy (với x,y số thực) Proram XluyY; Uses crt; Var x,y,z:real; Begin GV: Lê Bá Khánh Toàn Tin hoc Trần Hữu Quyền 8/3 TQT Writeln(tinh x luy thua y); Write(‘nhap x=’);readln(x); Write(‘nhap y=’);readln(y); If x>0 then Begin Z:=exp(y*ln(x)); Writeln(‘x^y=’,z); End; Else Writeln(‘khong tinh duoc vi x la so am’); Readln; End Bài 13:Viết chương trình tính xn Program tinh_x_luy_thua_n; Uses crt; Var I,n,x:integer; Lt:real; Begin Clrscr; Writeln(‘tinh x luy thua n); Write(‘nhap x=’); readln(x); Write(‘nhap n=’); readln(n); Lt:=1; For i:=1 to n Lt:=lt*x; Writeln(x,’^’,n,’=’,lt:4:2); Readln; End Bài 14: Viết chương trình tính n! Program tinh_n_luy_thua; Uses crt; Var I,n,gt:integer; Begin Clrscr; Writeln(‘tinh n giai thua:’); Writeln(‘nhap n=’);readln(n); Gt:=1; For i:=1 to n Gt:=gt*i; Writeln(n,’!=’,gt); Readln; End Bài 15: Viết chương trình nhập vào số ngun dương x Hãy xác định số x có chia hết cho hay khơng? Program Chia_het_3; GV: Lê Bá Khánh Toàn Tin hoc Trần Hữu Quyền 8/3 TQT Uses crt; Var x:integer; Begin Clrscr; Write(‘nhap x=’); readln(x); If (x mod 3)= then Writeln(‘x chia het cho 3:’) Else writeln(‘x khong chia het cho 3:’); Readln; End Bài 16: Viết chương trình nhập chiều dài,chiều rộng hình chữ nhật,bán kính hình tròn So sánh diện tích hình chữ nhật hình tròn Program so_sánh; Uses crt; Var a,b,r,s1,s2:real; Const pi=3.14; Begin Clrscr; Writeln(‘so sánh dien tich hcn & hinh tron’); Write(‘nhap chieu dai=’);readln(a); Write(‘nhap chieu rong=’);readln(b); Write(‘nhap ban kinh hinh tron=’); readln(r); S1:=a*b; S2:=r*r*3.14; If s1>s2 then writeln(‘dien tich hinh chu nhat lon hon hinh tron’) Else writeln(‘dien tich hinh tron lon hon hinh chu nhat’); Readln; End Bài 17: Viết chương trình tính điểm trung bình học sinh ,dữ liệu nhập vào ĐTBHKI,ĐTBHKII In hình ĐTBCN học sinh với ĐTBCN=(ĐTBHKI+ĐTBHKII*2)/3,và xếp loại học lực biết: + ĐTBCN 8 THEN b:=3 ELSE b:=5; Khi a nhận giá trị b nhận giá trị nào? a b c d Câu 37 Khi soạn thảo xong chương trình Pascal, ta muốn lưu chương trình lại ta nhấn phím: a F9 b Ctrl + F9 c F2 d Ctrl + F2 GV: Lê Bá Khánh Toàn 14 Tin hoc Trần Hữu Quyền 8/3 TQT Câu 38 Khi soạn thảo xong chương trình Pascal, ta muốn kiểm tra xem có lỗi khơng ta nhấn phím: a F9 b F3 c F2 d F1 Câu 39 Khi chương trình Pascal hết lỗi, ta muốn chạy chương trình nhấn phím: a F9 b Ctrl + F9 c F2 d Ctrl + F2 Câu 40 Viết biểu thức tốn a3-b3 sang Pascal ta viết là: a a3-b3 b a*a*a-b*b*b c a.a.a-b.b.b d aaa-bbb Câu 41: Để thực phép tính tổng hai số ngun a b ta thực sau : a Tong=a+b; b Tong:=a+b; c Tong:a+b; d Tong(a+b); Câu 42: Câu lệnh điều kiện dạng đầy đủ là: a If < đk > then < câu lệnh 1> Else ; b If then < câu lệnh>; c If then < câu lệnh 1>,; d Cả a,b,c sai Câu 43: Điền dấu x vào lựa chọn (1 điểm) Nội dung Đúng Sai a) Lệnh khai báo tên chương trình ngơn ngữ lập trình Pascal Begin b) Chương trình máy tính dãy lệnh mà máy tính hiểu thực c) Ngơn ngữ dùng để viết chương trình máy tính gọi ngơn ngữ lập trình d) Cấu trúc chung chương trình bắt buộc phải có phần khai báo Câu 44: Khoanh tròn vào chữ đứng trước đáp án câu sau: Câu 1: Máy tính hiểu trực tiếp ngơn ngữ ngơn ngữ đây? A Ngơn ngữ tự nhiên B Ngơn ngữ lập trình C Ngơn ngữ máy D Ngơn ngữ … Câu 46: Trong ngơn ngữ lập trình Pascal, từ khơng phải từ khóa là: A Uses B Program C End D Computer Câu 47: Dãy kí tự 20n10 thuộc kiểu liệu A String B Integer C Real D Char Câu 48: Tên hợp lệ ngơn ngữ Pascal là: A 16abc; B Hinh thang; C D15; D Program; Câu 49: Từ khóa để khai báo biến ngơn ngữ lập trình Pascal là: A Const B Var C Real D End Câu 49: Để chạy chương trình Pascal ta nhấn tổ hợp phím A Ctrl+F9 B Alt+F9 C Shitf+F9 D Ctrl+Shift+F9 Câu 50: Cấu trúc chung hợp lý chương trình Pascal là: A Begin -> Program -> End B Program -> End -> Begin C End -> Program -> Begin D Program -> Begin -> End Câu 51: Phần ngun phép chia hai số ngun 16 là: A 16 div = B 16 mod = C 16 div = D 16 mod = GV: Lê Bá Khánh Toàn 15 Tin hoc Trần Hữu Quyền 8/3 TQT Câu 52: A khai báo biến với kiểu liệu số ngun, X biến với kiểu liệu xâu Phép gán hợp lệ là: A A:= 4.5; B X:= ‘1234’; C X:= 57; D A:= ‘LamDong’; Câu 53: Trong Pascal khai báo sau đúng: A Var hs : real; B Var 5hs : real; C Const hs : real; D Var S = 24; Câu 54 Cho câu lệnh sau hay câu lệnh đúng: a for i:=1 to 10; x:=x+1 c for i:=1 to 10 x:=x+1 b for i:=10 to x:=x+1 d for i:= to 10 for j:=1 to 10 x:=x+1 Câu 55 Cho đoạn chương trình sau: x:=0; tong:=0; while tongn c sqr(m) d x:=m Câu 58 Lệnh viết câu lệnh gán : a x : = 15; b x := 15 c x = 15 d x : 15 Câu 59 Chương trình sau cho kết gi ? Program vd; Var a, b,: real; x,: integer ; Begin readln(a, b); If a>b then x:=a else x:=b; Write(x); End a xuất hình số nhỏ số a, b nhập b xuất hình số lớn số a, b nhập c chương trình khơng thực lỗi khai báo kiểu liệu GV: Lê Bá Khánh Toàn 16 Tin hoc Trần Hữu Quyền 8/3 TQT d đảo giá trị biến a, b cho Câu 60 Ví dụ khơng diễn tả hoạt động lặp lặp lại sống? a Hàng ngày em đặt đồng hồ báo thức lúc để dậy sớm tập thể dục b Mỗi lần khởi động máy tính em thực hoạt động kiểm tra thành phần máy tính,sau khởi động hệ điều hành theo trình tự quy định trước c ngày học lần d Làm thơ Câu 61:Cho S i biến ngun Khi chạy đoạn chương trình : s:=0; for i:=1 to 10 s := s+i; writeln(s); Kết in lên hình : a s = 11 b s = 55 c s = 101 d s = 100 Câu 62: Cho S i biến ngun Khi chạy đoạn chương trình : s:=0; for i:=1 to s := s+2*i; writeln(s); Kết in lên hình : a s = 72 b s = 100 c s = 101 d s = 55 Câu 63: Cho S i biến ngun Khi chạy đoạn chương trình : s:=1; for i:=1 to s := s *i; writeln(s); Kết in lên hình : a s = 72 b s = 101 c s = 55 d s = 120 Câu 64:Các câu lệnh Pascal sau hợp lệ : a) for i:=100 to writeln(‘A’) b) for i:= 1.5 to 10.5 writeln(‘A’) c) for i:= to 10 writeln(‘A’) d) for i:=1 to 10 writeln(‘A’); Câu 65: Sau thực đoạn chương trình sau, giá trị biến k bao nhiêu? k: = 0; For i:= to k:= k + 2; A/ k = B/ k = C/ k = D/ k = Câu 66 : Hãy cho biết số lần lặp câu lệnh for sau đây: “for i:=1 to … ” A/ lần B/ lần C/ lần D/ lần Câu 67 :Tìm câu lệnh hợp lệ câu lệnh sau: A/ for i:= 10 to Writeln(‘O’); B/ for i:= 1.5 to 5.6 Writeln(‘O’); C/ for i:= to 10 Writeln(‘O’); D/ for i:= to 10 do; Writeln(‘O’); Câu 68 :Câu lệnh Gotoxy(5,7) có tác dụng: A/ đưa trỏ chuột hàng 5, cột7 B/ đưa trỏ chuột vị trí cột hàng C/ đưa trỏ chuột cột hàng GV: Lê Bá Khánh Toàn 17 Tin hoc Trần Hữu Quyền 8/3 TQT D/ đưa trỏ chuột cột 5, hàng Câu 69: Từ sau khơng phải từ khố? a) SQRT b) Begin c) Var d) Program Câu 70: Từ sau khơng phải tên chuẩn? a) ABS b) SQR c) Program d)Byte Câu 71: Câu lệnh sau khai báo hằng: a) Const n = 20; b) Const n : 20; c) Const n := 20; d) Const n 20; Câu 72: Tên sau người lập trình đặt: a) Var b) Real c) End d) n Câu 73: Khai báo sau đúng: a) Program V D; b) Program Vi_du; c) Program VD d) Program: V_D; Câu 74: Câu lệnh sau câu lệnh gán? a) x = b) x: c) x and d) x:= x +5; Câu 75: Câu lệnh sau dùng để nhập số từ bàn phím vào biến x? a) Writeln(‘Nhập x = ’); b) Write(x); c) Writeln(x); d) Readln(x); Câu 76: Câu lệnh sau dùng để in giá trị lưu biến x hình? a) Writeln(x); b) Write(x); c) Write(x: 3); d) Cả A, B, C Câu 77: Hãy đọc đoạn chương trình sau: s:=0; for i:= to s:= s + i; Sau thực xong, kết s bằng: a) 15 b) c) d) Kết khác Câu 78: Hãy đọc đoạn chương trình sau: s:=1; for i:= to s:= s * i; Sau thực xong, kết s bằng: a) b) 120 c) d) Kết khác Câu 79: Hãy đọc đoạn chương trình sau: if (a+b)*(a+b) = b then s:=(a+b)*sqrt(a - b) else s:= a*b; Khi nhập a = 1, b = kết s bằng: a) 12 b)- 24 c) d) Kết khác Câu 84: Hãy đọc đoạn chương trình sau: if (a >= b then s:=(a+b)*sqrt(a - b) else s:= a*b; Khi nhập a = 1, b = kết s bằng: a) b) c) d) Kết khác Câu 85: Cho đoạn chương trình sau: n:=5; i:=1;s:= 0; While (i < = n) begin s:=s+i; i:=i+1; end; Sau thực xong đoạn chương trình ta kết là: a) b) c) 15 d) Kết khác Câu 86: Trong biểu diễn sau đây, biểu diễn khơng phải Pascal: a) 5.5 b) ‘HOA’ c) V5 d) ‘55’ Câu 87: Câu sau nói biến: a) Biến đại lượng người lập trình đặt b) Biến có giá trị khơng đổi suốt q trình thực chương trình c) Có số biến có sẵn chương trình, khơng cần khai báo d) Tên biến có độ dài tùy ý Câu 88: Chương trình dịch dùng để làm gì? a) Để chuyển chương trình từ ngơn ngữ máy sang ngơn ngữ bậc cao b) Để chuyển chương trình từ ngơn ngữ bậc cao sang hợp ngữ c) Để chuyển chương trình từ ngơn ngữ bậc cao sang ngơn ngữ máy d) Để chuyển chương trình từ ngơn ngữ máy sang hợp ngữ GV: Lê Bá Khánh Toàn 19 Tin hoc Trần Hữu Quyền 8/3 TQT Câu 89: Biểu thức ( x − x1) + ( y − y1) tốn học biểu diễn Pascal là: a) sqr(x2-x1)*(x2-x1)+(y2-y1)*(y2-y1) b) sqr((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1)) c) sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1)) d) sqrt[(x2-x1)*(x2-x1)+(y2-y1)*(y2-y1)] Câu 90: Cú pháp câu lệnh gán Pascal là: a) Var : ; b) := ; c) const = ; d) uses ; Câu 91: Trong Pascal, muốn dịch chương trình ta dùng tổ hợp phím sau đây: a) Alt + F9 b) Ctrl + F9 c) Alt + F3 d) Ctrl + S Câu 92: Số biến khai báo tối đa chương trình ? A Chỉ biến cho kiểu liệu B 10 biến C Chỉ hạn chế dung lượng nhớ D Khơng giới hạn Câu 93: Khi ta khai báo biến : A Máy tính dành riêng phần nhớ để lưu trữ giá trị biến suốt q trình hoạt động chương trình B Máy tự động in tên biến C Biến phải sử dụng chương trình D Khơng sử dụng biến chương chình Câu 94: Biến khai báo với kiểu liệu số thực lưu giá trị giá trị : A Một số ngun B Một số thực (có thể số ngun) phạm vi cho phép C Một số thực D Một dãy chữ số Câu 95: Chọn câu lệnh Pascal hợp lệ câu sau : A If x : = a + b then x : = x + 1; B If a > b then max = a; C If a > b then max : = a ; else max : = b; D If = then x : = 100; Câu 96: Gán giá trị X Sau cho máy thực câu lệnh If X mod = then X := X + 1; giá trị X ? A B C D Câu 97: Trong câu lệnh lặp : For i : = to 10 begin … end ; câu lệnh ghép thực lần ? (nói cách khác, vòng lặp thực ?) A Khơng lần B lần C lần D 10 lần Câu 98: Dưới đoạn chương trình Pascal : For i : = to 10 Begin …… End Sau thực đoạn chương trình trên, giá trị i : GV: Lê Bá Khánh Toàn 20 Tin hoc Trần Hữu Quyền 8/3 TQT A B 10 C 11 D Khơng xác định Câu 99: Sau thực đoạn chương trình Pascal : For i : = to m Begin y:=x x:=y-1 End nhận kết ? A x = x – m ; B x = i – m; C x : = x – i ; D i = x = y – 1; Câu 100: Đoạn lệnh sau : So : = 1; While So < 10 writeln(So); So : = So + cho kết ? A In số từ đến 9; B In số từ đến 10; C In vơ hạn số 1, số viết dòng; D Khơng phương án Câu 101: Hãy tìm hiểu đoạn chương trình sau : X : = ; Tong : = ; While tong < = 20 Begin Writeln(tong); Tong : = tong + 1; End; X : = tong; Sau đoạn chương trình thực hiện, giá trị x ? A 20 B 21 C Khơng xác định D GV: Lê Bá Khánh Toàn 21 Tin hoc [...]... quả khác Câu 81 : Hãy đọc đoạn chương trình sau: GV: Leâ Baù Khaùnh Toaøn 18 Tin hoc 8 Trần Hữu Quyền 8/ 3 TQT s:=0; for i:= 1 to 5 do s:= s * i; Sau khi thực hiện xong, kết quả s bằng: a) 0 b) 15 c) 120 d) Kết quả khác Câu 82 : Hãy đọc đoạn chương trình sau: if (a >= b then s:=(a+b)*sqrt(a - b) else s:= a*b; Khi nhập a = 5, b = 1 thì kết quả s bằng: a) 5 b) 12 c) 24 d) Kết quả khác Câu 83 : Hãy đọc đoạn... giữa câu lệnh lặp với số lần biết trước và câu lệnh lặp với số lần chưa biết trước? Câu 30: Hãy chỉ ra lỗi trong các câu lệnh sau và viết lại cho đúng: a) X:= 8; while x: =8 do x:= x+3; b) X:= 8; while x = 8 do x = x+3; c) S:= 0; n:= 1; while S Max then Max:=b; b) If (a>b) then Max:=a;If (b>a) then Max:=b;... writeln(‘A’) c For i = 10 to 1 do writeln(‘A’) d For i = 1 to 10 .8 do writeln(‘A’) Câu 12: Điền vào những chỗ trỗng trong mỗi câu sau a while…… là câu lệnh lặp với số lần chưa biết trước trong pascal b Câu lệnh lặp While do có dạng While< … > do; Câu 13: Chọn câu đúng: A for i:= 1 to 10; do x:= x + 1; GV: Leâ Baù Khaùnh Toaøn 11 Tin hoc 8 Trần Hữu Quyền 8/ 3 TQT B for i:= 10 to 1 do x:= x + 1; C for i:= 1 to... Một khai báo Câu 34 Kiểu dữ liệu Integer có giá trị lớn nhất là a 327 68 b 32767 c 2 tỉ d -327 68 +32767 Câu 35 a là biến dữ liệu kiểu số nguyên Muốn xuất giá trị của a2 thì ta viết a Writeln('a*a') b Readln(' a*a ') c Writeln(a*a) d Writwln(a2) Câu 36 IF a >8 THEN b:=3 ELSE b:=5; Khi a nhận giá trị là 0 thì b nhận giá trị nào? a 0 b 5 c 8 d 3 Câu 37 Khi soạn thảo xong chương trình Pascal, ta muốn lưu chương... trị nào? a 0 b 5 c 8 d 3 Câu 37 Khi soạn thảo xong chương trình Pascal, ta muốn lưu chương trình lại thì ta nhấn phím: a F9 b Ctrl + F9 c F2 d Ctrl + F2 GV: Leâ Baù Khaùnh Toaøn 14 Tin hoc 8 Trần Hữu Quyền 8/ 3 TQT Câu 38 Khi soạn thảo xong một chương trình Pascal, ta muốn kiểm tra xem có lỗi gì không thì ta nhấn phím: a F9 b F3 c F2 d F1 Câu 39 Khi một chương trình Pascal hết lỗi, ta muốn chạy chương... câu “Day la lan lap thu i”; B 1 câu “Day la lan lap thu ‘, i”; C 10 “Day la lan lap thu ‘, i”; D 10 câu Day la lan lap thu i” với i theo thứ tự từ 1->10; GV: Leâ Baù Khaùnh Toaøn 13 Tin hoc 8 Trần Hữu Quyền 8/ 3 TQT Câu 28: Xem ví dụ sau trong pascal: Uses crt; Var i:integer; Begin Clrscr; I:=1 while i chỉ số cuối C Chỉ số đầu < chỉ số cuối GV: Leâ Baù Khaùnh Toaøn 12 Tin hoc 8 Trần Hữu Quyền 8/ 3 TQT D Chỉ số đầu chỉ số cuối Câu 20: Ghép mỗi ý ở cột A với một ý ở cột B để được khẳng định đúng Cột A Cột B Đáp án 1/ Câu lệnh lặp với số lần cho a/ 1 - …… trước trong Pascal là 2/ ... Khánh Toàn Tin hoc Trần Hữu Quyền 8/ 3 TQT If 5=