Question

thầy ơi thầy có thể giải giúp em bài tập này dc k ạ ?

Bài 1 : viết chương trình giải phương trình ax+b=0( cá hệ số nhập từ bàn phím ) Bài 2 : viết trương trình cho phép tính diện tích các hình : hình vuông,hình chữ nhật,hình tam giác,hình tròn,hình thang người dùng chọn hình cần tính từ bẩng chọn sau đó khai báo cáo thông số liên quan về nhận được diện tích của hình mong thầy giúp em ạ em đnag ôn thi mong thầy giúp em em cảm ơn thầy

Answer 1

1:

uses crt;

var a,b:integer;

begin

clrscr;

write('nhap he so bat nhat:'); readln(a);

write('nhap so hang 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.

2:

program thinh;
uses crt;
var a,dt,dai,rong,dt_hcn,r,c1,c2,c3,hthang,c,d,b:integer;
hinh:string;
s_tron,p,s,s_ht:real;
begin
clrscr;
write('nhap hinh ban muon tinh dien tich:'); readln(hinh);
case hinh of
'hinh vuong':
begin
repeat
write('nhap canh cua hinh vuong:'); readln(a);
if a<=0 then writeln('ban da nhap sai, yeu cau ban nhap lai');
until a>0;
dt:=a*a;
writeln('dien tich hinh vuong la: ',dt);
end;
'hinh chu nhat':
begin
repeat
write('nhap chieu dai:'); readln(dai);
write('nhap chieu rong:'); readln(rong);
if (dai<=rong) or (dai<=0) or (rong<=0) then
writeln('ban da nhap sai, yeu cau ban nhap lai');
until (dai>rong) and (dai>0) and (rong>0);
dt_hcn:=dai*rong;
writeln('dien tich hinh chu nhat la: ',dt_hcn);
end;
'hinh tron':
begin
repeat
write('nhap ban kinh:'); readln(r);
if r<=0 then writeln('ban da nhap sai, yeu cau ban nhap lai');
until r>0;
s_tron:=sqr(r)*pi;
writeln('dien tich hinh tron la: ',s_tron:4:2);
end;
'hinh tam giac':
begin
repeat
write('nhap canh thu 1:'); readln(c1);
write('nhap canh thu 2:'); readln(c2);
write('nhap canh thu 3:'); readln(c3);
if (c1+c2<=c3) or (c1+c3<=c2) or (c2+c3<=c1) then
writeln('ban da nhap sai, yeu cau ban nhap lai');
until (c1+c2>c3) and (c1+c3>c2) and (c2+c3>c1);
p:=(c1+c2+c3)/2;
s:=sqrt(p*(p-c1)*(p-c2)*(p-c3));
writeln('dien tich hinh tam giac la: ',s:4:2);
end;
'hinh thang':
begin
write('nhap chieu cao hinh thang:'); readln(hthang);
write('nhap canh day thu 1:'); readln(c);
write('nhap canh day thu 2:'); readln(d);
s_ht:=1/2*hthang*(c+d);
writeln('dien tich hinh thang la: ',s_ht:4:2);
end;
end;
readln;
end.