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.
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;
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;
}
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.
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,cv,s:longint;
begin
clrscr;
write('a=');readln(a);
write('b=');readln(b);
cv:=(a+b)*2;
s:=a*b;
writeln('chu vi cua hinh chu nhat do la:',cv);
write('dien tich cua hinh chu nhat do la:',s);
readln;
end.
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.
Tham khảo
program hcn;
uses crt;
var d,r,dt:longint;
cv:real;
begin
write('nhap chieu dai va chieu rong cua hcn:');
readln(d,r);
cv:=(d+r)*2;
dt:=d*r;
writeln(' chu vi hcn do la:',cv);
writeln(' dien tich hcn do la:',dt);
readln
end.
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;