Cоставление алгоритма программы

[leonid_spartak]

Помогите пожалуйста составить программу в Си или Паскале, не могу разобраться с чего начать:
Составить алгоритм и написать код программы, вычисляющей длину линии вертикального разреза фигуры y_razrez, значения площадей фигуры слева и справа от линии разреза s_left, s_right, по значениям аргумента x, введенным с консоли:
1.JPG

[ura_111]

http://www.programmersforum.ru/showt...E8%E3%F3%F0%FB

http://www.programmersforum.ru/showt...E8%E3%F3%F0%FB
http://www.programmersforum.ru/showt...E8%E3%F3%F0%FB
http://www.programmersforum.ru/showt...E8%E3%F3%F0%FB

[newerow1989]

function f(x:real):real;
begin
   Result:=0;
   If (x>0) and (x<=1) then
      Result:=1-Sqrt(1-x*x);
   If (x>1) and (x<=2) then
      Result:=Sqrt(1-(x-1)*(x-1));
   Result:=2*Result;
end;

const dx=0.01;
var x,xx,y_razrez,s_left,s_right:real;
begin
   Write('x = '); Readln(x);
   y_razrez:=f(x);
   Writeln('y_razrez = ',y_razrez:5:5);
   s_left:=0;
   xx:=-dx;
   Repeat
      xx:=xx+dx;
      s_left:=s_left+f(xx)*dx;
   Until xx>=x;
   Writeln('s_left = ',s_left:5:5);
   s_right:=0;
   Repeat
      xx:=xx+dx;
      s_right:=s_right+f(xx)*dx;
   Until xx>=2;
   Writeln('s_right = ',s_right:5:5);
   Readln;
end.

[leonid_spartak]

Да, в PASCAL устроит, а есть у вас данный код на Си, мне оказывается и на Си тоже нужно?