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.
Kiểu dữ liệu phù hợp nhất cho S là longint. Bởi vì diện tích là 60000 thì longint hoặc int64 đều có thể chứa được, nhưng int64 thì rất tốn bộ nhớ nên chọn longint
#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;
}
#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;
}
uses crt;
const fi='dulieu.txt';
var f1:text;
a:array[1..100]of real;
t:real;
i,n:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
readln(f1,n);
for i:=1 to n do readln(f1,a[i]);
t:=0;
for i:=1 to n do t:=t+a[i];
writeln(t);
close(f1);
readln;
end.
uses crt;
var a:array[1..20]of integer;
i,n,t,dem:integer;
begin
clrscr;
for i:=1 to 20 do
begin
repeat
write('A[',i,']='); readln(a[i]);
until a[i]>0;
end;
t:=0;
for i:=1 to 20 do
t:=t+a[i];
writeln('Tong cac so trong mang la: ',t);
dem:=0;
for i:=1 to 20 do
if a[i] mod 2=0 then inc(dem);
writeln('Trong mang co ',dem,' so chan');
readln;
end.
Code c:
#include <stdio.h>
#include <conio.h>
#include <math.h>
#define PI 3.14159
int main() {
int r;
float chuvi, dientich;
printf("Nhap ban kinh r:");
scanf("%d", &r);
chuvi = 2*PI*r;
dientich = PI*r*r;
printf("Chu vi hinh tron la: %f\n", chuvi);
printf("Dien tich hinh tron la: %f", dientich);
getch();
BN THAM KHẢO:
Program S_Hinh_Tron;
Uses Crt;
Var r,S:real;
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;
End.
Program HOC24;
const fi='cau2.inp';
fo='cau2.out';
var dt,a,b,c: integer;
procedure ip;
begin
assign(f,fi);
reset(f);
Câu C