Question

BÀI 1: XÂY DỰNG CHƯƠNG TRÌNH +- 2 SỐ Input: Nhập vào từ bàn phím 2 số Output: Hiển thị ra màn hình tổng, hiệu 2 số BÀI 2: XÂY DỰNG CHƯƠNG TRÌNH TÍNH CHU VI DIỆNTÍCH HCN Input: Nhập vào từ bàn phím chiều dài và chiều rộng Output: Hiển thị ra màn hình chu vi và diện tích của hình chữ nhật BÀI 3: XÂY DỰNG CHƯƠNG TRÌNH TÍNH CHU VI DIỆNTÍCH HÌNH TRÒN Input: Nhập vào bán kính của đường tròn Output: Hiển thị ra màn hình chu vi và diện tích của hình tròn

Answer 1

Bài 1:

Uses crt;

Var a,b:real;

Begin

Clrscr;

Write('Nhap a = ');readln(a);

Write('Nhap b = ');readln(b)

Writeln('Tong la ',a + b);

Write('Hieu la ',a - b);

Readln;

End.

Bài 2:

Uses crt;

Var a,b,s,p:real;

Begin

Write('Nhap chieu dai = ');readln(a);

Write('Nhap chieu rong = ');readln(b);

p:=(a+b)*2;

s:=a*b;

Writeln('Chu vi hcn la ',p:10:2);

Write('Dien tich hcn la ',s:10:2);

Readln;

End.

Bài 3:

Uses crt;

Var r,c,s:real;

Begin

Clrscr;

Write('Nhap ban kinh = ');readln(r);

c:=2*3.14*r;

s:=3.14*r*r;

Writeln('Chu vi hinh tron la ',c:10:2);

Write('Dien tich hinh tron la ',s:10:2);

Readln;

End.