Bài tập Pascal Free Pascal 01 đến 16 Có bài giải (từ đơn giản đến nâng cao) BY Nguyễn Anh Việt
https://app.box.com/s/mtg0fzik6bet3tes96tu4bmt8wsxaahw
https://app.box.com/s/mtg0fzik6bet3tes96tu4bmt8wsxaahw
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
Bài tập Pascal – Từ cơ bản đến nâng cao
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 1.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 a n .
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 1.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