Bài tập Pascal 01 Cơ bản
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (86.84 KB, 3 trang )
Bài tập Pascal – Phần cơ bản
Bài 01 – Xin chào
(Các lệnh WriteLn và ReadLn)
Bạn hãy nhập họ tên của một người và in ra màn hình câu chúc mừng người ñó.
Var
HoTen: String;
Begin
WriteLn('Hay nhap ho va ten');
ReadLn(HoTen);
WriteLn('Xin chuc mung ban ', HoTen);
ReadLn;
End.
Để xoá màn hình kết quả của các lần chạy chương trình trước ñó (bấm Ctrl-F9), ta cần ñưa thêm lệnh
xoá màn hình ClrScr và dùng thư viện Crt chứa lệnh này
Uses Crt;
Var
HoTen: String;
Begin
ClrScr;
WriteLn('Hay nhap ho va ten');
ReadLn(HoTen);
WriteLn('Xin chuc mung ban ', HoTen);
ReadLn;
End.
Bài 02 – Các phép toán
(Lệnh If ñiều_kiện then thực_hiện_lệnh)
Bạn hãy nhập vào hai số nguyên (Integer) và một phép toán (Char) rồi in ra màn hình kết quả của phép
toán.
Uses Crt;
Var
a, b: Integer;
pt: Char;
Begin
ClrScr;
WriteLn('Hay nhap so thu nhat');
Biên soạn: Th.s Nguyễn Anh Việt
Trang 1
Bài tập Pascal – Phần cơ bản
ReadLn(a);
WriteLn('Hay nhap so thu hai');
ReadLn(b);
WriteLn('Hay nhap phep toan (+ – * /)');
ReadLn(pt);
If pt = '+' then
WriteLn(a, pt,
Else If pt = '-'
WriteLn(a, pt,
Else If pt = '*'
WriteLn(a, pt,
Else If pt = '/'
WriteLn(a, pt,
ReadLn;
End.
b, '
then
b, '
then
b, '
then
b, '
= ', a+b) {Chú ý: Trước Else phải bỏ dấu ;}
= ', a-b)
= ', a*b)
= ', a/b :5:2); {In kết quả có dạng xxxxx.xx}
Bài 03 – Tính Luỹ thừa
(Vòng lệnh For Tên_biến := 1 to n do thực_hiện_lệnh)
Bạn hãy nhập vào cơ số a và số mũ n (Integer) rồi in ra màn hình kết quả của phép toán an.
Uses Crt;
Var
a, n, i: Integer; {Số nguyên nhỏ}
lt: LongInt; {Số nguyên lớn}
Begin
ClrScr;
WriteLn('Hay nhap co so');
ReadLn(a);
WriteLn('Hay nhap so mu');
ReadLn(n);
lt := 1;
For i:=1 to n do
lt := lt * a;
WriteLn(a, ' luy thua ', n, ' = ', lt);
ReadLn;
End.
Bài 04 – Tính Giai thừa
(TD : 5! = 1 . 2 . 3 . 4 . 5 = 120)
Bạn hãy nhập vào số n (Integer) rồi in ra màn hình kết quả của phép toán giai thừa n!
Biên soạn: Th.s Nguyễn Anh Việt
Trang 2
Bài tập Pascal – Phần cơ bản
Uses Crt;
Var
n, i: Integer;
gt: LongInt;
Begin
ClrScr;
WriteLn('Hay nhap so n');
ReadLn(n);
gt := 1;
For i := 2 to n do
gt := gt * i;
WriteLn(n, ' giai thua = ', gt);
ReadLn;
End.
Bài 05 – Tính Tổng Sn từ 1 ñến n
(TD : S5 = 1+2+ 3+ 4+ 5 = 15)
Bạn hãy nhập vào số n (Integer) rồi in ra màn hình kết quả của phép toán Cộng từ 1 ñến n
Bài 06 – Tính Tổng Cn từ 1 ñến n
(TD : C5 =2+ 4 = 6)
Bạn hãy nhập vào số n (Integer) rồi in ra màn hình kết quả của phép toán Cộng các số chẵn từ 1 ñến n
Chú ý: a là số chẵn nếu a mod 2 = 0, trong ñó mod là phép toán chia lấy số dư. TD: 5 mod 3=2
Bài 07 – Tính Tổng Ln từ 1 ñến n
(TD : L5 =1+ 3+5 = 9)
Bạn hãy nhập vào số n (Integer) rồi in ra màn hình kết quả của phép toán Cộng các số lẻ từ 1 ñến n
Chú ý: a là số lẻ nếu a mod 2 = 1
Biên soạn: Th.s Nguyễn Anh Việt
Trang 3
