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[i],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[i]; 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[i])); end;end;procedure TForm1.Button1Click(Sender: TObject);begin close;end;end.

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.