Перевод программки из Паскаля в C

[Tashka]

Ребятки! Кто может помочь с переводом программы из Паскаля на Си??

[vvviperrr]

Ну смотря что переводить) мона было и код сразу кинуть

[AngelOfDeath]

Вообще нужен ваш код...

[Tashka]

Программа:


program one;
uses CRT;
type K_Ch= Object
R_S, s, step: integer;
procedure vvod(Re1, Re2, Im1, Im2: integer);
procedure vivod(Re, Im: integer);
function slozhenie(x1, x2: integer): integer;
function stepen(St, Re1: integer): integer;
end;

procedure K_Ch.vvod;
begin
writeln('Re pervogo chisla: ');
readln(Re1);
writeln('Im pervogo chisla: ');
readln(Im1);
writeln('Re vtorogo chisla: ');
readln(Re2);
writeln('Im vtorogo chisla: ');
readln(Im2);
end;

procedure K_Ch.vivod;
begin
writeln('summa dvux chisel: ');
writeln('Re: ',Re,'Im: ',Im);
end;

function K_Ch.slozhenie(Re1, Re2, x1, x2: integer): integer;
begin
x1:= Re1+Re2;
x2:= Im1+Im2;
Im:= x2;
Re:= x1;
end;

function K_Ch.stepen(st, Re1: integer): unteger;
var i, R_S: integer;
begin
writeln('vvedite stepen: ');
readln(st);
i:= 0;
while i<=st do
begin
R_S:= Re1*i;
i:= i+1;
end;
writeln(R_S);
end;

begin
var Chislo.K_Ch;
with Chislo do begin
prosedure vvod(Re1, Re2, Im1, Im2);
s:=slozhenie(Re, Im);
step:= stepen(R_S);
procedure vivod(Re, Im);
end;
end.

[Tashka]

Только там надо переделывать функцию возведения в степень (на Си уже)комплексного числа(а не только одну его часть), что я не знаю как сделать(((