Đang tải... (xem toàn văn)
Bài tập hỗ trợ cho học sinh học Pascal lớp 11 được tốt hơn
Trần Văn Chung trường THPT Hoàng Văn Thụ Nha Trang !!"# Nhằm giúp các bạn học sinh lớp 11 tiếp cận với ngôn ngữ lập trình Pascal một cách dễ dàng và vận dụng vào các ngôn ngữ lập trình khác trong tin học, tôi sưu tầm và biên soạn một số bài toán cơ bản đến nâng cao có trong chương trình của lớp 11 không phân ban. Các chương trình nhằm mục đích tham khảo cho các bạn ham mê tin học và là tài liệu chuẩn bị cho các bài kiểm tra về môn tin học. Nha trang tháng 3/2011 ĐT : 0972.311.481 Trang 1 Trần Văn Chung trường THPT Hoàng Văn Thụ Nha Trang $%&'()$*+ !& , -. /01 222 3 422256 7,89 $, $, TIM_SO_LON_NHAT; Uses crt; Var a,b,c,d,max : real; BEGIN Clrscr; Writeln('TIM SO LON NHAT TRONG BON SO A, B, C, D'); Writeln('---------------------------------------------------------------'); Write('Nhap a='); Readln(a); Write('Nhap b='); Readln(b); Write('Nhap c='); Readln(c); Write('Nhap 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. !&:;13/"<2"=,1>6? @A,-"#BC7C>>3D7A,-?9 $EFGEHI Kiem_tra_tam_giac; Uses crt; Var a,b,c,cv,s,p : real; BEGIN Clrscr; Writeln(‘nhap so thu nhat’); readln(a); Writeln(‘nhap so thu hai’); readln(b); Writeln(‘nhap so thu ba’); readln(c); If(a+b>c) And(a+c>b) And(b+c>a) then Begin Cv :=a+b+c; p :=c/2; s :=sqrt(p*(p-a)*(p-b)*(p-c)); Writeln(‘ba so vua nhap la ba canh cua tam giac’); ĐT : 0972.311.481 Trang 2 Trần Văn Chung trường THPT Hoàng Văn Thụ Nha Trang Writeln(‘ chu vi cua tam gia la’, cv : 4 : 2, ‘ dien tich cua tam giac la’, s:6 :2); End Else Writeln(‘ba so vua nhap khong phai la ba canh cua tam giac’); Readln End. !&:J> ,K/A,J>@?12 7>=.>1A>@,K/9 $, Tinh_van_toc; Uses crt; Var h, v,g : real; Begin Clrscr; Writeln(‘nhap do cao cua vat’); readln(h); Writeln(‘nhap gia toc’); readln(g); V :=sqrt(2*g*h); Writeln(‘van toc tai mat dat la’, v : 6 : 2); Readln End. L&:MNOP $, GIAI_PHUONG_TRINH_BAC_NHAT; Uses crt; Var a,b,x : real; Begin Clrscr; Writeln('GIAI PHUONG TRINH BAC NHAT : AX + B=0'); Writeln('------------------------------------------------------------'); 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 tring vo nghiem') Else Writeln('Phuong trinh co nghiem x=',-b/a : 4 : 2); ĐT : 0972.311.481 Trang 3 Trần Văn Chung trường THPT Hoàng Văn Thụ Nha Trang Readln End. Q&: / !4M N R S P8 $, BAT_PHUONG_TRINH_BAC_I; Uses crt; Var a,b : real; Begin Clrscr; Writeln('GIAI BAT PHUONG TRINH BAC NHAT : AX + B>=0'); Writeln('----------------------------------------------------------------------'); Write('nhap a='); readln(a); Write('nhap b='); readln(b); If a<>0 then If a>0 then Writeln('Bat phuong trinh co nghiem : x>=',-b/a : 4 : 2) Else Writeln('Bat phuong trinh co nghiem : x<=',-b/a : 4 : 2) Else If b>=0 then Writeln('Bat phuong trinh co vo so nghiem') Else writeln('Bat phuong trinh vo nghiem'); Readln End. 0& : 4M L NMN OP8 $, GIAI_PHUONG_TRINH_BACII; Uses crt; Var a,b,c,d,x,x1,x2 : real; Begin Clrscr; Writeln('GIAI PHUONG TRINH BAC II : '); Writeln('-------------------------------------------'); Write('Nhap he so a='); readln(a); Write('Nhap he so b='); readln(b); Write('Nhap he so c='); readln(c); If a=0 then ĐT : 0972.311.481 Trang 4 Trần Văn Chung trường THPT Hoàng Văn Thụ Nha Trang If b=0 then If c=0 then Writeln('Phuong trinh co vo so nghiem') Else Writeln('Phuong trinh vo nghiem') Else Writeln('Phuong trinh co mot nghiem : x=',-c/b : 4 : 2) Else Begin d :=b*b-4*a*c; If d=0 then Writeln('Phuong trinh co nghiem kep : x=',-b/(2*a) : 4 : 2) Else if d<0 then Writeln(‘phuong trinh vo nghiem’) Else Begin x1:=(-b+sqrt(d))/(2*a); x2:=(-b-sqrt(d))/(2*a); Write('Phuong trinh co hai nghiem : ‘); Writeln(‘ x1=',x1 : 4 : 2,' va x2=',x2 : 4 : 2); End; End; Readln End. T& GD CU 7& ax + by = m cx + dy = n $, 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 : '); Writeln('----------------------------------'); Write('Nhap a='); readln(a); Write('Nhap b='); readln(b); ĐT : 0972.311.481 Trang 5 Trần Văn Chung trường THPT Hoàng Văn Thụ Nha Trang 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 : 4 : 2,' va y=',dy/dd : 4 : 2); End; Readln End. V& > W!# >D ? MU9XUCU= Y >>, 1W ;3 3@Z;CW2;C[2;C U9 $, DOI_GIO_PHUT_GIAY; Uses crt; Var gio, phut,giay, x : longint; Begin Clrscr; Writeln('DOI SANG GIO PHUT GIAY'); Writeln('--------------------------------------'); Write('Nhap vao so giay : '); readln(x); gio:=x div 3600; x :=x mod 3600; phut :=x div 60; x :=x mod 60; Writeln('Ket qua = ', gio,'gio : ', phut, 'phut : ', x, 'giay'); Readln; End. \: > , >- "7 A,J W ]9^C ? > ,J = , H4M2U8/"> "=, M,? ?CJ W ] U "#B $, KIEM_TRA_DIEM_THUOC_DUONG_TRON; Uses crt; Var x0,y0,xa,ya,d,r : real; ĐT : 0972.311.481 Trang 6 Trần Văn Chung trường THPT Hoàng Văn Thụ Nha Trang Begin Clrscr; Writeln('KIEM TRA DIEM THUOC DUONG TRON : '); Writeln('--------------------------------------------------------'); Write('Nhap ban kinh R= '); readln(r); Write('Nhap hoanh do tam duong tron = '); readln(x0); Write('Nhap tung do tam duong tron = '); readln(y0); Write('Nhap hoanh do diem a = '); readln(xa); Write('Nhap tung do diem a = '); readln(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. \&:>,>-"7W]2M-.>.7 1AW]?9 $, Khao_Sat_Hai_Duong_Tron; Var R 1, R2 ,x1, y1,x2,y2, Kc, Tong, Hieu : Real; BEGIN Writeln('KHAO SAT 2 DUONG TRON'); Writeln('----------------------------------------------------'); Writeln; Writeln('*Duong tron thu nhat'); Write(' +Ban kinh : '); Readln(R1); Write(' +Toa do x : '); Readln(x1); Write(' +Toa do y : '); Readln(y1); writeln; Writeln('*Duong tron thu hai'); ĐT : 0972.311.481 Trang 7 Trần Văn Chung trường THPT Hoàng Văn Thụ Nha Trang Write(' +Ban kinh : '); Readln(R2); Write(' +Toa do x : '); Readln(x2); Write(' +Toa do y : '); Readln(y2); Kc :=Sqrt(Sqr(x1 – x2) + Sqr(y1 – y2)); Tong :=R1 + R2; Hieu :=ABS(R1 – R2); If (Kc = 0) AND (Hieu = 0) Then Writeln('-Hai duong tron trung nhau') Else If (Hieu > Kc) Then Writeln('-Hai duong tron long nhau') Else If (Tong = Kc) OR (Hieu = Kc) Then Writeln('-Hai duong tron tiep xuc nhau') Else If (Tong > Kc) AND (Hieu < Kc) Then Writeln('-Hai duong tron cat nhau ') Else If (Tong < Kc) Then Writeln('-Hai duong tron o ngoai nhau-'); Readln End. _&7 M U 4 : M2 U 1`89 $, X_LUYTHUA_Y; Uses crt; Var lt, x,y,z : real; Begin Clrscr; Writeln(‘TINH X LUY THUA Y : ’); Writeln('----------------------------------'); Write('Nhap x = '); readln(x); Write('nhap y = '); readln(y); If x>=0 then Begin z :=exp(y*ln(x)); ĐT : 0972.311.481 Trang 8 Trần Văn Chung trường THPT Hoàng Văn Thụ Nha Trang Writeln('x ^ y = ',z : 4 : 2); End Else Writeln('Khong tinh duoc do x la so am'); Readln; End. a&7b $, TINH_N_GIAI_THUA; Uses crt; Var i,n,gt : integer; Begin Clrscr; Writeln(' TINH N GIAI THUA : '); Writeln('----------------------------------'); Write('Nhap n ='); readln(n); gt :=1; For i :=1 to n do gt :=gt*i; Writeln(n, '!= ',gt); Readln; End. !Pcc&deU-f,2C?>,?Ug,/UC%9 $, Ngaythang; Uses crt; Var Thu, Ngay, Thang : Byte; Nam : Integer; BEGIN Clrscr; Write (' Doc Ngay : '); Readln ( Ngay ); Write (' Doc Thang : '); Readln ( Thang ); Write (' Doc Nam : '); Readln ( Nam ); Nam :=1900 + ( Nam mod 1900 ); If Thang < 3 Then ĐT : 0972.311.481 Trang 9 Trần Văn Chung trường THPT Hoàng Văn Thụ Nha Trang Begin Thang :=Thang + 12; Nam :=Nam - 1; End; Thu :=Abs ( Ngay + Thang * 2 + ( Thang + 1 ) * 3 div 5 + Nam + Nam div 4 ) mod 7; Case Thu Of 0 : Writeln (‘ngay ’,ngay,’ thang ',thang,’ nam ’,nam,’ la ngay Chu Nhat '); 1 : Writeln ('ngay ’,ngay,’ thang ',thang,’ nam ’,nam,’ la ngay Thu Hai '); 2 : Writeln ('ngay ’,ngay,’ thang ',thang,’ nam ’,nam,’ la ngay Thu Ba '); 3 : Writeln (‘ngay ’,ngay,’ thang ',thang,’ nam ’,nam,’ la ngay Thu Tu '); 4 : Writeln (‘ngay ’,ngay,’ thang ',thang,’ nam ’,nam,’ la ngay Thu Nam '); 5 : Writeln ('ngay ’,ngay,’ thang ',thang,’ nam ’,nam,’ la ngay Thu Sau '); 6 : Writeln ('ngay ’,ngay,’ thang ',thang,’ nam ’,nam,’ la ngay Thu Bay '); End; Readln; END. !!&:& Nhâp số báo danh Nhập điểm văn, toán, ngoại ngữ In ra màn hình dưới dạng : • Phiếu điểm: • Số báo danh : • Điểm văn : • Điểm toán : • Điểm ngoại ngữ : • Tổng số điểm: Bạn đã trúng tuyển ( hoặc Bạn đã không trúng tuyển ) với điều kiện Tổng số điểm >= 15 hay ngược lại. $,$hij Uses Crt; Var SBD : Integer; Van, Toan, Ngoaingu, Tongdiem : Real; BEGIN ĐT : 0972.311.481 Trang 10 . !!"# Nhằm giúp các bạn học sinh lớp 11 tiếp cận với ngôn ngữ lập trình Pascal một cách dễ dàng và vận dụng vào các ngôn ngữ lập trình. liệu chuẩn bị cho các bài kiểm tra về môn tin học. Nha trang tháng 3/2 011 ĐT : 0972. 311. 481 Trang 1 Trần Văn Chung trường THPT Hoàng Văn Thụ Nha Trang $%&'()$*+