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
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.
Bước 1. Nhập thông tin;
Bước 2. Xử lý:
- Bước 1.1. Nhập số a;
- Bước 1.2. Nhập số b;
Bước 3. Xuất dữ liệu ra màn hình tổng, hiệu, tích, thương.
- 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;
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.
- lý thuyết
- trắc nghiệm
- hỏi đáp
- bài tập sgk
Viết chương trình tính tổng, hiệu, tích, thương của 2 số a và b với a,b được nhập từ bàn phím
Các câu hỏi tương tự
Program phep_tinh;uses crt;var a,b,tong,hieu,tich:integer; thuong: real;Beginclrscr;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.
program oken;
uses crt;
var a,b:integer
begin
clrscr;
write('nhap so a: '); readln(a);
write('nhap so b: '); readln(b);
write('tong 2 so ',a,' va ',b,': ',a+b);
write('tich 2 so ',a,' va ',b,': ',a*b);
write('hieu 2 so ',a,' va ',b,': ',a-b);
readln;
end.
câu 2:
+program và uses ở trong phần khai báo và thiếu dấu ;
+clrscr sai dấu ;
+Writeln ('chao cac ban !') thiếu ;
+end thiếu dấu . và phải ở dưới cùng chương trình.
sửa:
program vd;
uses crt;
begin
clrscr;
writeln('chao cac ban!');
readln
end.