a)

Program TAM_GIAC;
uses crt;
var a,b,c,p,S: real;
Begin
clrscr;
Write('Nhap canh a:');readln(a);
Write('Nhap canh b:');readln(b);
Write('Nhap canh c:');readln(c);
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
Write('Dien tich tam giac la:',s:10:2);
readln
end.

b) Program Hinh_vuong;

uses crt;

var a,s,cv: Real;

Begin

clrscr;

Write('Nhap chieu dai canh:'); Readln(a);

s:=a*a;

cv:=a*4;

Writeln('Chu vi hinh vuong la:',cv);

Writeln('Dien tich hinh vuon la:',s);

Readln

End.

quá dễ

a) uses crt;

var ab,bc,ca,cv:integer;

p,dt:real;

begin

clrscr;

write('nhap canh AB='); readln(ab);

write('nhap canh BC='); readln(bc);

write('nhap canh CA='); readln(ca);

if (ab+bc>ca) and (ab+ca>bc) and (bc+ca>ab) then

begin

cv:=ab+bc+ca;

p:=cv/2;

dt:=sqrt(p*(p-ab)*(p-ac)*(p-bc));

writeln('chu vi hinh tam giac la: ',cv);

writeln('dien tich hinh tam giac la: ',dt:4:2);

end

else writeln('day khong la 3 canh trong 1 tam giac');

readln;

end.

b) uses crt;

var a,cv,dt:integer;

begin

clrscr;

write('nhap 1 canh bat ky cua hinh vuong:'); readln(a);

cv:=a*4;

dt:=sqr(a);

writeln('chu vi hinh vuong la: ',cv);

writeln('dien tich hinh vuong la: ',dt);

readln;

end.

1. Khai báo 2 biến: a và b (trong đó: a là chiều dài, b là chiều rộng)
Cho người dùng nhập giá trị vào 2 biến trên

Công thức chu vi:(a+b)*2
Công thức diện tích: a*b

Điều kiện bổ sung:
+ Nếu a <= 0 hoặc b <=0 hoặc cả a,b <=0 => Báo lỗi (Chiều dài không bao giờ âm)!
+ Nếu a=b => Báo lỗi (Hình chữ nhật thì chiều dài không thể bằng chiều rộng)

de 3

program bt;

uses CRT;
var m,n:integer;
T:real;
BEGIN clrscr;
write('m,n ='); readln(m,n);
writeln('Tong la:',m+n);
writeln('Hieu la:',m-n);
writeln('Tich la:',m*n);
T:=m/n;
writeln('Thuong la:',T);
readln
END.

de 2

a. Hướng dẫn:

- Nhập hai cạnh vào hai biến a, b.

- Chu vi hình chữ nhật bằng 2*(a+b); Diện tích hình chữ nhật bằng a*b.

b. Mã chương trình:

Program Chu_nhat;

uses crt;

Var a, b, S, CV: real;

Begin

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

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

S := a*b;

CV := (a+b)*2;

Writeln('Dien tich hinh chu nhat la:',S);

Writeln('Chu vi hinh chu nhat la:',CV:10:2);

readln

end.

Program DIEN_TICH_TAM_GIAC;

uses crt;

var a,h,s:integer;

begin

clrscr;

Write('Nhap canh day:'); Readln(a);

Write('Nhap chieu cao:'); Readln(h);

s:=(a*h)/2;

Writeln('Dien tich cua hinh tam giac la:',s);

Readln

End.

xin lỗi bạn

mình xin sửa lại

uses crt;

var a,h:integer;

s:real;

begin

clrscr;

Write('Nhap canh day:'); Readln(a);

Write('Nhap chieu cao:'); Readln(h);

s:=(a*h)/2;

Writeln('Dien tich cua hinh tam giac la:',s:4:2);

Readln

End.

S tam giác = (đáy . chiều cao) :2

S hình thang = ( đáy lớn + đáy bé ) . chiều cao :2

S hình tròn: ( R . R)x 3,14 

SΔ= cao . đáy /2

S hình thang = cao.(đáy lớn + đáy bé) / 2

S tròn = bán kính. bán kính .3,14

S tam giác = ( a x h ) : 2

S hình thang = ( a + b ) x h : 2

S hình tròn = r x r x 3,14

                   = ( d : 2 ) x ( d : 2 ) x 3,14

#include <bits/stdc++.h>

using namespace std;

double a,b,cv,dt;

int main()

{

cin>>a>>b;

cv=(a+b)*2;

dt=a*b;

cout<<fixed<<setprecision(2)<<cv<<endl;

cout<<fixed<<setprecision(2)<<dt;

return 0;

}

a) Muốn tính diện tích hình tam giác, ta lấy độ dài đáy nhân cới chiều cao, rồi lấy kết quả chia cho 2.

b) Muốn tính diện tích hình thang, ta lấy chiề cao nhân vớitrung bình cộng của tổng hai cạnh đáy.

c) Để tính diện tích xung quanh hình hộp chữ nhật, ta lấy chu vi mặt đáy nhân với chiều cao(cùng một đơn vị đo).

d) Nếu cạnh của một hình vuông gấp lên 3 lần thì diện tích của hình vuông đó gấp lên 9 lần.

e) Nếu cạnh của một hình lập phương gấp lên 3 lần thì thể tích của hình lập phương đó gấp lên 27 lần.

a. Chiều cao của tam giác là : \(36\times\frac{3}{4}=27m\)

DIện tích tam giác là : \(36\times\frac{27}{2}=486m^2\)

b. Nếu cả chiều cao và đáy của tam giác cùng bớt đi 18m thì khi đó chiều cao là 9m, độ dài đáy là 18m và gấp đôi chiều cao

Khi đó diện tích của tam giác là : \(9\times\frac{18}{2}=81m^2\)