Bài tập Pascal 01 Cơ bản

Bài 01 – Xin chào Bài 02 – Các phép toán Bài 03 – Tính Luỹ thừa Bài 04 – Tính Giai thừa Bài 05 – Tính Tổng Sn từ 1 đến n (TD : S5 = 1+2+ 3+ 4+ 5 = 15) Bài 06 – Tính Tổng Cn từ 1 đến n (TD : C5 =2+ 4 = 6) Bài 07 – Tính Tổng Ln từ 1 đến 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;

ReadLn(a);

WriteLn('Hay nhap so thu hai');

ReadLn(b);

WriteLn('Hay nhap phep toan (+ – * /)');

ReadLn(pt);

If pt = '+' then

WriteLn(a, pt, b, ' = ', a+b) {Chú ý: Trước Else phải bỏ dấu ;}

Else If pt = '-' then

WriteLn(a, pt, b, ' = ', a-b)

Else If pt = '*' then

WriteLn(a, pt, b, ' = ', a*b)

Else If pt = '/' then

WriteLn(a, pt, b, ' = ', a/b :5:2); {In kết quả có dạng xxxxx.xx} ReadLn;

End

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!

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