Yêu cầu: Viết chương trình tính tổng, hiệu, tích, thương hai số nguyên a và b.
- Input: Nhập hai số nguyên a và b từ bàn phím
- Output: In ra màn hình tổng, hiệu, tích, thương hai của hai số a và b
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.
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.
| Dong code | Ý nghĩa | | Program phep_tinh; | Khai báo tên chương trình phep_tinh | | uses crt; | Khai báo các hàm thư viện | | var 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 Integer | | thuong: real; | khai báo biến thuong(thương của a và b) kiểu số thực | | clrscr; | Dùng để xóa màn hình khi chạy chương trình | | write('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 a | | write('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 b | | tong:= a + b; | Gán giá trị của biến tong bằng a + b | | hieu:= a - b; | Gán giá trị của biến hieu bằng a - b | | tich:= a * b; | Gán giá trị của biến tich bằng a * b | | thuong:= a/b; | Gán giá trị của biến thuong bằng a / b | | writeln('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ình | | writeln('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ình | | writeln('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ình | | writeln('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ình | | readln; | |
Kết luận: Bài này chúng ta chỉ xét ở mức độ mặt định khi tính thương thì b sẽ khác 0. Sau này khi học điều kiện if - else thì chúng ta sẽ xét đầy đủ trường hợp.
3 trả lời Câu lệnh ghép được thực hiện bao nhiêu lần (Tin học - Lớp 8) 1 trả lời Nút lệnh (merge and center) dùng để làm gì (Tin học - Lớp 7) 2 trả lời Nút lệnh (sort ascending) dùng để làm gì (Tin học - Lớp 7) 1 trả lời Trình bày các bước điều chỉnh ngắt trang (Tin học - Lớp 7) 2 trả lời Trong& trang Web www được viết tắt bởi từ nào (Tin học - Lớp 3) 2 trả lời - lý thuyết
- trắc nghiệm
- hỏi đáp
- bài tập sgk
Em hãy viết trương trình tính tích của hai số nguyên A và B, sau đó xuất kết quả ra màn hình? Các câu hỏi tương tự - lý thuyết
- trắc nghiệm
- hỏi đáp
- bài tập sgk
Viết chương trình nhập vào hai số a và b. In ra màn hình kết quả tổng, hiệu, tích, thương của hai số vừa nhập Các câu hỏi tương tự Program tinh_tong_tich_thuong;
uses crt ;
Var a,b, tong, tich,thuong: integer;
BEGIN;
Writeln(‘ Nhap vao so a: ‘, a);
Readln(a);
Writeln(‘ Nhap vao so b: ‘, b);
Readln(c);
tong:= a+b;
tich:= a*b;
thuong:= a/b;
Writeln(‘Tong hai so vua nhap la: ‘,tong);
Writeln(‘Tich hai so vua nhap la: ‘,tich);
Writeln(‘Thuong hai so vua nhap la: ‘,thuong);
Readln;
END.
|
