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 tập Pascal – Phần Bài 01 – Xin chào (Các lệnh WriteLn ReadLn) Bạn nhập họ tên người in 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á hình kết lần chạy chương trình trước ñó (bấm Ctrl-F9), ta cần ñưa thêm lệnh xoá hình ClrScr dùng thư viện Crt chứa lệnh 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 nhập vào hai số nguyên (Integer) phép toán (Char) in hình kết 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 Bài tập Pascal – Phầ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 có dạng xxxxx.xx} Bài 03 – Tính Luỹ thừa (Vòng lệnh For Tên_biến := to n thực_hiện_lệnh) Bạn nhập vào số a số mũ n (Integer) in hình kết 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 lt := lt * a; WriteLn(a, ' luy thua ', n, ' = ', lt); ReadLn; End Bài 04 – Tính Giai thừa (TD : 5! = = 120) Bạn nhập vào số n (Integer) in hình kết phép toán giai thừa n! Biên soạn: Th.s Nguyễn Anh Việt Trang Bài tập Pascal – Phần Uses Crt; Var n, i: Integer; gt: LongInt; Begin ClrScr; WriteLn('Hay nhap so n'); ReadLn(n); gt := 1; For i := to n gt := gt * i; WriteLn(n, ' giai thua = ', gt); ReadLn; End Bài 05 – Tính Tổng Sn từ ñến n (TD : S5 = 1+2+ 3+ 4+ = 15) Bạn nhập vào số n (Integer) in hình kết phép toán Cộng từ ñến n Bài 06 – Tính Tổng Cn từ ñến n (TD : C5 =2+ = 6) Bạn nhập vào số n (Integer) in hình kết phép toán Cộng số chẵn từ ñến n Chú ý: a số chẵn a mod = 0, ñó mod phép toán chia lấy số dư TD: mod 3=2 Bài 07 – Tính Tổng Ln từ ñến n (TD : L5 =1+ 3+5 = 9) Bạn nhập vào số n (Integer) in hình kết phép toán Cộng số lẻ từ ñến n Chú ý: a số lẻ a mod = Biên soạn: Th.s Nguyễn Anh Việt Trang ...Bài tập Pascal – Phầ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,... 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 có dạng xxxxx.xx} Bài 03 – Tính Luỹ thừa (Vòng lệnh For Tên_biến... 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 lt := lt * a; WriteLn(a,