Um script simples que calcula expressões matemáticas inteiras, como 5 + 5 ou 10 * 3 ou 2*(3+10/5). Mostra como este tipo de coisa é mais simples em Peerl que em C ou outras linguagens. O script todo tem 5 linhas.

Ex.:

5 + 3 *(25/5)
20
tan deg2rad 45
1
sin 90
0.893996663600558
sin 0
0
cos 45
0.52532198881773
sin 45
0.850903524534118
2**2
4
5 + 3**3
32

Funções:

sin cos e tan, que recebem dados em radianos. Para converter graus em radianos use deg2rad como nos exemplos.

Para sair digite: ctrl + c

• Download calc.pl
• Enviar nova versão

Esconder código-fonte

use Math::Trig;
while(my $expr = <STDIN>){
chomp($expr);
my $result = eval $expr;
print $result, "\n";}'

Login AUDIT

Algoritmo de Euclides estendido em Perl

fonte.pl

Relatórios do Sarg por grupo

Tirando screenshots facilmente !

Nenhum comentário foi encontrado.