Viết chương trình tính tổng hai số nguyên thi hai số nguyên ab được khai bao như thế nào

1. Bài toán:

2. Thuật toán:

Bước 1. Nhập thông tin;

• Bước 1.1. Nhập số a;
• Bước 1.2. Nhập số b;

Bước 2. Xử lý:

• Bước 2.1. Tong := a + b;
• Bước 2.2. hieu:= a - b;
• Bước 2.3. tich:= a * b;
• Bước 2.4. thuong:= a/b;

Bước 3. Xuất dữ liệu ra màn hình tổng, hiệu, tích, thương.

3. Code Pascal:

Program phep_tinh; uses crt; var a,b,tong,hieu,tich:integer; ---> Khai báo biến số nguyên thuong: real; ---> Khai báo thuong là số thực; Begin clrscr; write['Nhap so thu nhat: ']; readln[a]; write['Nhap so thu hai: ']; readln[b]; tong:= a + b; hieu:= a - b; tich:= a * b; thuong:= a/b; writeln['Tong cua hai so ',a,' + ',b, ' = ',tong]; writeln['Hieu cua hai so ',a,' - ',b, ' = ',hieu]; writeln['Tich cua hai so ',a,' * ',b, ' = ',tich]; writeln['Thuong cua hai so ',a,' / ',b, ' = ',thuong:4:2]; readln; End.

4. Giải thích code:

Dong codeÝ nghĩaProgram phep_tinh;Khai báo tên chương trình phep_tinhuses crt;Khai báo các hàm thư việnvar a,b,tong,hieu,tich:integer;Khai báo các biến của bài toán a[số a], b[số b], tong[tổng a và b], hieu[hiệu a và b], tich[tích a và b] theo kiểu số nguyên Integerthuong: real;khai báo biến thuong[thương của a và b] kiểu số thựcclrscr;Dùng để xóa màn hình khi chạy chương trìnhwrite['Nhap so thu nhat: '];In ra màn hình dòng chữ Nhap so thu nhat:readln[a];Nhập số từ bàn phím để gán giá trị cho biến awrite['Nhap so thu hai: '];In ra màn hình dòng chữ Nhap so thu hai:readln[b];Nhập số từ bàn phím để gán giá trị cho biến btong:= a + b;Gán giá trị của biến tong bằng a + bhieu:= a - b;Gán giá trị của biến hieu bằng a - btich:= a * b;Gán giá trị của biến tich bằng a * bthuong:= a/b;Gán giá trị của biến thuong bằng a / bwriteln['Tong cua hai so ',a,' + ',b, ' = ',tong];In ra màn hình dòng chữ "Tong cua hai so a + b =" và in giá trị biến tong ra màn hìnhwriteln['Hieu cua hai so ',a,' - ',b, ' = ',hieu];In ra màn hình dòng chữ "Hieu cua hai so a - b =" và in giá trị biến hieu ra màn hìnhwriteln['Tich cua hai so ',a,' * ',b, ' = ',tich];In ra màn hình dòng chữ "Tich cua hai so a / b =" và in giá trị biến tich ra màn hìnhwriteln['Thuong cua hai so ',a,' / ',b, ' = ',thuong:4:2];In ra màn hình dòng chữ "Thuong cua hai so a + b =" và in giá trị biến thuong ra màn hìnhreadln;

5. Kết Quả Pascal

Video liên quan