Dịch toàn bộ chương trình nguồn thành một chương trình đích có thể thực hiện trên máy và có thể lưu trữ để sử dụng khi cần thiết Kiểm tra tính đúng đắn của câu lệnh tiếp theo trong chươn[r]
(1)Trường THPT Cẩm Lý Së Gd - §T B¾C Giang Trường THPT Cẩm Lý C©u hái vµ bµi tËp Pascal Céng hoµ x· héi chñ nghÜa viÖt nam §éc lËp – Tù – H¹nh phóc CÈm Lý, Ngµy th¸ng n¨m 2009 c©u hái vµ bµi tËp «n tËp tin häc 11 Họ và tên giáo viên đề: Nguyễn Thị Uyên Tæ: To¸n - Tin C©u hái: Chương I C©u 1: Hãy nêu khác biệt loại chương trình dịch là biên dịch và thông dÞch? C©u 2: Trong chế độ biên dịch, chương trình đã dịch thông suốt, hệ thống không báo lỗi Có thể khẳng định ta đã có chương trình đúng hay chưa? Tại sao? C©u 3: H·y nªu c¸c thµnh phÇn c¬ b¶n cña ng«n ng÷ lËp tr×nh? C©u Trong chương trình còn lỗi cú pháp, thông thường chương trình biên dịch hay chương trình thông dịch phát lỗi nhanh hơn? C©u H·y nªu tõ kho¸, tªn chuÈn vµ ý nghÜa cña chóng ng«n ng÷ lËp tr×nh mµ em biÕt? C©u 6: Trong dßng th«ng tin chó thÝch cã thÓ chøa c¸c kÝ tù ngoµi b¶ng ch÷ c¸i cña ng«n ng÷ hay kh«ng? T¹i sao? C©u7: H·y nªu sù kh¸c biÖt gi÷a h»ng vµ biÕn ng«n ng÷ lËp tr×nh? Chương II C©u 8: Nêu cấu trúc chung chương trình viết ngôn ngữ lập trình bậc cao? C©u 9: Khi tìm hiểu kiểu liệu chuẩn ta cần phải nắm các đặc trưng gì nã? Cho vÝ dô víi kiÓu char? C©u 10: NÕu khai b¸o thõa biÕn hoÆc h»ng, tøc lµ khai b¸o c¸c biÕn, h»ng kh«ng dïng đến phần thân chương trình, chương trình dịch có báo sai hay không? C©u 11: Nhắc lại quy tắc đặt tên ngôn ngữ lập trình Pascal? GV NguyÔn ThÞ Uyªn Lop11.com Tæ To¸n Tin (2) Trường THPT Cẩm Lý C©u hái vµ bµi tËp Pascal C©u 12: V× cÇn ph¶i khai b¸o biÕn? Khi khai b¸o biÕn cÇn ph¶i chó ý nh÷ng ®iÒu g×? C©u 13: 1.ChuyÓn biÓu diÔn cña biÓu thøc sau tõ d¹ng to¸n häc sang Pascal: a a ax a b sin x cos x sin x cos x ChuyÓn biÓu thøc sau tõ d¹ng biÓu diÔn Pascal sang d¹ng biÓu thøc to¸n häc: a abs(x-y)/sqrt(sqr(x*y)+sqrt(abs(x))) b cos(5*PI*x/2)-sin (5*PI*x/2) C©u 14: Viết biểu thức logic kiểm tra số là số nguyên dương chẵn? C©u 15: H·y chØ c¸c lçi khai b¸o sau: Var i, j, n, m: Byte; C, CC: Char; I, G: Byte; P=100; C©u 16: Chương trình dịch Pascal cấp phát bao nhiêu byte nhớ cho các biến khai b¸o sau? Var x,y,z: Byte; C: Char; I, G: Real; P,H: Integer; C©u 17: Viết biểu thức logic kiểm tra ba số a, b, c có là độ dài ba cạnh tam giác kh«ng? C©u 18: Xét chương trình Pascal sau: Program vidu; Var x,y: byte; Begin Write(‘x=’); Readln(x); y:=(((x+2)*x+5)*x+6)*x+15; Writeln(‘y=’, y); Readln; End Chương trình trên tính giá trị biểu thức nào? Với x=2 thì trên màn hình in gi¸ trÞ bao nhiªu? C©u 19: Thắng gọi điện cho Đông để trao đổi bài Cứ phút dùng điện thoại phải trả a đồng Cuộc trao đổi kéo dài t phút Hãy lập trình tính và đưa màn hình số tiền mà GV NguyÔn ThÞ Uyªn Lop11.com Tæ To¸n Tin (3) Trường THPT Cẩm Lý C©u hái vµ bµi tËp Pascal nhà bạn Thắng phải trả cho trao đổi này Các số a, t nguyên dương nhập vµo tõ bµn phÝm C©u 20: LËp tr×nh nhËp tõ bµn phÝm hai sè thùc a, b tÝnh vµ ®a mµn h×nh: a Trung bình tổng các bình phương hai số đó; b trung bình cộng các giá trị tuyệt đối a và b; C©u 21: LËp tr×nh nhËp tõ bµn phÝm hai sè nguyªn kh¸c kh«ng a, b (a, b<=32767) TÝnh tổng, hiệu, tích, thương (chia nguyên) hai số đó và đưa màn hình kết dạng <biÓu thøc sè häc>=<KÕt qu¶> C©u 22: Lập trình nhập từ bàn phím các số thực (Xa,Ya), (Xb,Yb), (Xc,Yc) là toạ độ các đỉnh A, B, C tam giác ABC Tính và đưa màn hình diện tích tam giác theo c«ng thøc Hª- r«ng: S = p( p a)( p b)( p c) đó a, b,c là độ dài các cạnh tam giác và p= abc C©u 23: LËp tr×nh nhËp tõ bµn phÝm c¸c sè thùc a, b, c vµ x TÝnh vµ ®a mµn h×nh gi¸ trÞ biÓu thøc ax2+ bx+c C©u 24: LËp tr×nh nhËp tõ bµn phÝm c¸c sè thùc a, b, c, d vµ x TÝnh vµ ®a mµn h×nh gi¸ trÞ biÓu thøc ax3+ bx2+cx+d C©u 25: Hãy lỗi chương trình Pascal sau: Var x, y, z= Byte; Begin x :=100 ; y :=150 z=x*x*y ; Readln End C©u 26 : Xét chương trình sau thực việc gì ? uses crt ; var x,y :integer ; begin clrscr ; Write(‘Nhap x=’) ; Readln(x) ; Write(‘Nhap x=’) ; Readln(x) ; x:=x+y; y:=x-y; x:=x-y; Writeln(‘gia tri moi cua x=’, x); GV NguyÔn ThÞ Uyªn Lop11.com Tæ To¸n Tin (4) Trường THPT Cẩm Lý C©u hái vµ bµi tËp Pascal Writeln(‘gia tri moi cua x=’, x); Readln End C©u 27: Hãy các lỗi chương trình Pascal sau: Program vidu; Uses crt; var i,j,n: byte; a,b:real; Begin i:=10; a:=12.5; i:=10.5; b:=2*a; j:=900; k:=100; End C©u 28: BiÕn x cã thÓ nhËn c¸c gi¸ trÞ 10, 20, 30, 35, 50 vµ biÕn y cã thÓ nhËn c¸c gi¸ trÞ 0.5; 1.5; 2.5; 3.5 vËy ta cã thÓ khai b¸o kiÓu d÷ liÖu nµo cho c¸c biÕn trªn cho tèn Ýt bé nhí nhÊt? C©u 29: H·y viÕt biÓu thøc logic kiÓm tra xem mét sè N cã ba ch÷ sè cã nghÜa hay kh«ng? C©u 30: Theo quy định nhà trường, trường hợp sổ ghi đầu bài điểm 10 sÏ ®îc céng ®iÓm thi ®ua vµo ®iÓm thi ®ua cña líp, ®îc céng ®iÓm, ®îc bị trừ điểm Sổ ghi đầu bài ghi nhận tuần có t trường hợp điểm 10, n trường hợp điểm và m trường hợp điểm H·y nhËp c¸c d÷ liÖu nµy tõ bµn phÝm vµ ®a mµn h×nh sè ®iÓm thi ®ua mµ líp ®îc céng vµ bÞ trõ tuÇn Vµ ®a th«ng tin líp ®îc céng ®iÓm nhiÒu h¬n hay bÞ trõ ®iÓm nhiÒu h¬n? Chương III Câu 1: Hãy cho biết giống và khác hai câu lệnh If- then? Câu 2: Câu lệnh ghép là gì? Tại phải có câu lệnh ghép ? Câu 3: Viết chương trình nhập từ bàn phím số nguyên a, b, c và kiểm tra xem ba số đó có là độ dài ba cạnh tam giác hay không ? Nếu phải hãy tính diện tích tam giác đó ? Câu : Viết chương kiểm tra số nhập vào từ bàn phím là số lẻ hay chẵn? C©u 5: GV NguyÔn ThÞ Uyªn Lop11.com Tæ To¸n Tin (5) Trường THPT Cẩm Lý C©u hái vµ bµi tËp Pascal Viết chương trình nhập ba số nguyên a, b, c khác Kiểm tra ba số này, theo thø tù nhËp tõ bµn phÝm cã t¹o thµnh mét cÊp sè nh©n (cÊp sè céng) hay kh«ng C©u 6: Viết đoạn chương trình chứa các câu lệnh if tính x y, x 1, y x y, x 1, y x y, x 1, y x y, x 1, y C©u 7: Viết chương trình yêu cầu nhập điểm trung bình học sinh xuất màn hình kết học lực học sinh đó biết NÕu ®iÓm trung b×nh <5 th× xÕp lo¹i yÕu NÕu 5<=®iÓm trung b×nh <6.5 th× xÕp lo¹i trung b×nh NÕu 6.5<=®iÓm trung b×nh <8 th× xÕp lo¹i kh¸ NÕu 8<=®iÓm trung b×nh <9 th× xÕp lo¹i giái NÕu ®iÓm trung b×nh >9 th× xÕp lo¹i giái C©u 8: Viết chương trình tính tổng N số nguyên liền (1, 2, N) C©u 9: Viết chương trình tính N! với N người dùng nhập từ bàn phím (N<10) C©u 10: So s¸nh c¸c c©u lÖnh lÆp C©u 11: Viết chương trình thực trên màn hình a b * $$$$$$ ** $$$$$ *** $$$$ **** $$$ ***** $$ ****** $ C©u 12: Giải thích dòng lệnh chương trình sau Var a, b, t: byte; Begin Writeln(‘Nhap vao a va b’); Readln(a,b); t:=a; a:=b; b:=t; Write(‘gia tri a=’, a); Write(‘gia tri b=’, b); Readln End GV NguyÔn ThÞ Uyªn Lop11.com Tæ To¸n Tin (6) Trường THPT Cẩm Lý C©u hái vµ bµi tËp Pascal NÕu nhËp bé d÷ liÖu vµ vµo th× in mµn h×nh gi¸ trÞ cña a vµ b thÕ nµo? C©u 13: Lo¹i biÓu thøc g× nhÊt thiÕt ph¶i cã mÆt c©u lÖnh rÏ nh¸nh? C©u 14: LËp tr×nh nhËp tõ bµn phÝm ba sè nguyªn a,b,c, ®a mµn h×nh gi¸ trÞ lín ba số đó C©u 15: Cho c©u lÖnh For i:=1 to n write(i*(i+1)div2) ; Hãy thay câu lệnh trên đoạn chương trình dùng While - C©u 16: LËp tr×nh nhËp tõ bµn phÝm hai sè nguyªn kh¸c a vµ b, thay sè nhá h¬n b»ng hiÖu cña sè lín víi sè bÐ, thay sè lín h¬n b»ng tæng cña hai sè ban ®Çu C©u 17: LËp tr×nh gi¶i bµi to¸n sau: nhËp hai sè nguyªn a vµ b tõ bµn phÝm(a<b) Xác định số lượng các số nguyên lẻ i đoạn a và b Đưa màn hình các số lÎ nµy mçi sè trªn mét dßng C©u 18: LËp tr×nh gi¶i bµi to¸n sau: nhËp vµo hai sè nguyªn a vµ b §a mµn hình giá trị lớn và nhỏ hai số đó C©u 19: Lập trình: nhập từ bàn phím số nguyên dương N Tính và đưa màn hình gi¸ trÞ N! C©u 20: Viết chương trình kiểm tra số đã nhập có phải là số nguyên tố hay không C©u 21: Viết chương trình ngôn ngữ lập trình Pascal để giải bài toán sau: Nhập từ bàn phím số nguyên dương N ( với N<=100), tính và đưa màn hình tổng các số là số chẵn phạm vi từ đến N? C©u 22: Viết chương trình tính tổng các ước số số nguyên dương N nhËp tõ bµn phÝm (kh«ng kÓ íc lµ chÝnh nã) GIáO VIÊN đề NguyÔn thÞ Uyªn Giáo viên Ng Uyên , Lop11.com (7) Trường THPT Cẩm Lý C©u hái vµ bµi tËp Pascal Hướng dẫn giải số bài tập đơn giản D¹ng bµi tËp C©u 1: Viết chương trình nhập từ bàn phím số nguyên a, b, c và kiểm tra xem ba số đó có là độ dài ba cạnh tam giác hay không ? Nếu phải hãy tính diện tích tam giác đó ? HD: - Khai báo tên chương trình - Khai b¸o biÕn - NhËp a,b,c tõ bµn phÝm - NÕu a,b,c lín h¬n vµ tæng hai c¹nh lớn cạnh còn lại thì là độ dài ba c¹nh cña tam gi¸c vµ DiÖn tÝch cña tam gi¸c tÝnh theo c«ng thøc Her«ng s= p( p a)( p b)( p c) víi p= abc - Ngược lại thì thông báo không là độ dµi ba c¹nh cña tam gi¸c Hướng dẫn Program bai1; Var a,b,c,s,p: Real; Begin Write(‘Nhap ba so a,b,c tu ban phim’); Readln(a,b,c); if (a>0) and (b>0) and (c>0) and (a+b>c) and (b+c>a) and (a+c>b) then Begin Writeln(‘la dai ba canh cua tam giac’); p:=(a+b+c)/2; s:=sqrt(p*(p-a)(p-b)(p-c)); Write(‘dien tich tam giac la’, s:5:2); End else write(‘khong la dai ba canh tam giac’); Readln End Cõu : Viết chương kiểm tra sènguyªn nhËp vµo tõ bµn phÝm lµ sè lÎ hay ch½n? Program bai2; - Khai báo tên chương trình Var a:integer; - Khai b¸o biÕn Begin Writeln(‘Nhap mot so nguyen tu ban phim’); Readln(a); - NhËp sè tõ bµn phÝm If (a mod 2=0) then writeln(‘la so - kiÓm tra ®iÒu kiÖn lµ sè ch½n: nÕu sè chia hÕt cho th× th«ng chan’) b¸o lµ sè ch½n Giáo viên Ng Uyên , Lop11.com (8) Trường THPT Cẩm Lý C©u hái vµ bµi tËp Pascal - ngươc lại thông báo không là số ch½n Câu 3: Viết chương trình nhập ba số nguyªn a, b, c kh¸c KiÓm tra ba sè nµy, theo thø tù nhËp tõ bµn phÝm cã t¹o thµnh mét cÊp sè nh©n (cÊp sè céng) hay kh«ng Else write(‘la so le’); Readln End Program bai3; HD: - Khai b¸o a,b,c thuéc kiÓu Var a,b,c: Integer; Begin nguyªn Writeln(‘Nhap ba so a,b,c’); Readln(a,b,c); - NhËp a,b,c tõ bµn phÝm - a,b,c t¹o thµnh cÊp sè nh©n (céng) nÕu tho¶ m·n b/a=c/b hoÆc a*c=b*b (b-a=c-b hoÆc a+c=2*b) if a*c=b*b then write(‘la cap so nhan’) else write(‘khong la cap so nhan’); Readln End Câu 4: Viết đoạn chương trình chứa c¸c c©u lÖnh if tÝnh x y, x 1, y x y, x 1, y z= x y, x 1, y x y, x 1, y HD: - Khai b¸o c¸c biÕn x,y vµ z Program bai4; Var x,y,z: Real; Begin Writeln(‘Nhap x,y=’); Readln(x,y); If x>1 and y>1 then z:=x+y; If x>1 and y<=1 then z:=x-y; If x<=1 and y>0 then z:=-x+y; If x<=1 and y<0 then z:=-x-y; Readln End - NÕu x>1 vµ y>1 th× z= x+y - NÕu x>1 vµ y<=1 th× z= x-y - NÕu x<=1 vµ y> th× z= -x+y - NÕu x<=1 vµ y<=0 th× z=-x-y Câu : Viết chương trình tính tổng cña N sè nguyªn liÒn (1, 2, Giáo viên Ng Uyên , Lop11.com (9) Trường THPT Cẩm Lý C©u hái vµ bµi tËp Pascal N)với N nguyên dương nhập từ bàn phÝm HD : Program Bai5; - Khai báo N nguyên dương, biến Var N,s: byte; s để tính tổng Begin - NhËp N tõ bµn phÝm Writeln(‘Nhap so N nguyen duong’); Readln(N); - Ban ®Çu g¸n tæng s=0 s:=0; - Với i tăng từ đến N thì For i:=1 to N céng thªm vµo s mét gi¸ trÞ s:=s+i; tương ứng i Writeln(‘tong can tinh la:’, S); - §a gi¸ trÞ tæng s mµn h×nh Readln End Câu 6: Viết chương trình in màn Program bai6; h×nh h×nh tam gi¸c nh sau: Var i: byte; * Begin ** Writeln(‘*’); *** Writeln(‘**’); **** Writeln(‘***’); ***** Writeln(‘****’); ****** Writeln(‘*****’); Hỏi: hãy dùng câu lệnh lặp để đưa Writeln(‘******’); mµn h×nh nh trªn Readln End Câu 7: Viết chương trình giải phương tr×nh bËc nhÊt mét Èn ax+b=0 HD: - Khai b¸o c¸c hÖ sè a,b - Biến x có kiểu thực để lưu giá trị nghiÖm cña pt program Bai7; uses crt; var a,b: integer; x:real; begin clrscr; writeln('Nhap cac he so'); - NhËp c¸c hÖ sè a vµ b readln(a,b); - NÕu a=0 ta b¾t ®Çu so s¸nh : if a=0 then begin NÕu b=0 th× th«ng b¸o pt v« sè if b=0 then write('pt day nghiÖm ngược lại (b<>0) thì thông báo pt vô nghiem) Giáo viên Ng Uyên , Lop11.com (10) Trường THPT Cẩm Lý C©u hái vµ bµi tËp Pascal else nghiÖm write(‘pt vo nghiem’); end Ngược lại (a<>0) thông báo pt có else write(-b/a:5:2, 'la nghiem cua nghiÖm –b/a pt'); readln end C¸ch 2: program b1; var a,b,x:real; begin - NhËp hÖ sè a vµ b write('nhap a,b: '); readln(a,b); - NÕu a kh¸c th× th«ng b¸o pt cã if a<>0 then write('phuong trinh co nghiÖm –b/a nghiem’,-b/a:5:2) else - Ngược lại (a 0) thì: if b=0 then writeln('phuong trinh + NÕu b b»ng th× tb¸o pt v« sè vo so nghiem’) nghiÖm else writeln('pt vo nghiem’); Ngược lại (b 0) thì thông báo readln pt v« nghiÖm end Câu 8: Viết chương trình giải pt bậc program giai_ptb2; hai mét Èn ax2+bx+c=0 (víi a<>0 uses crt; var a,b,c,d,x1,x2:real; )trường hợp pt có nghiệm begin clrscr; writeln('Nhap cac he so a,b,c:'); readln(a,b,c); d:=sqrt(b*b-4*a*c); x1:=(-b-d)/(2*a); x2:=-b/a-x1; write('x1=', x1:5:3, ' x2= ', x2:5:3); readln end Câu 9: Viết chương trình giải pt bậc hai mét Èn ax+bx+c=0 (víi a<>0 ) HD: - Khai b¸o c¸c biÕn lµ c¸c hÖ sè a,b,c cã kiÓu thùc program Bai9; - Khai báo biến d có kiểu thực để uses crt; lu tr÷ gi¸ trÞ b*b-4*a*c var a, b, c, d, x1, x2:Real; Giáo viên Ng Uyên , Lop11.com (11) Trường THPT Cẩm Lý C©u hái vµ bµi tËp Pascal - Khai b¸o biÕn x1, x2 lu tr÷ nghiÖm cña pt Begin - NhËp a,b,c clrscr; - TÝnh d=b2-4ac write('a, b, c:'); - NÕu d<0 th× tb¸o pt v« nghiÖm readln(a, b, c); d:=b*b-4*a*c; - Ngược lại (d>=0) thì if d<0 then writeln('Phuong trinh vo nghiem’) B¾t ®Çu tÝnh x1=(-b- d )/2a vµ else x2=-b/a-x1 Begin §a th«ng b¸o nghiÖm mµn h×nh KÕt thóc x1:=(-b-sqrt(d))/(2*a); x2:=-b/a-x1; writeln('x1=',x1:8:3,' x2=',x2:8:2); end; readln Câu 10: Viết chương trình tính tổng end các ước số số nguyên dương N ®îc nhËp tõ bµn phÝm (kh«ng kÓ íc lµ chÝnh nã) HD - Khai b¸o biÕn N lµ sè nhËp tõ bµn phÝm - Khai báo biến s để tính tổng các ước cña N - BiÕn i lµ biÕn ch¹y thÓ hiÖn c¸c íc cña N Var N, i: word; S: longint; Begin write(‘Nhap N ’); Readln(N); - Ban ®Çu s b»ng S:= 0; - Cho biến i từ đến phần For i:= to N div Do nguyªn cña phÐp chia N cho NÕu N chia hÕt cho i th× i lµ íc cña N ta ®em céng vµo tæng S if N mod i = then S:=S+i; writeln(‘Tong tinh duoc la: ’, S); Readln End Giáo viên Ng Uyên , Lop11.com (12) Trường THPT Cẩm Lý C©u hái vµ bµi tËp Pascal mét sè c©u hái kiÓm tra tr¾c nghiÖm Chän c©u tr¶ lêi cho nh÷ng c©u hái sau C©u : A C C©u : A C©u : A C©u : A C C©u : A C©u : A C©u : A B C D C©u : A B C D C©u : A C C©u 10 : A C C©u 11 : A Trong ngôn ngữ lập trình Pascal để biên dịch chương trình ta nhấn: PhÝm F2 B Tæ hîp phÝm Alt+F3 Tæ hîp phÝm Ctrl+F9 D Tæ hîp phÝm Alt+F9 Chương trình dịch Pascal cấp phát bao nhiêu byte nhớ cho các biến khai báo sau: Var m,n,x,y: Integer; a,b: Real; K: Word; Z: char; B 19 C 25 D 23 20 Trong c¸c tªn sau, tªn nµo kh«ng ph¶i tªn dµnh riªng ? B Integer C Var D Const Begin NÕu biÕn x cã thÓ nhËn c¸c gi¸ trÞ 10 ; 20 ; 30 vµ biÕn y cã thÓ nhËn c¸c gi¸ trÞ 0.1 ; 0.5; Khai báo nào các khai báo sau là đúng? Var x: Real; B Var x,y: Byte; y: Byte; Var y: Real; D Var x,y: Real; x: Byte; Cho biến có giá trị nằm khoảng từ 2500 đến 40000 thì khai báo biến thuộc kiểu liệu nào là đúng và tốn ít nhớ nhất? B Real C Word D Integer Byte Từ khoá Program dùng để khai báo gì ngôn ngữ lập trình Pascal? B Tên chương trình C BiÕn D H»ng Th viÖn Trong các phát biểu sau, phát biểu nào không nằm các bước thực trình biên dÞch ? Dịch toàn chương trình nguồn thành chương trình đích có thể thực trên máy và có thể lưu trữ để sử dụng cần thiết Kiểm tra tính đúng đắn câu lệnh chương trình nguồn; Thực các câu lệnh vừa chuyển đổi được; Chuyển đổi câu lệnh đó thành hay nhiều câu lệnh tương ứng ngôn ngữ máy; Trong Turbo Pascal, tªn lµ dãy liên tiếp không quá 127 kí tự bao gồm chữ cái, chữ số và dấu gạch và bắt đầu chữ cái dấu gạch dãy liên tiếp không quá 127 kí tự bao gồm chữ cái, chữ số và dấu gạch và bắt đầu chữ số dấu gạch dãy liên tiếp không quá 255 kí tự bao gồm chữ cái, chữ số và dấu gạch và bắt đầu chữ cái dấu gạch dãy liên tiếp không quá 255 kí tự bao gồm chữ cái, chữ số và dấu gạch và bắt đầu chữ số dấu gạch Trong cấu trúc chương trình PhÇn khai b¸o nhÊt thiÕt ph¶i cã B Phần thân chương trình thiết phải có PhÇn khai b¸o cã thÓ cã hoÆc kh«ng D Phần thân chương trình có thể có kh«ng C¸c thµnh phÇn c¬ b¶n cña ng«n ng÷ lËp tr×nh lµ B¶ng ch÷ c¸i, có ph¸p, ng÷ nghÜa B Tªn, tªn dµnh riªng, tªn chuÈn, tªn người lập trình đặt H»ng, biÕn D Chương trình dịch và ngôn ngữ lập trình ChØ tªn sai c¸c tªn sau Pascal B _tin C _56 D abc ten- 123 Giáo viên Ng Uyên , Lop11.com (13) Trường THPT Cẩm Lý C©u 12 : A C©u 13 : A C C©u 14 : A C©u 15 : A C C©u 16 : A C©u 17 : A B C D C©u 18 : A C C©u 19 : A C©u 20 : A B C D C©u 21 : A C©u hái vµ bµi tËp Pascal Trong c¸c kiÓu d÷ liÖu sau, ph¹m vi gi¸ trÞ cña kiÓu nµo lµ lín nhÊt? B Longint C Real D Word Integer BiÓu thøc (((x+4)*x+5)*x+6)*x+18 cã biÓu diÔn to¸n häc x+4x+5x+6x+18 B 6x4+4x3+20x2+6x+18 (x+4)(x+5)(x+6)+18 D x4+4x3+5x2+6x+18 Xét biểu thức logic: (n mod 100<10) and (n div 100>0) Với giá trị nào n đây biÓu thøc trªn cho gi¸ trÞ True? B 250 C 506 D 56 100 Biểu thức logic nào sau đây kiểm tra n là số dương chẵn? (n mod 2=0) and (n div 2=0) B (n >0) and (n div 2=0) (n mod 2=0) and (n >0) D (n mod 2=0) and (n div 2<>0) §Ó biÓu diÔn h»ng x©u Hoa binh ng«n ng÷ Pascal ta viÕt: B ‘Hoa binh’ C “Hoa binh’ D (*Hoa binh*) “Hoa binh” §Ó nhËp d÷ liÖu tõ bµn phÝm ta dïng thñ tôc Write(<danh s¸ch biÕn vµo>); hoÆc Writeln(<danh s¸ch biÕn vµo>); Write(<danh s¸ch kÕt qu¶ ra>); hoÆc Writeln(<danh s¸ch kÕt qu¶ ra>); Write(<danh s¸ch biÕn vµo>); hoÆc Read(<danh s¸ch biÕn vµo>); Read(<danh s¸ch biÕn vµo>); hoÆc Readln(<danh s¸ch biÕn vµo>); a sin x BiÓu thøc to¸n häc cã d¹ng biÓu diÔn pascal nh thÕ nµo? a a ab (a+sin(x))/sqr(a+sqr(a+sqr(a*b))) B a+sin(x)/sqrt(a+a+a*b) (a+sinx)/sqrt(a+a+sqrt(b)) D (a+sin(x))/sqrt(a+sqrt(a+sqrt(a*b))) Trong ng«n ng÷ lËp tr×nh Pascal, chó thÝch ®îc viÕt cÆp dÊu : D /* vµ */ { vµ} hoÆc /* vµ */ B (* vµ *) hoÆc { vµ} C (* vµ *) Ph¸t biÓu nµo sau ®©y vÒ tªn dµnh riªng (hay tõ kho¸) lµ chÝnh x¸c nhÊt ? Là tên ngôn ngữ lập trình quy định dùng với ý nghĩa riêng xác định, người lập trình kh«ng ®îc dïng víi ý nghÜa kh¸c Là tên ngôn ngữ lập trình dùng với ý nghĩa định nào đó Là tên người lập trình quy định dùng với ý nghĩa riêng xác định, người lập trình không ®îc dïng víi ý nghÜa kh¸c tên dành riêng người lập trình đặt dùng với ý nghĩa riêng, xác định cách khai báo trước sử dụng Các tên người lập trình đặt sau đây, tên nào sai với quy định Pascal? B BAI1 Begin_BAI C Program D TP_Pascal C©u 22 : Bộ nhớ cấp phát cho biến i có kiểu liệu Integer số byte là: A B C D C©u 23 : Câu lệnh sau for i:= to 20 writeln(‘chao cac ban’); thực việc gì? A Viết màn hình dòng: chao cac ban B Viết màn hình dòng: chao cac ban C Viết màn hình 20 dòng:, chao cac ban D Viết màn hình 17 dòng: chao cac ban C©u 24 Các biến x, n1, n2 phải khai báo nào thì cấu trúc lặp sau thực được: FOR x := n1 TO n2 DO Begin ………End; A Var x: integer ; n1, n2: real; B Var x, n1, n2: integer; Giáo viên Ng Uyên , Lop11.com (14) Trường THPT Cẩm Lý C©u hái vµ bµi tËp Pascal C Var x, n1, n2: real; D Var n1, n2: char; x: integer; C©u 25 Cho đoạn chương trình sau: i:=1; s:=0; While s<25 Begin s:=s+3; i:=i+1; end; Kết I bao nhiêu? A C C©u 26 Hàm div dùng để: A Chia lấy phần dư C©u 27: A B C D C©u 28: A C C©u 29: A C©u 30: A B C D B D 10 B Làm tròn số C Chia lấy phần nguyên D Tính bậc hai Từ nào là tên chuẩn: end Readln if type Trong NNLT Pascal, đoạn chương trình sau thực công việc gì? I := 0; While I <>0 Do write(I, ' '); B Đưa màn hình 10 chữ số Lặp vô hạn việc đưa màn hình các chữ số D Đưa màn hình chữ số Không đưa thông tin gì Giả sử a là biến có kiểu thực ,chọn lệnh phù hợp viết chương trình: 1 b a B a:=b*b C a : D a : y yx x Để in dãy số: 10 For i:=1 To 10 write('1 10'); For i:=1 To 10 write(i); For I : = To 10 Do write(I , ' '); For I :=1 To 10 Do writeln('I '); Giáo viên Ng Uyên , Lop11.com (15)