Gián án Bài Tập Tin 8

Trần Hữu Quyền. 8/3. TQT Bài 1: Nhập vào 2 cạnh của một hình chữ nhật. In ra màn hình diện tích và chu vi của nó. 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 của hình tròn.In ra màn hình diện tích và chu vi của nó. 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 3 : Tính tam giác: Nhập vào ba số a,b,c bất kì . Kiểm tra xem nó có thể là độ dài ba cạnh hay không, nếu không thì in ra màn hình ' Khong la ba canh cua mot tam giac'. Ngược lại , thì in diện tích, chu vi của tam giác ra màn 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); Write(‘nhap c=’); Readln(c); GV: Leâ Baù Khaùnh Toaøn Tin hoc 8 1 Trần Hữu Quyền. 8/3. TQT 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 3 canh cua tam giac’); Readln; End. B à i 4 : Viết chương trình giải p hươ ng trình bậc 1 (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 1 (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 a<>0 then If a>0 then writeln(‘bat phuong trinh co nghiem:x>=’,-b/a); Else writeln(‘bat phuong trinh co nghiem:x<=’-b/a); Else If b>=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 2 biến X và Y để lưu 2 số nhập từ bàn phím,sau đó hoán đổi giá trị của 2 biến cho nhau(x, y có giá trị tăng dần) Cách 1: GV: Leâ Baù Khaùnh Toaøn Tin hoc 8 2 Trần Hữu Quyền. 8/3. TQT 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 X<=Y then begin X:=X+Y; Y:=X-Y; X:=X-Y; End; writeln(X,’ ’,Y); readln end. Bài7:Viết chương trình nhập 3 số thực a,b,c từ bàn phím vào máy tính,sau đó kiểm tra 3 số đó có thể là 3 cạnh của tam giác đều,tam giác cân hoặc tam giác vuông hay không và ghi kết quả ra màn hình. program Sap_xep; uses crt; var A, B, C, X: integer; begin clrscr; write('Nhap so A: '); readln(A); write('Nhap so B: '); readln(B); write('Nhap so C: '); readln(C); if (A+B<C) or (B+C<A) or (A+C<B) then writeln('Day khong la ba canh cua mot tam giac') else if (A*A=B*B+C*C) or (B*B=A*A+C*C) or (C*C=A*A+B*B) then writeln('Day la ba canh cua tam giac vuong') else if (A=B) and(B=C) and (A=C) GV: Leâ Baù Khaùnh Toaøn Tin hoc 8 3 Trn Hu Quyn. 8/3. TQT then writeln('Day la ba canh cua tam giac deu') else if (A=B) or (B=C) or (C=A) then writeln('Day la ba canh cua tam giac can') else writeln('Day chi la ba canh cua tam giac thuong'); readln; end. Bi8: Vit chong trỡnh nhp 1 s t nhiờn vo mỏy tớnh v ghi ra mn hỡnh kt qu s ó nhp l 1 s chn hay l. Program chan_le; Uses crt; Var n:real; Begin Clrscr; Write(nhap so n=); readln(n); If (n mod 2)= 0 then write(n la so chan) Else write(n la so le); Readln; End. Bi 9: Tỡm giỏ tr ln nht trong 4 s a,b,c,d(a,b,c,d c nhp t bn phớm) Program Tim_so_lon_nhat; Uses crt; Var a,b,c,d,max:real; Begin Clrscr; Writeln(Tim so lon nhat trong 4 so a,b,c,d); Write(nhap so a=);readln(a); Write(nhap so b=);readln(b); Wtite(nhap so c=);readln(c); Write(nhap so d=);readln(d); Max:=a; If b>max then max:=b; If c>max then max:=c; If d>max then max:=d; Writeln(so lon nhat la:,max:4:2); Readln; End. Bi 10:Vieỏt chửụng trỡnh giaỷi phửụng trỡnh tuyeỏn tớnh: ax + by = m cx + dy = n Program giai_he_hai_an; Uses crt; Var a,b,c,d,m,n:real; dx,dy,dd:real; begin clrscr; GV: Leõ Baự Khaựnh Toaứn Tin hoc 8 4 Trần Hữu Quyền. 8/3. TQT Writeln(‘giai he hai an:’); Write('Nhap a=');readln(a); Write('Nhap b=');readln(b); Write('Nhap c=');readln(c); Write('Nhap m=');readln(m); Write('Nhap n=');readln(n); dd:=a*d-b*c; dx:=m*d-b*n; dy:=a*n-c*m; if dd=0 then if(dx=0) and(dy=0) then writeln(‘he vo so nghiem hoac vo nghiem’) else writeln(‘he vo nghiem’) else Begin Write(‘he co nghiem:’); Writeln(‘x=’,dx/dd,’va y=’,dy/dd); End; Readln; End. Bài 11:Nhập vào tâm và bán kính của 1 đường tròn.Sau đó nhập vào một điểm A(x,y) bất kì và kiểm tra xem nó có thuộc đường tròn hay không? Program KIEMTRADIEMTHUOCDUONGTRON; Uses crt; Var x0,y0,xa,ya,d,r:real; Begin Writeln(‘kiem tra diem thuoc duong tron:’); Write(‘nhap ban kinh r=’);readln(r); Write(‘nhap toa do tam duong tron=’);readln(x0,y0); Write(‘nhap toa do diem A=’);readln(xa,ya); d:=sqrt(sqr(xa-x0)+sqr(ya-y0)); if r=d then writeln(‘diem A nam tren duong tron’) else if d>r then writeln(‘diem A nam ngoai duong tron’) else writeln(‘diem A nam trong duong tron); Readln; End. Bài 12: Viết chương trình tính x y (với x,y là số thực) Proram XluyY; Uses crt; Var x,y,z:real; Begin Writeln(tinh x luy thua y); GV: Lê Bá Khánh Toàn Tin hoc 8 5 Trần Hữu Quyền. 8/3. TQT 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:Vieát chöông trình tính x n 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 do Lt:=lt*x; Writeln(x,’^’,n,’=’,lt:4:2); Readln; End. Bài 14: Vieá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 do Gt:=gt*i; Writeln(n,’!=’,gt); Readln; End. Bài 15: Vieát chöông trình nhập vào 1 số nguyên dương x. Hãy xác định số x có chia hết cho 3 hay không? Program Chia_het_3; Uses crt; GV: Leâ Baù Khaùnh Toaøn Tin hoc 8 6 Trần Hữu Quyền. 8/3. TQT Var x:integer; Begin Clrscr; Write(‘nhap x=’); readln(x); If (x mod 3)= 0 then Writeln(‘x chia het cho 3:’) Else writeln(‘x khong chia het cho 3:’); Readln; End. Bài 16: Vieá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 của hình chữ nhật và 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: Vieát chöông trình tính điểm trung bình của 1 học sinh ,dữ liệu nhập vào là ĐTBHKI,ĐTBHKII. In ra màn hình ĐTBCN của học sinh đó với ĐTBCN=(ĐTBHKI+ĐTBHKII*2)/3,và xếp loại học lực biết: + ĐTBCN <5 ,xếp loại: Yếu. + 5=< ĐTBCN<6.5,xếp loại: Tbình. + 6.5=<ĐTBCN<8,xếp loại: Khá. + ĐTBCN>=8,xếp loại: Giỏi. Program xep_loai; Uses crt; Var ĐTBHKI,ĐTBHKII,ĐTBCN:real; Begin Clrscr; Write(‘nhap ĐTBHKI =’); readln(ĐTBHKI); Write(‘nhap ĐTBHKII=’); readln(ĐTBHKII); ĐTBCN:=(ĐTBHKI+ĐTBHKII*2)/3; If ĐTBCN < 5 then writeln(‘xep loai=’Yeu’); If 5=<ĐTBCN<6.5 then writeln(‘xep loai=’Tbinh’); GV: Leâ Baù Khaùnh Toaøn Tin hoc 8 7 Trần Hữu Quyền. 8/3. TQT If 6.5=<ĐTBCN<8 then wrtieln(‘xep loai=’Kha’) Else writeln(‘xep loai=’Gioi’); Readln; End. Bài 18: Viết chương trình nhập vào bán kính r1 và r2 của 2 đường tròn và khoảng cách giữa 2 tâm đường tròn là d(với r1,r2,d>0). Xác định vị trí tương đối giữa 2 đường tròn(cắt nhau, tiếp xúc nhau hay khơng cắt nhau) Program bai18; Uses crt; Var r1,r2,d:real; Begin Clrscr; Writeln(‘vi tri tuong doi giua 2 duong tron’); Write(‘nhap ban kinh duong tron 1,r1=’); readln(r1); Write(‘nhap ban kinh duong tron 2,r2=’); readln(r2); Write(‘nhap khoang cach giua 2 tam duong tron d=’); readln(d); If r1+r2=d then writeln(‘hai duong tron tiep xuc ngoai’); If r1+r2>d then writeln(‘hai duong tron cat nhau’); If r1+r2<d then writeln(‘hai duong tron khong cat nhau’); Readln; End. Bài 19: Viết chương trình nhập n số nguyên. Đếm các số vừa chia hết cho 2 vừa chia hết 3. Xuất kết quả ra màn hình. Program bai19; Uses crt; Var i,n,dem:integer; X;real; Begin Clrscr; Write(‘nhap so luong so’); readln(n); Dem:=0; For i:=1 to n do Begin Write(‘nhap so thu tu’,i);readln(x); If (x mod 2=0) and(x mod 3=0) then Dem:=dem+1; End; Writeln(‘so luong cac so chia het cho 2 va 3 la:’dem); Readln; End. Bài 20: Viết chương trình tính tích của 10 số tự nhiên đầu tiên. { Dùng while do… } Program tich; Uses crt; Const n=10; GV: Lê Bá Khánh Toàn Tin hoc 8 8 Trần Hữu Quyền. 8/3. TQT Var i, tich:integer; Begin Clrscr; Tich:=1; i:=1; while i<=n do begin tich:=tich*i; i:=i+1; end; writeln(‘tich cua 10 so tu nhien dau tien la=’,tich); readln; End. { Dùng For do… } Program tich; Uses crt; Var i,n:integer; Begin Clrscr; Tich:=1; For i:=1 to 10 do begin tich:=tich*i; i:=i+1; end; writeln(‘tich cua 10 so tu nhien dau tien la=’,tich); readln; End. Bài 21: Viết chương trình tính tổng của 100 số tự nhiên đầu tiên. { Dùng while do… } Program tong; Uses crt; Const n=100; Var i, tong:integer; Begin Clrscr; Tong:=0; i:=1; while i<=n do begin tong:=tong+i; i:=i+1; end; writeln(‘tong cua 100 so tu nhien dau tien la=’,tong); readln; GV: Lê Bá Khánh Toàn Tin hoc 8 9 Trần Hữu Quyền. 8/3. TQT End. { Duøng For do… } Program tong; Uses crt; Var i,n:integer; Begin Clrscr; Tong:=0; For i:=1 to 100 do begin tong:=tong+i; i:=i+1; End; Writeln(‘tong cua 100 so tu nhien dau tien la=’,tong); Readln; End. Câu 1: GV: Leâ Baù Khaùnh Toaøn Tin hoc 8 10 [...]... 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... sang hợp ngữ GV: Leâ Baù Khaùnh Toaøn 19 Tin hoc 8 Trần Hữu Quyền 8/ 3 TQT Câu 89 : Biểu thức ( x 2 − x1) 2 + ( y 2 − y1) 2 trong toán học được biểu diễn trong 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ủa câu lệnh gán trong Pascal là: a) Var : b) then Max:=a;If (b>a) then Max:=b;... + 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 trình thì nhấn phím: a F9 b Ctrl + F9 c F2 d Ctrl + F2 Câu 40 Viết biểu thức toán a3-b3 sang Pascal thì ta viết là: a a3-b3 b a*a*a-b*b*b... 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... đó: A Chỉ số đầu = chỉ số cuối B Chỉ số đầu > chỉ số cuối C Chỉ số đầu < chỉ số cuối D 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 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/ Ta có thể thay câu lệnh For … b/ While … do 2 - …… do bằng câu lệnh 3/ 3... nguyên trong phép chia của hai số nguyên 16 và 5 là: A 16 div 5 = 1 B 16 mod 5 = 1 C 16 div 5 = 3 D 16 mod 5 = 3 GV: Leâ Baù Khaùnh Toaøn 15 Tin hoc 8 Trần Hữu Quyền 8/ 3 TQT Câu 52: A được khai báo là biến với kiểu dữ liệu số nguyên, X là biến với kiểu dữ 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 nào sau đây là đúng: A Var hs : real; B... câu lệnh rẽ nhánh IF – THEN (dạng đủ) là: A) If then else ; B) If then ; C) If then else ; D) If then ; Câu 57 Biểu thức nào dưới đây có thể dùng làm điều kiện trong câu lệnh rẽ nhánh (IF THEN ) a 2*x+m b m>n c sqr(m) d x:=m Câu 58 Lệnh nào dưới đây viết đúng về câu lệnh gán : a x :... chương trình không thực hiện được do lỗi khai báo kiểu dữ liệu GV: Leâ Baù Khaùnh Toaøn 16 Tin hoc 8 Trần Hữu Quyền 8/ 3 TQT d đảo giá trị của 2 biến a, b cho nhau Câu 60 Ví dụ nào dưới đây không diễn tả những hoạt động được lặp đi lặp lại trong cuộc sống? a Hàng ngày em đặt đồng hồ báo thức lúc 6 giờ để dậy sớm tập thể dục b Mỗi lần khởi động máy tính của em sẽ thực hiện cùng các hoạt động kiểm tra các... 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; Câu 28: Xem ví dụ sau trong pascal: GV: Leâ Baù Khaùnh Toaøn 13 Tin hoc 8 Trần Hữu Quyền 8/ 3 TQT Uses crt; Var i:integer; Begin Clrscr; I:=1 while i . Toaøn Tin hoc 8 7 Trần Hữu Quyền. 8/ 3. TQT If 6.5=<ĐTBCN< ;8 then wrtieln(‘xep loai=’Kha’) Else writeln(‘xep loai=’Gioi’); Readln; End. Bài 18: Viết. 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 <= 8 do n:= n+1; S:= S+n; Câu 31.