Câu 1: Cho a, b là hai số thực được nhập từ bàn phím. Em hãy tính hiệu, thương của hai số này rồi hiển thị kết quả ra màn hình? Câu 2: Cho hai số d, r là chiều dài và chiều rộng của một thửa ruộng hình chữ nhật được nhập vào từ bàn phím. Em hãy viết chương trình tính chu vi, diện tích của hình thửa ruộng đó rồi hiển thị kết quả ra màn hình?
câu 1
program hieu_thuong;
uses crt;
var a,b,h,t:real;
begin
write('nhap so a:');readln(a);
write('nhap so b:');readln(b);
if a>=b then h:=a-b else h:=b-a;
t:=a/b;
writeln('hieu cua hai so ',a,'',b,' la ',h);
writeln('thuong cua hai so ',a,'',b,' la ',t);
readln;
end.
câu 2
program chuvi_dientich;
uses crt;
var cv,dt,d,r:real;
begin
write('nhap chieu dai d:');readln(d);
write('nhap chieu rong r:');readln(r);
cv:=( d + r ) * 2 ;
dt:= d * r ;
writeln('chu vi thua ruong la : ',cv);
writeln('dien tich thua ruong la : ',dt);
readln;
end.