Tuyển chọn bài tập Pascal - Lớp 11

Trần Văn Chung trường THPT Hoàng Văn Thụ Nha Trang ĐT: 0972.311.481 Trang 1 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 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 Trần Văn Chung trường THPT Hoàng Văn Thụ Nha Trang ĐT: 0972.311.481 Trang 2 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*(p-a)*(p-b)*(p-c)); Writeln(‘ba so vua nhap la ba canh cua tam giac’); Trần Văn Chung trường THPT Hoàng Văn Thụ Nha Trang ĐT: 0972.311.481 Trang 3 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 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); [...]... A[i] - 1 then demnt:=demnt+1; End; Writeln(‘ so luong phan tu la nguyen to la’, demnt); { Cau h -} d:=A[2]-A[1]; j:=3; While (jn then Writeln(‘ mang vua nhap la cap so cong’) else Writeln(‘ mang vua nhap khong phai la cap so cong’); { Cau i -} For i:=1 to n do For j:=i+1 to n-1 do... VAO MANG +'); Writeln(' -' ); Write('-Co bao nhieu phan tu-: '); Readln(spt); For i:=1 To spt Do Begin Write('-Phan tu A[',i,']= '); Readln(a[i]); End; Writeln; Writeln(' MANG TRUOC KHI CHEN '); For i:=1 To spt Do Write(a[i]: 6); Writeln; Write('-Can che so: '); Readln(so); Write('-Vao vi tri: '); Readln(vitri); For i:=spt+1 Downto Vitri+1 Do a[i]:=a[i-1]; Writeln; a[vitri]:=so; spt:=spt+... Write('-Phan tu A[',i: 2,']= '); Readln(A[i]); End; Writeln; Writeln(' MANG TRUOC KHI XOA '); Writeln(' '); Writeln; For i:=1 To spt Do Write(a[i]: 6); Writeln; Writeln; Write('-Vi tri muon xoa: '); For i:=vitri to spt - 1 Do Readln(vitri); a[i]:=a[i+1]; spt:=spt - 1; Writeln; Writeln(' MANG SAU KHI XOA'); Writeln( '- -' ); Writeln; For i:=1 to spt Do ĐT: 0972. 311. 481... 0972. 311. 481 Trang 11 Trần Văn Chung trường THPT Hoàng Văn Thụ Nha Trang Var a, b, T: Real; Pt: Char; BEGIN Clrscr; Write (' a = '); Readln( a ); Write (' b = '); Readln( b ); Write (' Phep tinh thuc hien la (+ - * /): '); Readln( Pt ); If Pt = '+’ Then T:=a + b; If Pt = '- Then T:=a - b; If Pt = '*’ Then T:=a * b; If Pt = '/’ Then T:=a / b; Write ( a, pt, b, ' = ', T ); Readln; END ĐT: 0972. 311. 481... Write('-Phan tu A[',i,']= '); Readln(a[i]); End; i:=2; While i