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

Question

phuongthao · Answer

Viết chương tr&igrave;nh t&iacute;nh tổng , hiệu , t&iacute;ch , thương của 2 số được nhập v&agrave;o b&agrave;n ph&iacute;m         C&acirc;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&ocirc;ng kiểm tra th&igrave; b=0 chương tr&igrave;nh sẽ bị lỗi}     Writeln(a,'/',b,'=',a/b);     readln; End.

cattuong · Answer

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.

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

Viết một bình luận Hủy