Linguagem DELPHI para C

[Ulysses Bebem]

Galera, preciso de uma ajuda, fiz uma programação em Delphi e to apanhando pra passar ela pra C.

è um trabalho de facul, professor não vai acc em Delphi.

quem puder me ajudar ae fico grato.. segue o code:

OBS: Essas variaveis vão ser puxado do restante do programa ... é um programa para dimensionar vigas.... fiquei com a parte de escalonamento das matrizes.. 

 

var

  Form1: TForm1;

  k,w : LongWord;

  i,j,m,n,np:Integer;

  x,y,p,ma,s:Real;

  x1,y1,F,u: array of real;

  kg: array of array of real;

implementation

 

{$R *.dfm}

 

procedure TForm1.Button2Click(Sender: TObject);

begin

  np:=spn.Value;

  Setlength(kg,np+3,np+3);

  Setlength(F,np+3);

  Setlength(u,np+3);

  //solicitação dos pontos

  for i:=1 to np do

  begin

    for j:=1 to np do

    begin

      Val(InputBox('Coeficiêntes:'+Floattostr(i)+','+Floattostr(j),'',''),kg[i,j],k);

    end;

  end;

  for i:=1 to np do

    Val(InputBox('vetor B:'+Floattostr(i),'',''),f,k);

  begin

  end;

  //resolução do sistema linear [k].[x]=[f]

  for i:=1 to np-1 do

  begin

    if kg[i,i]=0 then begin showMessage ('Matriz inconsistente');exit;end;

    for j:=(i+1) to np do

    begin

      if Kg[j,i]<>0 then

      begin

        ma:=kg[j,i]/kg[i,i];

        for w:=i to np do kg[j,w]:=kg[j,w]-ma*kg[i,w];

        F[j]:=F[j]-ma*F;

      end;

    end;

  end;

  if kg[np,np]=0 then begin showMessage ('Matriz inconcistente');exit;end;

  u[np]:=F[np]/kg[np,np];

  for i:=2 to np do

  begin

    s:=0;

    for j:=1 to i-1 do s:=s+kg[np-i+1,np-j+1]*u[np-j+1];

    if kg[np-i+1,np-i+1]=0 then begin showMessage('Matriz inconcistente');exit;end;

    u[np-i+1]:=(F[np-i+1]-s)/kg[np-i+1,np-i+1];

  end;

  //Geração da solução na tela

  for i:=1 to np do

  begin

    ShowMessage('x'+Floattostr(i)+'='+Floattostr(u));

  end;

end;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

  close;

end;

 

end.