Лице и обиколка на кръг

8 Responses to Лице и обиколка на кръг

1. Боряна каза:

   30 май, понеделник в 16:18

   program Project1;
   function Lice(r:real):real;
   begin
   Result:=r*r*3.14;
   end;
   function Obikolka(r:real):real;
   begin
   Result:=r*2*3.14;
   end;
   var
     r: real;
   begin
     Write('Vavedete radius na krag:');
     ReadLn(r);
     WriteLn('Liceto na krag s takav radius e ', Lice(r):0:2);
     WriteLn('Dalginata na krag s takav radius e ', Obikolka(r):0:2);
     ReadLn;
   end.  
   

   Влезте, за да отговорите
   • Данаил каза:

     09 юни, четвъртък в 13:42

     Бори, добре е ПИ да се декларира като константа. И да отделиш функциите с по един празен ред.

     Влезте, за да отговорите
2. Alya каза:

   30 май, понеделник в 16:40

   program project1;
   
   function ObikolkaKrag(R:real):real;
   begin
     Result:= 2*R*3.14;
   end;
   function LiceKrag(R:real):real;
   begin
     Result:=3.14*R*R;
   end;
   var
     S,C,R:real;
   begin
     Write('Vavedete radius: ');
     ReadLn(R);
     C:= ObikolkaKrag(R);
     WriteLn('Obikolkata e:',C);
     S:= LiceKrag(R);
     WriteLn('Liceto e:',S);
     Readln;
   end.   
     

   Влезте, за да отговорите
   • Данаил каза:

     09 юни, четвъртък в 13:40

     Браво, Аля, но е добре ПИ да се декларира като константа.

     Влезте, за да отговорите
3. viktoria каза:

   30 май, понеделник в 16:45

   program Krag;
      function LiceKrag(r:real):real;
       var S:real;
       const pi=3.14 ;
      begin
       Result:=pi*r*r ;
      end;
   
     function ObikolkaKrag(r:real):real;
      var P:real;
      const pi=3.14;
     begin
      Result:=2*pi*r;
      end;
   var P,S,r:real;
   begin
     ReadLn(r);
     S:=LiceKrag(r);
     P:=ObikolkaKrag(r);
     WriteLn ('Liceto e: ',S:5:2);
     WriteLn ('Obkolkata e: ',P:5:2);
     ReadLn;
   end. 
   

   Влезте, за да отговорите
4. Виктория каза:

   30 май, понеделник в 16:56

    
   program Project1;
   
   function LiceKrug(r: real):real;
   var
     S: real;
     const pi=3.14;
   begin
     Result:= pi*r*r;
   end;
   
   function ObikolkaKrug(r: real): real;
   var
     P: real;
     const pi=3.14;
   begin
     Result:= 2*pi*r;
   end;
   
   var
     S, P, r: real;
   begin
     Write('Vavedete r: ');
     ReadLn(r);
     P:=ObikolkaKrug(r);
     S:=LiceKrug(r);
     WriteLn('Liceto e: ',S :5:2);
     WriteLn('Obikolkata e: ',P :5:2);
     ReadLn;
   end. 
   

   Влезте, за да отговорите
5. Lubomira каза:

   30 май, понеделник в 16:57

   program krug;
   
   function liceKrug(r:real):real;
   begin
   Result := pi*r*r ;
   end;
   
   function ObikolkaKrug(r:real):real ;
   begin
   Result:= 2*pi*r   ;
   end ;
   
   const
     pi=3.14  ;
   
   var
     P,S,r :real ;
   
   begin
   WriteLn('Vuvedete radius:') ;
   ReadLn(r) ;
   S:= LiceKrug(r) ;
   P:= ObikolkaKrug(r) ;
   WriteLn ('Liceto e : ',S:5:2) ;
   WriteLn ('Obikolkata e : ' ,P :5:2);
   ReadLn ;
   end.
   
                                                  

   Влезте, за да отговорите
6. Tsvetelin каза:

   30 май, понеделник в 17:01

   program Project1;
   
   var S,R,P:Real;
   
   function ObikolkaKrug(R:Real):Real;
     const pi=3.14;
   begin
     Result:=2*pi*R;
   end;
   
   function LiceKrug(R:Real):Real;
     const pi=3.14;
   begin
     Result:=pi*R*R;
   end;
   
   begin
   Write('Enter R:');
   ReadLn(R);
   P:=ObikolkaKrug(R);
   S:=LiceKrug(R);
   WriteLn('P=',P:6:1);
   WriteLn('S=',S:6:1);
   ReadLn;
   end.
   

   Влезте, за да отговорите