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, mời các bạn cùng tham khảo tập Pascal cơ bản đến nâng cao theo chương trình Tin học lớp 11 không phân ban dưới đây. Tài liệu cung cấp 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.
Trần Văn Chung trường THPT Hồng Văn Thụ Nha Trang Bài tập pascal cơ bản đến nâng cao theo chương trình TIN HỌC lớp 11 khơng phân ban 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 tố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 Hồng Văn Thụ Nha Trang Phần I : CÁC BÀI TẬP CƠ BẢN Bài 1: Tìm giá trị lớn nhất trong 4 số a, b, c, d (a, b, c, được nhập từ bàn phím) Program Program 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 Bài 1B: Viêt chương trình nhập ba số dương bất kỳ, kiểm tra ba số vừa nhập có phải là ba cạnh của tam giác khơng? Nếu phải thì tính chu vi và diện tích của tam giác đó PROGRAM 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*(pa)*(pb)*(pc)); Writeln(‘ba so vua nhap la ba canh cua tam giac’); Writeln(‘ chu vi cua tam gia la’, cv : 4 : 2, ‘ dien tich cua tam giac la’, s:6 :2); ĐT : 0972.311.481 Trang 2 Trần Văn Chung trường THPT Hoàng Văn Thụ Nha Trang End Else Writeln(‘ba so vua nhap khong phai la ba canh cua tam giac’); Readln End. Bài 1C: Viết chương trình nhập độ cao h so với mặt đất của một vật rơi tại nơi có gia tốc g, Tính và hiển thị vận tốc của vật tại mặt đất Program 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 Bài 2: Viết chương trình giải phương trình 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'); 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); Readln ĐT : 0972.311.481 Trang 3 Trần Văn Chung trường THPT Hoàng Văn Thụ Nha Trang End Bài 3: Viết chương trình giải bất phương trình bậc 1 (ax + b > 0) Program 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 a0 then If a>0 then Writeln('Bat phuong trinh co nghiem : x>=',b/a : 4 : 2) Else Writeln('Bat phuong trinh co nghiem : x2000 : '); k :=0; for i :=1 to 2000 do Begin d :=0; for j :=1 to i1 do if i mod j=0 then d :=d+j; if d=i then Begin write(i : 5); k :=k+1; End; End; writeln; writeln(' Trong day 1>2000 co ',k,' so hoan hao'); End; Begin clrscr; write(' Nhap n='); hoanhao; vietlen; ĐT : 0972.311.481 readln(n); Trang 43 Trần Văn Chung trường THPT Hoàng Văn Thụ Nha Trang readln; End. Bài 5 : Nhập vào 1 số ngun gồm 4 chữ số viết chương trình con thực hiện Kiểm tra tình chắn lẻ Kiểm tra xem có phải là số ngun tố khơng Kiểm tra xem có phải là số chính phương khơng Sau đó trên chương trình chính kiểm tra và trả lời số vừa nhập thuộc số nào? Program chuong_trinh; uses crt; var i,n,k,d : integer; ok : boolean; Function chanle(n : integer) : boolean; Begin ok :=true; if n mod 20 then ok :=false; chanle :=ok; End; Function Begin nguyento(n : integer) : boolean; ok :=true; ĐT : 0972.311.481 d :=0; Trang 44 Trần Văn Chung trường THPT Hoàng Văn Thụ Nha Trang for i :=2 to n1 do if n mod i=0 then d :=d+1; if d1 then ok :=false; End; nguyento :=ok; Function chinhphuong(n : integer) : boolean; Begin ok :=true; k :=trunc(sqrt(n)); if sqr(k)n then ok :=false; chinhphuong :=ok; End; Begin clrscr; write(' Nhap n=');readln(n); if chanle(n) then writeln(' So vua nhap la chan') else writeln(' So vua nhap la so le'); if nguyento(n) then writeln(' So vua nhap la nguyen to') else writeln(' So vua nhap khong phai la so nguyen to'); if chinhphuong(n) then writeln(' So vua nhap la so chinh phuong') else writeln(' So vua nhap khong la so chinh phuong'); readln; ĐT : 0972.311.481 Trang 45 Trần Văn Chung trường THPT Hồng Văn Thụ Nha Trang End. Bài 6. Viết chương trình con tính a Giai Thừa với a nhập từ bàn phím Program giaithua; uses crt; var a : integer; Function gt(n : byte) : Var Longint; byte; s : i : Begin Longint; s :=1; For i :=2 to n do s :=s*i; gt :=s; End; Begin clrscr; End. write ('Nhap so can tinh giai thua : ');readln(a); if a :=0 or a :=1 then writeln('Giai thua cua ',a,' = 1') else writeln('Giai thua cua',a,' =', gt(a) ); Bài 7. Nhập vào 1 mảng gồm n số nguyên (2