Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Nguyễn Quang Thư
Xem chi tiết
khue tran
Xem chi tiết
Nguyễn Lê Phước Thịnh
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;

}

đỗ nguyễn thành nhân
Xem chi tiết
....
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.

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 ạ

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

 

Lê Vũ Khánh Thy
Xem chi tiết
phạm hoàng phú
Xem chi tiết
Lê Nguyễn Khánh Hà
Xem chi tiết
Kiều Vũ Linh
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.

Kiều Vũ Linh
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.

Kiều Vũ Linh
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.

Nguyễn Thị Bích Huyền
Xem chi tiết
Nguyễn Lê Phước Thịnh
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. 

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.