Calculadora de décimo terceiro no Lazarus

removido

Siga essas instruções e você terá uma calculadora de décimo terceiro no Lazarus. Componentes necessários: Edit1=numero1 Edit2=numero2 Edit3=resultado Button1=Calcular Button2=Apagar Button3=Sair

Por: Perfil removido

Crivo de Eratóstenes Simples em Pascal

removido

Esta implementação do Crivo de Erastótenes possui diretivas de pré-compilação que permitem que o código seja compilado por fpc (Free Pascal) ou gpc (GNU Pascal). Na prática é igual a um IF ... THEN ... sem usar BEGIN ... END e usando ENDIF. Sendo também que esta etapa ocorre como uma filtragem de código, antes deste ser compilado. No caso os compiladores consideram na compilação o código dentro de {$ifdef X} ... {$endif} somente se houver uma identificação de um símbolo (aqui chamado de X) no contexto Já {$ifndef X} ... {$endif} faz o contrário: compila se a definição do símbolo não for encontrada. A pré-definição "FPC" indica uso do compilador Free Pascal. A pré-definição __GPC_RELEASE__ indica uso do compilador GNU PASCAL. O código demarcado, portanto, só será usado conforme estes símbolos aparecerem {ifdef ...} ou não {ifndef ...}, isto é, conforme os compiladores utilizados. O nome dos tipos de dados numéricos para valores grandes é diferente nos dois compiladores e foi utilizada uma predefinição na área TYPE do código. Dentro desta área o código é selecionado em tempo de compilação conforme a diretiva. Mais abaixo também está outro par de compilações condicionais. A procedure Inc (...) parece não funcionar com valores não-ordinais ou inteiros no Free Pascal, portanto foi escolhido o incremento na forma-padrão como opção. Acredito que o uso de Inc (...) funcione do mesmo modo que a variável com "duplo mais" (V++) ou "mais igual" (V+=2) funcionam otimizados em C.

Por: Perfil removido

Matriz simétrica

leonardo_cdan

Este programa analisa a matriz que foi digitada e diz se ela é simétrica ou triangular inferior.

Por: Leonardo

Método de eliminação de Gauss com pivotamento parcial

danielms

Esse script executa o método de eliminação de Gauss com pivotamento parcial e dá o vetor solução X de um sistema linear da forma AX=b. O código está comentado passo a passo para ficar bem claro o que foi feito em cada passagem.

Por: Daniel Moreira dos Santos

cadastro de multiplos clientes com registro

wtet

neste o objetivo é criar um registro pra armazenar os dados cadastrais de cinco cliente e no final mostrar todos os dados armazenados

Por: NewLinuxer