de kt tin chuan

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); GV: Leâ Baù Khaùnh Toaøn Tin hoc 8 1 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 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 GV: Leâ Baù Khaùnh Toaøn Tin hoc 8 2 Trần Hữu Quyền. 8/3. TQT đó hoán đổi giá trị của 2 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 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) 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 vuong') else if (A=B) and(B=C) and (A=C) 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 GV: Leõ Baự Khaựnh Toaứn Tin hoc 8 4 Trần Hữu Quyền. 8/3. TQT clrscr; 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 GV: Lê Bá Khánh Toàn Tin hoc 8 5 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: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; GV: Leâ Baù Khaùnh Toaøn Tin hoc 8 6 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)= 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’); GV: Leâ Baù Khaùnh Toaøn Tin hoc 8 7 Trần Hữu Quyền. 8/3. TQT If 5=<ĐTBCN<6.5 then writeln(‘xep loai=’Tbinh’); 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; GV: Lê Bá Khánh Toàn Tin hoc 8 8 Trần Hữu Quyền. 8/3. TQT Const n=10; 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); GV: Lê Bá Khánh Toàn Tin hoc 8 9 Trần Hữu Quyền. 8/3. TQT readln; 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. GV: Leâ Baù Khaùnh Toaøn Tin hoc 8 10 [...]... 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 10 do x:= x + 1; D for i:= 1 to 10 for j:= 1 to 10 do x:= x + 1; Câu 14: Trong câu lệnh lặp for i:=1 to 100 do begin … end;... Pascal có dạng: Var :array [ ] of integer; Trong đó: A Chỉ số đầu = chỉ số cuối B Chỉ số đầu > 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... ‘,i); Readln; END A 1 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 Program -> Begin D Program -> Begin -> End Câu 51: Phần 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:... xuất ra màn hình số nhỏ nhất trong 2 số a, b đã nhập b xuất ra màn hình số lớn nhất trong 2 số a, b đã nhập c 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... :Câu lệnh Gotoxy(5,7) có tác dụng: A/ đưa con trỏ chuột về hàng 5, cột7 B/ đưa con trỏ chuột về vị trí cột 5 của hàng hiện tại C/ đưa con trỏ chuột về cột 7 của hàng hiện tại GV: Leâ Baù Khaùnh Toaøn 17 Tin hoc 8 Trần Hữu Quyền 8/3 TQT D/ đưa con trỏ chuột về cột 5, hàng 7 Câu 69: Từ nào sau đây không phải từ khoá? a) SQRT b) Begin c) Var d) Program Câu 70: Từ nào sau đây không phải tên chuẩn? a) ABS... if (a+b)*(a+b) = b then s:=(a+b)*sqrt(a... 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: 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))... nào B 1 lần C 2 lần D 10 lần Câu 98: Dưới đây là một đoạn chương trình Pascal : For i : = 0 to 10 do Begin …… End Sau khi thực hiện đoạn chương trình trên, giá trị của i là : GV: Leâ Baù Khaùnh Toaøn 20 Tin hoc 8 Trần Hữu Quyền 8/3 TQT A 0 B 10 C 11 D Không xác định Câu 99: Sau khi thực hiện đoạn chương trình Pascal : For i : = 1 to m do Begin y:=x x:=y-1 End chúng ta sẽ nhận được kết quả nào dưới đây . 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. 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. Khaùnh Toaøn Tin hoc 8 3 Trn Hu Quyn. 8/3. TQT then writeln('Day la ba canh cua tam giac vuong') else if (A=B) and(B=C) and (A=C) then writeln('Day la ba canh cua tam giac deu')