Bài tập Pascal 4

Bài1/ Viết chương trình nhập vào tọa độ hàng x cột y của bàn cờ vua. Thông báo ra màn hình ô cờ ở tọa độ x, y là màu gì. Biết rằng ô có tọa độ 1, 1 là màu trắng (ô góc trên cùng phía trái)

Ví dụ:

x=1, y=3 èmàu trắng

x=7, y=8èmàu đen

x=6, y=8èmàu trắng

Bài 2: Viết chương trình nhập 2 số nguyên a và b từ bàn phím. in ra màn hình số có giá trị lớn nhất trong hai số.
ví dụ:
a=5
b=8
số có giá trị lớn nhất là 8
Bài 3: Viết chương trình nhập 2 số nguyên a và b từ bàn phím. in ra màn hình kết quả so sánh hai số đó.
ví dụ:
a=5

b=8
a nhỏ hơn b
Bài 4: Viết chương trình nhập 2 số nguyên a và b từ bàn phím. in ra màn hình số theo thứ tự tăng.
Bài 5: Một trong những điều kiện để được kết nạp Đoàn là từ 15 tuổi
 trở lên. Viết chương trình nhập vào năm sinh của một học sinh, thông báo học sinh này đã đủ tuổi để kết nạp Đoàn chưa.
Bài 6: Viết chương trình nhập vào số nguyên a là năm dương lịch. Thông báo ra màn hình năm đó có là năm nhuận hay không
Trường hợp đơn giản: Năm nhuận là năm chia hết cho 4
Trường hợp khó hơn: Năm nhuận là năm chia hết cho 4. Nhưng những năm chẵn trăm thì phải chia hết cho 400
(các em làm trường hợp đơn giản nhé)
ví dụ: 
năm=2000 thì là năm nhuận, năm=1999 không nhuận
Trường hợp khó
năm=2000 thì là năm nhuận, năm=1700 không nhuận
năm=20  là năm nhuận, năm 1999 không nhuânk
*Nếu muốn làm được trường hợp khó thì cần nghiên cứu phép toán AND+OR trong Pascal
+Phép AND (và) hoạt động như Excel
 cú pháp
         (btđk1)and(btđk2)and(btddk3)....and(btđkn)
ví dụ:  phép 8<=a<=20 trong Toán thì được biểu diễn bằng Pascal như sau
  (a>=8)and(a<=20)

Read More

Lời giải bài tập Pascal

Bài 4: tính tổng các số tự nhiên từ 1 đến n với số n nhập từ bàn phím
cách 1:
program bai4;
uses crt;
var
n:integer;
begin
        write('nhap n=');readln(n);
        writeln('tong cac so tu nhien tu 1 den n=',(n+1)*n/2:0:0);
readln;
end.

cách 2:
program bai4;
uses crt;
var
n:integer;
m:real;
begin
        write('nhap n=');readln(n);
         m:=(n+1)*n/2;
        writeln('tong cac so tu nhien tu 1 den n=',m:0:0);
readln;
end.

cách 3:
program bai4;
uses crt;
var
n,m:integer;
begin
        write('nhap n=');readln(n);
         m:=(n+1)*n div 2; {div la phep chia lay phan nguyen}
        writeln('tong cac so tu nhien tu 1 den n=',m);
readln;
end.
Bài 5: tính tổng các số tự nhiên từ x đến y với số x, y nhập từ bàn phím
cách 1:
program bai5;
uses crt;
var
x,y:integer;
begin
        write('nhap so dau=');readln(x);
        write('nhap so cuoi=');readln(y);
        writeln('tong cac so tu nhien tu x den y=',(x+y)*(y-x+1)/2:0:0);
readln;
end.

cách 2:
program bai5;
uses crt;
var
x,y:integer;
m:real;
begin
          write('nhap so dau=');readln(x);
          write('nhap so cuoi=');readln(y);
          m:=(x+y)*(y-x+1)/2;
          writeln('tong cac so tu nhien tu x den y=',m:0:0);
readln;
end.

cách 3:
program bai5;
uses crt;
var
x,y,m:integer;
begin
           write('nhap so dau=');readln(x);
           write('nhap so cuoi=');readln(y);
           m:=(x+y)*(y-x+1) div 2; {div la phep chia lay phan nguyen}
            writeln('tong cac so tu nhien tu 1 den n=',m);
readln;
end.

Read More

Bài tập Word 1

Các em nhấn vào đây để tải về bài tập 1, 2, 3
Các em nhấn vào đây để tải về đề thi thử

Read More

Bài tập Pascal 3

Bài 1: Viết chương trình tính chu vi và diện tích hình tròn với bán kính nhập từ bàn phím
Ví dụ: với bán kính bằng 9 ta có giao diện khi chạy như sau:

Bài 2:Viết chương trình tính diện tích của phần hình được tô đen  với độ dài đường kinh của hình tròn là a. Độ dài a được nhập từ bàn phím. Diện tích làm tròn lấy 2 số ở phần thập phân, lấy Pi=3.14

ví dụ: a=6 thì diện tích=10.26

Bài 3:Viết chương trình tính diện tích của phần hình được tô đen  biết hình chữ nhật có chiều dài là a và chiều rộng b được nhập từ bàn phím. Lấy Pi=3.14, kết quả làm tròn lấy 2 số ở phần thập phân

ví dụ: a=8, b=6, diện tích phần tô đen =48.00

Bài 4:

       Cho hình vuông có độ dài cạnh là a. Lấy một cạnh của hình vuông làm đường kính, người ta vẽ 4 nửa hình tròn, chúng giao nhau thành một bông hoa có bốn cánh. Hãy viết chương trình tính diện tích của bông hoa đó (phần tô xám)? Với độ dài a nhập từ bàn phím. Kết quả làm tròn lấy 2 số thập phân

ví dụ: với a=6 thì diện tích là 20.52

Bài 5:

Một ống bằng thép dài x mét. Khi một em học sinh dùng búa gõ vào một đầu ống thì một em học sinh khác đặt tai ở đầu kia của ống nghe thấy hai tiếng gõ: Tiếng nọ cách tiếng kia y giây

Viết chương trình tính vận tốc truyền âm trong thép, biết vận tốc truyền âm trong không khí là 333m/s và âm truyền trong thép nhanh hơn âm truyền trong không khí. Với x và y nhập từ bàn phím

ví dụ:

x=25 và y= 0.055 thì vận tốc là 1250 m/s

Read More

Tải về Free Pascal và cài đặt

Các em nhấn vào đây để tải về Free Pascal
Cách cài đặt:Việc cài đặt diễn ra cực kì đơn giản (chủ yếu là bấm vào nút Next)

Bước 1: Tải file cài đặt theo đường dẫn ở trên
Bước 2: Khởi chạy file cài đặt. Cửa sổ cài đặt xuất hiện, bấm Next

Bước 3: Chọn thư mục cài đặt. Có thể để nguyên mặc định hoặc chọn đường dẫn khác bằng cách bấm vào Browse

Bước 4: Chọn kiểu cài đặt: Nên chọn Full installation để được cài đặt đầy đủ

Bước 5: Chọn Next để xác nhận -> Install. Sau khi quá trình cài đặt hoàn tất, bấm OK để file readme.txt hiện ra như hình dưới.

Đóng file này lại và tìm icon của phần mềm trên màn hình desktop.

Như vậy là bạn đã cài đặt xong Free Pascal :)

Read More

Bài tập Pascal 1

Bài 1: Viết chương trình tính chu vi và diện tích của hình chữ nhật. Với chiều dài và chiều rộng được nhập từ bàn phím
    ví dụ: Nếu khi chạy chương trình nhập chiều dài bằng 9 và chiều rộng bằng 5 thì được kết quả như sau:

Bài 2: Viết chương trình nhập vào 2 số nguyên a và b từ bàn phím. Tính và đưa ra màn hình kết quả tính tổng, hiệu, tích của a và b.
Ví dụ:Nếu khi chạy chương trình nhập a= 10 và  b= 8 thì được kết quả như sau:

Read More

Các hàm thường dùng (có sẵn)

abs(x) - Giá trị tuyệt đối của x (tham số x là số nguyên hoặc thực)

frac(x) - cho kết quả là phần thập phân của số x. (tham số x là số nguyên hoặc thực)

int(x) - cho kết quả là phần nguyên của số thập phân x. (trả về một số thực có phần thập phân là 0, tham số x là số nguyên hoặc thực)

trunc(x)-Lấy phần nguyên của số x (trả về là một số nguyên, tham số x là số nguyên hoặc thực)

sqr(x) - bình phương của số x. (tham số x là số nguyên hoặc thực)

sqrt(x) - cho kết quả là căn bậc hai của x. (tham số x là số nguyên hoặc thực)

pred(x) - cho kết quả là số nguyên đứng trước số nguyên x. (tham số x là số nguyên)

suuc(x) - cho kết quả là số nguyên đứng sau số nguyên x. (tham số x là số nguyên)

odd(x) - cho kết quả là true nếu x số lẻ, ngược lại là false. (tham số x là số nguyên)

round(x) - Làm tròn số thực x. (tham số x là số nguyên hoặc thực)

chr(x) - trả về một kí tự có vị trí là x trong bảng mã ASCII.

Ord(x) - trả về một số thứ tự của kí tự x.

Read More

bài tập Pascal 2

Read More

Bài tập Excel

Bài tập 1
Bài tập 2

Read More