Viết chương trình tính tổng , hiệu , tích , thương của 2 số được nhập vào bàn phím

0 bình luận về “Viết chương trình tính tổng , hiệu , tích , thương của 2 số được nhập vào bàn phím”

1. Viết chương trình tính tổng , hiệu , tích , thương của 2 số được nhập vào bàn phím

   Câu 1
   Program Tong_hieu_tich_thuong;
   Uses crt;
   Var a:integer;
       b:integer;
   Begin
       clrscr;
       write(‘nhap so thu 1 :’);
       readln(a);
       writeln(‘ban vua nhap so: ‘,a);
       write(‘nhap so thu hai :’);
       readln(b);
       writeln(‘ban vua nhap so thu 2: ‘,b);
       Writeln(a,’+’,b,’=’,a+b);
       Writeln(a,’-‘,b,’=’,a-b);
       Writeln(a,’*’,b,’=’,a*b);
       if b<>0 then {Nếu không kiểm tra thì b=0 chương trình sẽ bị lỗi}
       Writeln(a,’/’,b,’=’,a/b);
       readln;
   End.

   Bình luận

2. uses crt;
   var a,b,s,h,t,th:extended;
   begin
           clrscr;
           write(‘Nhap so thu 1: ‘);readln(a);
           repeat
                   write(‘Nhap so thu 2: ‘);readln(b);
                   if b=0 then writeln(‘NHAP LAI!’);
           until b>0;
           s:=a+b;h:=a-b;t:=a*b;th:=a/b;
           writeln(‘Tong: ‘,s:0:2);
           writeln(‘Hieu: ‘,h:0:2);
           writeln(‘Tich: ‘,t:0:2);
           write(‘Thuong: ‘,th:0:2);
           readln;
   end.

   Bình luận