Những câu hỏi liên quan
Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
25 tháng 12 2018 lúc 10:31

Bình luận (0)
Quân Gaming TV
Xem chi tiết
Nguyễn Hà Giang
27 tháng 11 2021 lúc 9:29

Tham khảo!

program  Dien_tich_hinh_tam_giac;

uses   crt;

var      a,h : integer

            S: real

begin:

        clrscr;

Writeln(‘a= ‘);    Readln(a);

Writeln(‘h= ‘);    Readln(h);

  S:= (a*h)/2

Writeln( Dien tich hinh tam giac co do dai 1 canh va chieu cao vua nhap la S=  ‘,S);

Readln

end.

Bình luận (0)
hà nội 123
Xem chi tiết
Nguyễn Lê Phước Thịnh
13 tháng 5 2021 lúc 16:59

1:

function dt(r:real):real;

begin

dt:=sqr(r)*pi;

end;

Bình luận (0)
Nguyễn Lê Phước Thịnh
13 tháng 5 2021 lúc 16:59

2:

function dt(a,b:real):real;

begin

dt:=1/2*a*b;

end;

Bình luận (0)
Nguyễn Lê Phước Thịnh
13 tháng 5 2021 lúc 16:59

3:

function dt(a,b,c:real):real;

var p,s:real;

begin

p:=(a+b+c)/2;

s:=sqrt(p*(p-a)*(p-b)*(p-c));

dt:=s;

end;

Bình luận (0)
nguyễn văn đức
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 1 2022 lúc 20:56

#include <bits/stdc++.h>

using namespace std;

double a,b,c,h,p,s;

int main()

{

cin>>a>>b>>c;

p=(a+b+c)/2;

s=sqrt(p*(p-a)*(p-b)*(p-c));

if (s>50) cout<<"Dien tich tam giac lon hon";

else cout<<"Dien tich tam giac nho hon";

return 0;

}

Bình luận (0)
hoang thi Cha
Xem chi tiết
Rin Huỳnh
22 tháng 11 2021 lúc 23:11

Uses crt;

Var a, h:real;

Begin

Readln(a);

Readln(h);

Writeln(a*h/2);

Readln

End.

Bình luận (1)
phạm hoàng phú
Xem chi tiết
pé đạt
Xem chi tiết
pé đạt
18 tháng 12 2021 lúc 7:37

mọi người giúp em giải bài này vs ạ

Bình luận (0)
Nguyễn Lê Phước Thịnh
18 tháng 12 2021 lúc 10:55

#include <bits/stdc++.h>
using namespace std;
double a,b,c,s,p;
int main()
{
    //freopen("DTTAMGIAC.inp","r",stdin);
    //freopen("DTTAMGIAC.out","w",stdout);
    cin>>a>>b>>c;
    p=(a+b+c)/2;
    s=sqrt(p*(p-a)*(p-b)*(p-c));
cout<<fixed<<setprecision(5)<<p*2<<endl;    

cout<<fixed<<setprecision(5)<<s;
    return 0;
}

 

Bình luận (0)
Lê Vũ Khánh Thy
Xem chi tiết
Sách Giáo Khoa
Xem chi tiết
Trần Thiên Quang
1 tháng 10 2018 lúc 10:31

s:real;

a,h:Integer;

c:Integer;

Bình luận (0)
Trangđanghọc
20 tháng 11 2021 lúc 15:24

Các kiểu dữ liệu của các biến cần khai báo :

a) a, h : integer

S : real

Giải thích lý do S không thể là integer : a , h có thể là số nguyên, S=a*h/2 ; a * h chưa chắc là 1 số chẵn nên chia 2 có thể ra số thập phân.

b) c, d : integer ( phần nguyên và phần dư đều là số nguyên )

Bình luận (0)
Trần Tiến
Xem chi tiết
Nguyễn Lê Phước Thịnh
13 tháng 5 2021 lúc 17:02

uses crt;

var a,b,c,p,s:real;

begin

clrscr;

repeat

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

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

write('Nhap c='); readln(c);

until (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a);

p:=(a+b+c)/2;

s:=sqrt(p*(p-a)*(p-b)*(p-c));

writeln(s:4:2);

readln;

end.

Bình luận (0)