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:

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;

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);