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
Tr ần Văn Chung trường THPT Hoàng Văn Thụ Nha Tr ang Bài tập pascal đến nâng cao theo chương trình TIN HỌC lớp 11 khơng phân ban Nhằm giúp bạn học sinh lớp 11 tiếp cận với ngơn ngữ lập trình Pascal cách dễ dàng vận dụng vào ngơn ngữ lập trình khác tin học, sưu tầm biên soạn số tốn đến nâng cao có chương trình lớp 11 khơng phân ban Các chương trình nhằm mục đích tham khảo cho bạn ham mê tin học tài liệu chuẩn bị cho kiểm tra môn tin học Nha trang tháng 3/2011 ĐT: 0972.311.481 Trang Tr ần Văn Chung trường THPT Hoàng Văn Thụ Nha Tr ang Phần I: CÁC BÀI TẬP CƠ BẢN Bài 1: Tìm giá trị lớn số a, b, c, d (a, b, 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 ba cạnh tam giác khơng? Nếu phải tính chu vi diện tích 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*(p-a)*(p-b)*(p-c)); Writeln(‘ba so vua nhap la ba canh cua tam giac’); ĐT: 0972.311.481 Trang Tr ần Văn Chung trường THPT Hoàng Văn Thụ Nha Tr ang 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 Bài 1C: Viết chương trình nhập độ cao h so với mặt đất vật rơi nơi có gia tốc g, Tính hiển thị vận tốc vật mặt đất Program Tinh_van_toc; Uses crt; Var h, v,g: real; Begin Clrscr; Writeln(‘nhap 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); ĐT: 0972.311.481 Trang Tr ần Văn Chung trường THPT Hoàng Văn Thụ Nha Tr ang Readln End Bài 3: Viết chương trình giải bất phương trình bậc (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: x