Xem mẫu

Các bài tập Pascal cơ bản, KINH ĐIỂN, khó, RẤT KHÓ & RẤT THÚ VỊ
(Đặc biệt ở phần GRAPHIC và phần GRAPH THEORY )

PHẦN I-

CÁC BÀI TOÁN CƠ BẢN.

A/ LẬP TRÌNH KHÔNG DÙNG CẤU TRÚC NÀO.
1-Chỉ được dùng phép nhân, tính a mũ 28 với không hơn 6 phép nhân (khi Test, bạn nên cho a=2)
{Tinh a mu 28 chi dung khong hon 6 phep nhan}
Uses crt;
var a,b:longint;
Begin clrscr;
Write('Nhap a='); Readln(a);
a:=a*a;
a:=a*a; Writeln('a mu 4=',a);
b:=a; {luu a mu 4 vao b}
a:=a*a*a; Writeln('a mu 12=',a);
a:=a*a; Writeln('a mu 24=',a);
a:=a*b; Writeln('a mu 28=',a);
Readln
End.
2- Cho sẵn xâu ký tự sau: Sách ToanA1 250000, Sách Ly 100000, Sách Anh van 150000,
Sach Mach IC 80000.
Hãy in lên màn tổng số tiền bán các loại sách thuộc xâu nhập vào trên đây. HẠN CHẾ CỦA BÀI TOÁN:
Không được dùng phép gán sau
Tongsotienbansach:=250000+100000+150000+80000 hoặc các phép gán tương tự khác để tính tổng tiền
bán!
Uses crt;
Const s='GiaiTich2 250000, Vatly1 100000, Anh2 150000, MachIC 80000';
Var so1,so2,so3,so4:longint;k1,k2,k3,k4:integer;
Begin
Clrscr;
Writeln('Xau cho truoc:',s);
val('250000',so1,k1); val('100000',so2,k2); val('150000',so3,k3);
val('80000',so4,k4);
Writeln('= = = = = = = = = = = = =');
Write('Tong so tien ban cac loai sach:',so1+so2+so3+so4);
Readln;
End.
3-Không dùng bất kỳ cấu trúc nào, hãy so sánh hai số đọc từ bàn phím vào.
(Bài này kiểm tra sự hiểu biết của hs về cách dùng toán tử gán đồng thời với toán tử quan hệ trong một dòng
lệnh).

Thầy Trần Thông Quế

2

Uses crt;
Var a,b:integer; check1,check2,check3:Boolean;
Begin clrscr;
Write('a,b:'); Readln(a,b);
check1:=a>b; check2:=a=-3.0) and (s1=-3.0) and (s2=-3.0) and (s3=-3.0) and (s4=1000 do
Begin
Write('M');
n:=n-1000;
End;
If n>=900 then
Begin
Write('CM');
n:=n-900;
End;
If n>=500 then
Begin
Write('D');
n:=n-500;
8 h 54 m

28/7/2017

Thầy Trần Thông Quế

5

End;
If n>=400 then
Begin
Write('CD');
n:=n-400;
End;
If n>=100 then
Begin
Write('C');
n:=n-100;
eND;
If n>=90 then
Begin
Write('XC');
n:=n-90;
End;
If n>=50 then
Begin
Write('L');
n:=n-50;
End;
If n>=40 then
Begin
Write('XL');
n:=n-40;
End;
If n>=20 then
Begin
Write('XX');
n:=n-20;
End;
If n>=10 then
Begin
Write('X');
n:=n-10;
End;
If n=9 then
Begin
Write('IX');
n:=n-9;
End;
If n>=7 then
Begin
Write('VII');
n:=n-7;
End;
If n>=5 then
Begin
Write('V');
8 h 54 m

28/7/2017

nguon tai.lieu . vn