Xem mẫu
Trần Văn Chung trường THPT Hoà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 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 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ạnhcủ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;
Vara,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 bacanh cua tam giac’);
Writeln(‘chu vicua 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 nhapkhong phai la bacanh cuatam 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 cuavat’); 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= `);
Write (`Nhap b= `);
If(a=0) then
readln(a);
readln(b);
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ài3: 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=`);
Write(`nhap b=`);
If a<>0 then
readln(a);
readln(b);
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.
Bài 4: Viết chương trình giải phương trình (ax2 + bx + c =0)
Program 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=`);
Write(`Nhap he so b=`);
Write(`Nhap he so c=`);
If a=0 then
readln(a);
readln(b);
readln(c);
If b=0 then
If c=0 then
ĐT : 0972.311.481 Trang 4
Trần Văn Chung trường THPT Hoàng Văn Thụ Nha Trang 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*b4*a*c;
If d=0 then Writeln(`Phuong trinh co nghiem kep : x=`,b/(2*a) : 4 : 2) Else ifd<0 then Writeln(‘phuong trinh vo nghiem’)
Else Begin
x1:=(b+sqrt(d))/(2*a); x2:=(bsqrt(d))/(2*a);
Write(`Phuong trinh co hai nghiem : ‘); Writeln(‘ x1=`,x1 : 4 : 2,` va x2=`,x2 : 4 : 2);
End; End;
Readln End.
Bài 5: Giải hệ phương trình tuyến tính :
ax + by = m 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 : `); Writeln(``);
Write(`Nhap a=`);
Write(`Nhap b=`);
Write(`Nhap c=`);
Write(`Nhap m=`);
readln(a);
readln(b);
readln(c);
readln(m);
ĐT : 0972.311.481 Trang 5
...
- tailieumienphi.vn
nguon tai.lieu . vn