K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

1:

function dt(r:real):real;

begin

dt:=sqr(r)*pi;

end;

2:

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

begin

dt:=1/2*a*b;

end;

uses crt;

var a,b,c,p,s,am,bn,cp:real;

begin

clrscr;

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

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

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

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

begin

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

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

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

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

am:=sqrt(2*(sqr(b)+sqr(c))-sqr(a))/4;

bn:=sqrt(2*(sqr(a)+sqr(c))-sqr(b))/4;

cp:=sqrt(2*(sqr(a)+sqr(b))-sqr(c))/4;

writeln('Do dai duong trung tuyen ung voi canh a la: ',am:4:2);

writeln('Do dai duong trung tuyen ung voi canh b la: ',bn:4:2);

writeln('Do dai duong trung tuyen ung voi canh c la: ',cp:4:2);

end

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

readln;

end.

10 tháng 5 2023

Program HOC24;

var t: longint;

a,b: integer;

function gt(x: integer): longint;

var i: integer; tich: longint;

begin

tich:=1;

for i:=1 to n tich:=tich*i;

gt:=tich;

end;

begin

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

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

t:=gt(a)+gt(b)+gt(a-b);

write('T = ',t);

readln

end.

10 tháng 5 2023

Program HOC24;

var i,n: integer;

t: longint;

a: array[1..300] of integer;

begin

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 if a[i] mod 2<>0 then t:=t+a[i];

write('Ket qua la: ',t);

readln

end.

19 tháng 5 2021

<bits/stdc++.h>
using namespace std;
int DTT(int a, int b, int c)

   int m = sqrt(2*b*b+2*c*c-a*a)/2;
    return m;

int main()
int a, b, c, m;
    cout << "Nhap ba canh tam giac" << endl;
    cin >> a >> b >> c;
    m = DTT(a,b,c);
    cout << m;
    return 0;

end.
 

uses crt;

var a,b,c:real;

{-----------------chuong-trinh-con--------------------}

function ttuyen(x,y,z:real):integer;

begin

ttuyen:=(2*(sqr(ab)+sqr(ac))-sqr(bc));

end;

{---------------chuong-trinh-chinh-----------------------}

begin

clrscr;

repeat

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

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

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

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

writeln(sqrt(ttuyen(a,b,c))/4:4:2);

readln;

end.

12 tháng 12 2020

Program hoc24;

Uses crt;

Var r,S,C:real;

Begin

Write ('Ban kinh la');

Readln (r);

S:=r*r*3.14;

C:=r*2*3.14;

Writeln ('Chu vi la',C);

Writeln ('Dien tich la',S);

Readln;

End.

12 tháng 12 2020

sau var có cần có dòng này : Const pi=3.14; không ạ ?

 

19 tháng 10 2021

Câu 2: 

#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<<"Chu vi la:"<<fixed<<setprecision(2)<<cv<<endl;

cout<<"Dien tich la:"<<fixed<<setprecision(2)<<dt;

return 0;

}

1 tháng 1 2022

Chương trình chuvihinhtron_dientichhinhtron;

Sử dụng crt;

Trong đó R: số nguyên;

        S, C: thực;

Chòm sao Pi = 3,14;

Bắt đầu

   nhân viên văn thư;

Writeln ('R ='); Readln (R);

C: = Pi * 2 * R;

S: = Pi * R * R;

Writeln(‘Chu vi la C= ‘,C);

Writeln(‘Dien tich la S= ‘,S);

Readln

Chấm dứt.

#include <bits/stdc++.h>

using namespace std;

double r,cv,dt;

int main()

{

cin>>r;

cv=r*2*pi;

dt=r*r*pi;

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

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

return 0;

}

1:

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

cin>>a>>b;

cout<<a+b;

return 0;

}

2:

#include <bits/stdc++.h>

using namespace std;

double s,r;

int main()

{

cin>>r;

s=r*r*pi;

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

return 0;

}