Question

Bài 1: Nhập vào 2 cạnh của một hình chữ nhật. In ra màn hình diện tích và chu vi của nó.

Bài 2: Nhập vào bán kính của hình tròn. In ra màn hình diện tích và chu vi của nó.

Bài 3: Nhâp vào ba số a,b,c bất kì. Kiểm tra xem nó có thể là độ dài ba cạnh hay không, nếu không thì in ra màn hình ' Khong la ba canh cua mot tam giac'. Ngược lại, thì in diện tích, chu vi của tam giác ra màn hình.

Bài 4: Viết chương trình giải phương trình bậc 1 (ax + b = 0)

Bài 5: Viết chương trình giải bất phương trình bậc 1 (ax + b = 0)

Làm giúp mình với !!!

Answer 1

Bài 1:

uses crt;
var a,b,cv,dt:real;
begin
clrscr;
repeat
write('nhap chieu dai:'); readln(a);
write('nhap chieu rong:'); readln(b);
if (a<=0) or (b<=0) or (a<b) then writeln('vui long nhap lai');
until (a>0) and (b>0) and (a>=b);
cv:=(a+b)*2;
dt:=a*b;
writeln('chu vi cua hinh chu nhat la: ',cv:4:2);
writeln('dien tich cua hinh chu nhat la: ',dt:4:2);
readln;
end.

Bài 2:

uses crt;
var r,s:real;
begin
clrscr;
repeat
write('nhap ban kinh:'); readln(r);
if r<=0 then writeln('vui long nhap lai');
until r>0;
s:=sqr(r)*pi;
writeln('dien tich hinh tron la: ',s:4:2);
readln;
end.

Bài 3:

uses crt;
var a,b,c,cv,p,s:real;
begin
clrscr;
write('nhap a='); readln(a);
write('nhap b='); readln(b);
write('nhap c='); readln(c);
if (a>0) and (b>0) and (c>0) then
begin
if (a+b>c) and (a+c>b) and (b+c>a) then
begin
cv:=a+b+c;
writeln('chu vi tam giac la: ',cv:4:2);
p:=cv/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('dien tich tam giac la: ',s:4:2);
end
else writeln('Khong la ba canh cua mot tam giac');
end
else writeln('Khong la ba canh cua mot tam giac');
readln;
end.

Bài 4:

uses crt;
var a,b:real;
begin
clrscr;
write('nhap he so bac nhat='); readln(a);
write('nhap hang tu tu do='); readln(b);
if a=0 then
if b=0 then writeln('Phuong trinh co vo so nghiem')
else writeln('Phuong trinh vo nghiem')
else writeln('Phuong trinh co nghiem x=',-b/a:4:2);
readln;
end.

Bài 5:

Program BAT_PHUONG_TRINH_BACI;

Uses crt;

Var a,b: real;

Begin

Clrscr;

Writeln('GIAI BAT PHUONG TRINH BAC NHAT: AX + B>=0'); Writeln('----------------------------------------------------------------------'); Write('nhap a='); readln(a);

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

If a<>0 then

If a>0 then Writeln('Bat phuong trinh co nghiem: x>=',-b/a:4:2)

Else Writeln('Bat phuong trinh co nghiem: x<=',-b/a:4:2)

Else If b>=0 then Writeln('Bat phuong trinh co vo so nghiem')

Else writeln('Bat phuong trinh vo nghiem');

Readln;

End.