Função Fatorial Recursiva em Fortran 95

removido

A velha função fatorial, recursiva, em Fortran versão 95. Para compilar, use: "gfortran fatorial001.f95 -o fatorial001", igual GNU Pascal e GCC Durante a execução (após compilado), o programa pede um número de um intervalo pré-definido de 0 a J. Insistentemente, há um loop indefinido para isto. "J" deve ser no máximo até 20, já que o número definido por 21! (fatorial de 21) excede 2^63. O que há de diferente no código são as particularidades desta linguagem: - Blocos com início e fim definidos por palavras, lembrando Pascal; - Cláusula "Program" semelhante a Pascal; - Comentários vêm após um ponto de exclamação; - Operadores lógicos definidos por palavras entre pontos (.OP.). Provavelmente foi daí que veio .AND., .T. .F. do Dbase, Clipper etc.; - Máscaras de formatação com strings, algo mais complexas que C para formatação de entrada/saída de dados. Podem ser feitas com um comando chamado "FORMAT". De novo uma referência ao "PICTURE" do Clipper; - Necessidade de uma estranha expressão (Advance='no') para evitar avanço de linha; - Dimensionamento do tamanho do tipo de dados (KIND=8). Esta cláusula aumenta o inteiro para 64 bits. 8 é o valor máximo; - Cláusula "PARAMETER" para declarar constantes; - Funções e subrotinas devem estar num bloco determinado em uma áres definida pela cláusula "CONTAINS"; - Não foi usado algo como "RETURN" ao final, mas uma variável especificada para retorno do valor; - Variáveis de sequências de caracteres são definidas por uma coisa que "lembra" uma multiplicação de um tipo (Character) por um valor (Character*5). - Não existe operador para resto de divisão (módulo, sinal de porcentagem "%" em C), sendo necessário o uso de uma função já implementada na linguagem (não aparece neste código). A sintaxe de Fortran é ricamente cheia de recursos tanto quanto C. Infelizmente não tão lacônica e taquigráfica quanto. Seu código compilado com gfortran gerou um executável pequeno, mesmo sem usar "strip -s". É tão verborrágica quanto Pascal e até mais, lembrando também Clipper e COBOL.

Por: Perfil removido

Octave - Sistemas lineares por Jacobi

danielms

O método de Jacobi trata-se dum algoritmo para determinar a solução de um sistema de equações lineares com os maiores valores absolutos em cada linha e coluna dominados pelo elemento da sua diagonal. Trata-se duma versão simplificada do algoritmo de valores próprios de Jacobi.

Por: Daniel Moreira dos Santos

PJEOffice - Baixa automaticamente última versão do CNJ (Conselho Nacional de Justi&cce

mamp

Repositorio Nacional do Conselho de Justiça criou uma nova versao PjeOffice para Processo eletronico PJE. Link oficial do repositório dá muitas instrucões compiladas na internet sem muita efetvidade. Mas este script é funcional, simples e testado. Para rodar script com código abaixo. Detalhe importante: para evocar, o administrador não foi cuidadoso com nomes dos arquivos e mudou ... vou fazer artigo para simplificar uso do PjeOffice, mas para chamar Pje precisa fazer o seguinte: no Diretório que vc rodou script cd pje-office e digite ./pjeOffice.sh Sim o administrador do CNJ mudou letrinhas maiúsculas do diretório e do programa intencionalmente, mas funcina.

Por: Marcos Moraes

Exportar endereços do Evolution para vCard

feraf

O Evolution armazena os seus endereços em um arquivo de banco de dados Berkeley DB. Este script demonstra como é possível ler este tipo de arquivo com o Ruby para exportar os endereços para vCard. Permite exportar os endereços para vCard, que pode ser importado por uma grande variedade de programas. Procedimento alternativo para quando o Evolution não estiver disponível. Requer a biblioteca "libdb-ruby1.8" (Ubuntu) ou similar, que pode ser obtida em: http://moulon.inra.fr/ruby/bdb.html

Por: Felipe Rafailov

Octave - Calcular raiz pelo método Regula-Falsi

danielms

O método de regula falsi (regra falsa) ou falsa posição é um método iterativo de resolução numérica de equações não lineales. O método combina o método de bisseção e o método da secante.

Por: Daniel Moreira dos Santos