паскальда есеп

Question

радиустары әртүрлі 5 шеңбердің аудандарының қосындысын табу программасын құру (repeat,...Untie циңіздкл) осы есепті шығаруға көмектессеңіздер. shenber aud S=ПR kvad.

Answer 1

маған сол шеңбердің ауданының формуласы қандай екенін жаза аласың ба?

Comments

S = Pi * r²

Pi = 3,14
r = радиус

Абылай 21.11.2011 пікір

Answer 2

мен дұрыс түсінген болсам, сізге әртүрлі 5 шеңбердің ауданын табу керек. циклмен жұмыс жасау керек болса
var r:integer;
a,s:real;
begin
 * for циклымен  
for i:=1 to 5 do
begin
read(r); //
a:=3.14*r*r;
s:=s+a;
end;
write(s:0:0);
end.
 * while циклымен *
k:=0;
while k<=5 do begin
read(r);
inc(k);
a:=3.14*r*r;
s:=s+a;
end;
write(s:0:0);


 сұрақтарыңыз болса: [email protected]
(happy)