Obs: Ele começa na linha 16! Isso porque tem uma nota da GPL sobre ele.
program bhaskara;
var
{!--Definindo variáveis}
op:integer;
a,b,c,sum,prod,delta,x1,x2:real;
begin
{!--Opções das 3 operações}
writeln ('Escolha umas das operações:');
writeln ('');
writeln ('1.Bhaskara');
writeln ('2.Produto');
writeln ('3.Soma');
writeln ('4.Sair');
writeln ('');
write ('Digite o número da sua opção:');
readln (op);
repeat
case op of
{!--Se for Bhaskara}
1: writeln('Dê-me 3 números...');
write('a:');
readln (a);
write ('b:');
readln (b);
write ('c:');
readln (c);
delta:= (b*b)-(4*(a*c));
{!--Testando delta}
if (delta<0) then
begin
writeln('Delta não existe no universo real.Não posso efetuar o cálculo.')
else
writeln ('O resultado de delta é: ',delta);
{!--Começando Bhaskara Positivo}
writeln('Efetuando Bhaskara Positivo...');
x1:=((-1*b)+sqrt(delta))/2*a;
{!--Começando Bhaskara Negativo}
writeln('Efetuando Bhaskara Negativo...');
x2:=((-1*b)-sqrt(delta))/2*a;
{!--Dando resultado}
writeln ('X positivo é: ',x1);
writeln ('X Negativo é: ',x2);
writeln ('Fim do programa');
end;
{!--Se for Produto}
2: writeln('Dê-me dois números:');
write('a:');
readln (a);
write ('c:');
readln (c);
prod:=c/a;
writeln('O produto entre C e A é: ',prod);
{!--Se for soma}
3: writeln('Dê-me dois números:');
write('a:');
readln (a);
write ('b:');
readln (b);
sum:=(-1*b)/a;
writeln ('O produto entre -B e A é:',sum);
{!--Se num for nenhuma das opções}
else writeln ('Essa opção não existe!');
end;
until op=4;
end.Até ai tudo bem. O código parece bem legivel e limpo pra mim... dai quando eu coloco o Free Pascal pra compilar vejam o que aparece:
Free Pascal Compiler version 2.0.0 [2005/08/17] for i386
Copyright (c) 1993-2005 by Florian Klaempfl
Target OS: Linux for i386
Compiling bhaskara.pp
bhaskara.pp(36,13) Error: Constant and CASE types do not match
bhaskara.pp(36,13) Error: Constant Expression expected
bhaskara.pp(36,13) Fatal: Syntax error, ":" expected but ";" found
bhaskara.pp(36,13) Error: Compilation aborted
Error: /usr/bin/ppc386 returned an error exitcode (normal if you did not specifiy a source file to be compiled)
[vinicius@fedora Bhaskara]$
O que ele tá querendo dizer pra mim? Na linha 36 tem uma variavel e não uma constante, é a leitura da variavel 'a'. E por que o Free Pascal tá esperando dois pontos ao invés do ponto e vírgula?
Valeu.
... Vinicius Menezes ...
. Valeu galera"
. E quanto as units? Como que eu posso fazê-las e anexa-las nos programas?
, eu torro no meu quarto :/.