Những câu hỏi liên quan
NT
Xem chi tiết
KT
Xem chi tiết
NT
21 tháng 10 2021 lúc 23:37

#include <bits/stdc++.h>

using namespace std;

double x,y,z;

int main()

{

cin>>x>>y>>z;

cout<<"Dien tich la:"<<fixed<<setprecision(2)<<(x+y)/2*z;

return 0;

}

Bình luận (0)
DN
Xem chi tiết
H24
22 tháng 10 2021 lúc 14:52

Program Munn;

Uses crt;

Var h,m,n,C:real;

Begin

Write ('Nhap canh 1');

Readln (h);

Write ('Nhap canh 2');

Readln (m);

Write ('Nhap canh 3');

Readln (n);

C:=h+m+n;

Writeln ('Chu vi hinh tam giac do la',C);

Readln;

End.

Bình luận (0)
PD
Xem chi tiết
PD
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)
NT
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)
LT
Xem chi tiết
PP
Xem chi tiết
LH
Xem chi tiết
KL
5 tháng 5 2023 lúc 7:03

Tổng n số tự nhiên đầu tiên:

Var i,n,s:integer;

Begin

Write('n = ');

for i:=1 to n do

s:=s+i;

Write('Tong la ',s);

Readln

End.

Bình luận (0)
KL
5 tháng 5 2023 lúc 7:05

Tích các số từ 5 đến 30

Var i,p:longint;

Begin

p:=1;

For i:=5 to 30 do

P:=p*i;

Write('Tich la ',p);

Readln

End.

Bình luận (0)
KL
5 tháng 5 2023 lúc 7:57

Chu vi, diện tích hình chữ nhật:

var a,b,p,s:real;

begin

write('Chieu dai hcn = ');readln(a);

write('Chieu rong hcn = ');readln(b);

p:=(a+b)*2;

s:=a*b;

writeln('Chu vi hcn la ',p:10:2);

write('Dien tich hcn la ',s:10:2);

readln

end.

------------------------------------------------------------

Chu vi, diện tích hình tròn:

var r,c,s:real;

begin

write('Ban kinh = ');readln(r);

c:=2*3.14*r;

s:=3.14*r*r;

writeln('Chu vi hinh tron la ',c:10:2);

write('Dien tich hinh tron la ',s:10:2);

readln

end.

---------------------------------------------------

Chu vi, diện tích hình thang:

var dl,dn,cb1,cb2,h,p,s:real;

begin

write('Day lon = ');readln(dl);

write('Day be = ');readln(db);

write('Chieu cao = ');readln(h);

write('Canh ben thu nhat = ');readln(cb1);

write('Canh ben thu hai = ');readln(cb2);

p:=dl+db+cb1+cb2;

s:=(dl+db)*h/2;

writeln('Chu vi hinh thang la ',p:10:2);

write('Dien tich hinh thang la ',s:10:2);

readln

end.

Bình luận (0)
NH
Xem chi tiết
NT
20 tháng 12 2020 lúc 10:42

Câu 1:

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);

if (a+b>c) and (a+c>b) and (b+c>a) then 

   begin

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

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

writeln('Dien tich tam giac la: ',s:4:2);

end

else writeln('Day khong la ba canh trong mot tam giac');

readln;

end.

Câu 2: 

uses crt;

var a:array[1..100]of integer;

i,n,t,max,min:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln('Tong cac phan tu trong day la: ',t);

max:=a[1];

min:=a[1];

for i:=1 to n do 

  begin

     if max<a[i] then max:=a[i];

if min>a[i] then min:=a[i];

end;

writeln('Gia tri lon nhat la: ',max);

writeln('Gia tri nho nhat la: ',min);

readln;

end. 

Bình luận (1)
TT
Xem chi tiết
NT
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)