ONLINE COMPILERS
LIBRARY
MANUAL PAGES & DOCS
CONTACT
Latest Users' Questions
User Submitted Question!
Name: Pheonix
Title:
If we have R1 and R2 are rays of 2 circles, what is the sum of theirs area.(we have to use a subprogram)
Question:
Title:
If we have R1 and R2 are rays of 2 circles, what is the sum of theirs area.(we have to use a subprogram)
Question:
program AriaCercului1;
var R1, R2, A1, A2:real;
Function Suma(S:integer):integer;
begin
var i,n:integer;
Begin
i:=2;
R1:= R1*i;
for A1:=1 to n do
A1:=Pi*R1;
for A2:=1 to n do
R2:=R2*i;
A2:= Pi*R2;
S:= A1 A2;
Suma:=S;
end;
Writeln('S=' , S:0:0);
readln
end.
var R1, R2, A1, A2:real;
Function Suma(S:integer):integer;
begin
var i,n:integer;
Begin
i:=2;
R1:= R1*i;
for A1:=1 to n do
A1:=Pi*R1;
for A2:=1 to n do
R2:=R2*i;
A2:= Pi*R2;
S:= A1 A2;
Suma:=S;
end;
Writeln('S=' , S:0:0);
readln
end.
Answers: