BAI TAP PASCAL TIN 8 RAT CO ICH

Trường T H C S Đức Phú Năm học: 2008-2009 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’); GV: Lê Bá Khánh Toàn Tin hoc 8 1 Trường T H C S Đức Phú Năm học: 2008-2009 Write(‘nhap a=’); Readln(a); Write(‘nhap b=’); Readln(b); 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’); GV: Lê Bá Khánh Toàn Tin hoc 8 2 Trường T H C S Đức Phú Năm học: 2008-2009 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 đó hố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 vng 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); GV: Lê Bá Khánh Toàn Tin hoc 8 3 Trường T H C S Đức Phú Năm học: 2008-2009 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) 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. Bài8: Viết chưong trình nhập 1 số tự nhiên vào máy tính và ghi ra màn hình kết quả số đã nhập là 1 số chẳn 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. Bài 9: Tìm giá trị lớn nhất trong 4 số a,b,c,d(a,b,c,d được nhập từ bàn 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. Bài 10:Viết chương trình giải phương trình tuyến tính:  ax + by = m GV: Lê Bá Khánh Toàn Tin hoc 8 4 Trường T H C S Đức Phú Năm học: 2008-2009   cx + dy = n Program giai_he_hai_an; Uses crt; Var a,b,c,d,m,n:real; dx,dy,dd:real; begin 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); GV: Lê Bá Khánh Toàn Tin hoc 8 5 Trường T H C S Đức Phú Năm học: 2008-2009 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); 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 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: 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 do Gt:=gt*i; GV: Lê Bá Khánh Toàn Tin hoc 8 6 Trường T H C S Đức Phú Năm học: 2008-2009 Writeln(n,’!=’,gt); Readln; End. Bài 15: Viết chương trình nhập vào 1 số ngun 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; 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: 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 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: Viế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; GV: Lê Bá Khánh Toàn Tin hoc 8 7 Trường T H C S Đức Phú Năm học: 2008-2009 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’); 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); GV: Lê Bá Khánh Toàn Tin hoc 8 8 Trường T H C S Đức Phú Năm học: 2008-2009 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; 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; GV: Lê Bá Khánh Toàn Tin hoc 8 9 Trường T H C S Đức Phú Năm học: 2008-2009 while i<=n do begin tong:=tong+i; i:=i+1; end; writeln(‘tong cua 100 so tu nhien dau tien la=’,tong); readln; End. { Dù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: Lê Bá Khánh Toàn Tin hoc 8 10 [...]... là a 327 68 b 32767 c 2 tỉ d -327 68 +32767 GV: Lê Bá Khánh Toàn 14 Tin hoc 8 Trường T H C S Đức Phú Năm học: 20 08- 2009 2 Câu 35 a là biến dữ liệu kiểu số ngun Muốn xuất giá trị của a 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, ... 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 dữ liệu A String B Integer C Real D Char Câu 48: Tên hợp lệ trong 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 trong ngơn ngữ lập trình Pascal là: A Const B Var C Real D End Câu 49: Để chạy một chương trình Pascal ta nhấn tổ hợp... là hằng trong Pascal: a) 5.5 b) ‘HOA’ c) V5 d) ‘55’ Câu 87 : Câu nào sau đây đúng khi nói về biến: a) Biến là đại lượng do người lập trình đặt b) Biến có giá trị khơng đổi trong suốt q trình thực hiện chương trình c) Có một số biến có sẵn trong chương trình, khơng cần khai báo d) Tên biến có độ dài tùy ý GV: Lê Bá Khánh Toàn 19 Tin hoc 8 Trường T H C S Đức Phú Năm học: 20 08- 2009 Câu 88 : Chương trình... 20 B 21 C Khơng xác định được D 0 Câu 18: Trong các câu lệnh lặp Pascal sau đây, câu nào đúng A While i:= 1 do t:=10; B While x . Program tich; Uses crt; 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. 6.5=<ĐTBCN< ;8, xếp loại: Khá. + ĐTBCN> =8, xếp loại: Giỏi. Program xep_loai; Uses crt; GV: Lê Bá Khánh Toàn Tin hoc 8 7 Trường T H C S Đức Phú Năm học: 20 08- 2009