Scripts de Pascal/Kylix

Scripts sugeridos

escreve os números de 1 a 9 com repeat - until

wtet

programa de exemplo feito pra escrever os números de 1 a nove com o repeat - until

Por: NewLinuxer

Horas por extenso: convertendo as horas em um TDateTime para texto corrido.

rfarias

1) Função auxiliar DecimalExtenso: ela está projetada para trabalhar com números entre 0 e 99, podendo ser ampliada para reaproveitamento em outras aplicações (extenso de valores). O parâmetro Masculino foi introduzido para tratar questões de gênero (masc/fem), que ocorre quando se fala em horas (fem), mas não em minutos (masc). Com o intuito de otimizar recursos, um type cast deste parâmetro para o tipo Byte é utilizado. Com isto, se este parâmetro for True teremos como resultado 1 e se for False, teremos zero. Ao multiplicarmos este "resultado" por 2 (cnUnidadeGenero[Unidade +(Byte(Masculino)*2)]), estaremos indexando corretamente o vetor cnUnidadeGenero. 2) Função HoraPorExtenso: optou-se pelo parâmetro no formado TDateTime de modo a facilitar a processamento da função, bem como pela obrigação da validação do campo sendo passado no momento de sua chamada. Deste modo não há risco de excessões. Como numa variável TDateTime/TTime (equivalente ao float) o valor das horas encontra-se na parte fracionária, multiplicando esta parte por 24 obtemos as horas. Com este processo, a "nova" parte fracionária corresponde aos minutos dentro daquela hora. Assim, multiplicando por 60, teremos o valor dos minutos.

Por: rafael farias novaes

intercalar dois arrays (vetores)

wtet

Programa feito para ler dois vetores o mostrar na tela a intercalação dos dois, ou seja, item 1 do primeiro, item 1 do segundo, item 2 do primeiro....

Por: NewLinuxer

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