Ir ao conteúdo
  • Comunicados

    • Gabriel Torres

      Seja um moderador do Clube do Hardware!   12-02-2016

      Prezados membros do Clube do Hardware, Está aberto o processo de seleção de novos moderadores para diversos setores ou áreas do Clube do Hardware. Os requisitos são:   Pelo menos 500 posts e um ano de cadastro; Boa frequência de participação; Ser respeitoso, cordial e educado com os demais membros; Ter bom nível de português; Ter razoável conhecimento da área em que pretende atuar; Saber trabalhar em equipe (com os moderadores, coordenadores e administradores).   Os interessados deverão enviar uma mensagem privada para o usuário @Equipe Clube do Hardware com o título "Candidato a moderador". A mensagem deverá conter respostas às perguntas abaixo:   Qual o seu nome completo? Qual sua data de nascimento? Qual sua formação/profissão? Já atuou como moderador em algo outro fórum, se sim, qual? De forma sucinta, explique o porquê de querer ser moderador do fórum e conte-nos um pouco sobre você.   OBS: Não se trata de função remunerada. Todos que fazem parte do staff são voluntários.
    • DiF

      Poste seus códigos corretamente!   21-05-2016

      Prezados membros do Fórum do Clube do Hardware, O Fórum oferece um recurso chamado CODE, onde o ícone no painel do editor é  <>     O uso deste recurso é  imprescindível para uma melhor leitura, manter a organização, diferenciar de texto comum e principalmente evitar que os compiladores e IDEs acusem erro ao colar um código copiado daqui. Portanto convido-lhes para ler as instruções de como usar este recurso CODE neste tópico:  
Ulysses Bebem

DELPHI para C

Recommended Posts


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.
Editado por Simon Viegas
Inserir tag CODE no código (botão <>). Abraços

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário






Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×