VA ROG!!!!!!!! Scrieti un program pascal ce va calcula lungimea si aria cercului,folosind subprogramul proceduri.
Răspunsuri la întrebare
Răspuns de
13
Procedure cerc(r:integer);
var L,S:real;
const pi=3.14;
begin
L:=2*pi*r;
S:=pi*r*r;
write(L,' ',S);
end;
var
r:integer;
begin
read(r);
cerc(r);
end.
var L,S:real;
const pi=3.14;
begin
L:=2*pi*r;
S:=pi*r*r;
write(L,' ',S);
end;
var
r:integer;
begin
read(r);
cerc(r);
end.
Alte întrebări interesante
Matematică,
8 ani în urmă
Limba română,
8 ani în urmă
Matematică,
8 ani în urmă
Fizică,
9 ani în urmă
Matematică,
9 ani în urmă
Matematică,
9 ani în urmă
Matematică,
9 ani în urmă