Viết chương trình bằng ngôn ngữ lập trình Free Pascal yêu cầu người dùng nhập vào các số nguyên là chiều dài, chiều rộng hình chữ nhật, bán kính đường tròn. Sau đó thực hiện các nội dung sau:
a. Tính diện tích hình tròn.
b. Kiểm tra chiều dài và chiều rộng là số chẵn hay lẻ.
c. So sánh diện tích hình chữ nhật với diện tích hình tròn.
Ví dụ a,b: Input: Nhập vào chiều dài, chiều rộng và bán kính: 5, 4, 4
Output: Diện tích hình tròn: 50.3
Output: Chiều dài là số lẻ
Output: Chiều rộng là số chẵn
Ví dụ c: Input: Nhập vào chiều dài, chiều rộng và bán kính: 5, 3, 4
Output: Diện tích hình chữ nhật: 15
Output: Diện tích hình tròn: 50.3
Output: Diện tích hình tròn lớn hơn diện tích hình chữ nhật (50.3 > 15)
Giúp với ạ !Cần gấp
uses crt;
var a,b,r,d:longint; s:real;
begin
clrscr;
write(‘Nhap chieu dai, chieu rong, ban kinh: ‘);readln(a,b,r);
s:=r*r*pi; d:=a*b;
writeln(‘Dien tich hinh tron: ‘,s:0:5);
if a mod 2=0 then writeln(‘Chieu dai la so chan’) else writeln(‘Chieu dai la so le’);
if b mod 2=0 then writeln(‘Chieu rong la so chan’) else writeln(‘Chieu rong la so le’);
if s<d then writeln(‘Chu nhat<Hinh tron’) else writeln(‘Chu nhat>Hinh tron’);
readln;
end.
a+b+c.
program ctpt;
uses crt;
var a, b, r: integer;
Shtr, Shcn: real;
begin
clrscr;
write(‘Nhap chieu dai a = ‘); readln(a);
write(‘Nhap chieu rong b = ‘); readln(b);
write(‘Nhap ban kinh r = ‘); readln(c);
Shtr:=r*r*pi;
Shcn:=a*b;
if (a mod 2) = 0 then write(‘Chieu dai ‘, a, ‘ la so chan’) else write(‘Chieu dai ‘, a, ‘ la so le’);
if (b mod 2) = 0 then write(‘Chieu rong ‘, b, ‘ la so chan’) else write(‘Chieu rong ‘, b, ‘ la so le’);
writeln(‘Dien tich hinh tron la: ‘, Shtr:2:1);
writeln(‘Dien tich hinh chu nhat la: ‘, Shcn);
if Shtr>Shcn then write(‘Dien tich hinh tron lon hon dien tich hinh chu nhat’) else
write(‘Dien tich hinh chu nhat lon hon dien tich hinh tron’);
readln
end.