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.

24 tháng 10 2019

quá dễ

uses crt;

var r:integer;

cv,dt:real;

begin

clrscr;

repeat

write('nhap ban kinh:'); readln(r);

if r<0 then writeln('nhap lai');

until r>0;

cv:=2*r*pi;

writeln('chu vi hinh tron la: ',cv:4:2);

dt:=sqr(r)*pi;

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

readln;

end.

23 tháng 10 2019

Program HINHTRON;
Uses Crt;
Var r,dt,cv:real;
Const pi=3.14;
Begin

Clrscr;
Writeln('TINH DIEN TICH HINH TRON:');

Write ('Nhap ban kinh R=');readln(r);
dt:=pi*r*r;

Writeln('Dien tich hinh tron la:',dt:6:2);

Readln;

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;

18 tháng 12 2021

Bài 5: 

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

cin>>a>>b;

cout<<(a+b)*2;

return 0;

}

18 tháng 12 2021

Cảm ơn bạn rất nhiều😊

23 tháng 11 2021

Tham khảo!

Program tich_chu_vi_dien_tich_hinh_tron;
uses crt; //Khai bao thu vien
var r,dien_tich,chu_vi:real; //Khai bao bien
begin
clrscr;
//Input:
   write(‘Nhap ban kinh: ‘);readln(r);
//Output:
   chu_vi:=r*2*pi;
   dien_tich:=r*r*pi;
   writeln(‘Chu vi: ‘,chu_vi:0:5);
   writeln(‘Dien tich: ‘,dien_tich:0:5);
readln
end.

26 tháng 9 2021

a) Input: Bán kính r

Output: Diện tích S, Thể tích V

b) Thuật toán

- Nhập r từ bàn phím

- Diện tích bề mặt hình cầu tính theo : 4.π.r24.π.r2 ( Tức là gán biến diện tích với công thức bên)

- Thể tích hình cầu tính theo 43π.r343π.r3   (Tức là gán biến thể tích với công thức bên)

c) Khai báo tất cả biến tham gia với kiểu biến là Real

Vì diện tích và thể tích đều có thể có giá trị là số thập phân

Khai báo:

const pi = 3.14;

r,S,V: real;

10 tháng 8 2023

#include <iostream>

#include <iomanip>

int main() {

     int r;

     std::cin >> r;

     double pi = 3.14;

     double perimeter = 2 * pi * r;

     double area = pi * r * r;

     std::cout << std::fixed << std::setprecision(2);

     std::cout << "p= " << perimeter << std::endl;

     std::cout << "s= " << area << std::endl;

     return 0;

}

29 tháng 8 2023

#include <iostream>
#include <iomanip>
using namespace std;

int main() {
    int r;
    const float Pi = 3.14;

    cout << "Nhap ban kinh hinh tron: ";
    cin >> r;

    float chu_vi = 2 * Pi * r;
    float dien_tich = Pi * r * r;

    cout << fixed << setprecision(2);
    cout << "p= " << chu_vi << endl;
    cout << "s= " << dien_tich << endl;

    return 0;
}

20 tháng 12 2020

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. 

20 tháng 12 2020

nếu câu b bài 2 được tách riêng thành 1 câu riêng biệt...thì thay thế bắt đầu từ đâu ạ

 

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.