Viết chương trình pascal tính tổng a b pascal
Program tinh; Show Uses crt; Var a,b,tich,tong,hieu:Integer; thuong:Real; Begin Clrscr; Write('nhap so a la '); readln(a); Write('nhap so b la ‘); readln(b); tong:=a+b; hieu:=a-b; tich:=a*b; thuong:=a/b; Writeln('tong cua 2 so do la ' ,tong); Writeln('hieu cua 2 so do la ' , hieu ); Writeln('tich cua 2 so do la ',tich); Writeln('thuong cua 2 so do la ' ,thuong:10:2); Readln; End. Program Tong_hieu_tich_thuong; uses crt; var tong,hieu,tich,thuong: real; a,b: integer; begin clrscr; write('nhap so a ='); readln(a); write('nhap so b ='); readln(b); tong:=a+b; hieu:=a-b; tich:=a*b; thuong:=a div b; writeln('tong cua 2 so a va b =' ,tong); writeln('hieu cua 2 so a va b =' , hieu ); writeln('tich cua 2 so a va b =',tich); writeln('thuong cua 2 so a va b =' ,thuong); readln; end.
1. Bài toán: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.
2. Thuật toán:
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:
5. Kết Quả PascalKế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. Trang 1 trong tổng số 1 trang Lập trình Pascal: Tính tổng, hiệu, tích, thương của hai số a,bChương trình tính Tổng, Hiệu, Tích, Thương của hai số a,b được nhập từ bàn phím.
Trang 1 trong tổng số 1 trang Permissions in this forum: Bạn không có quyền trả lời bài viết |