[Pascal] Calculadora

[knife]

Deixo aqui o codigo de uma calculadora em pascal com as operações padrao (+,-,/ e x) feito por mim. Espero que ajude alguem que se esta a iniciar em programaçao..

Code Select Expand

program calculadora;

uses crt;

var

 v1,v2:Integer;

 Operacao:char;

 total:real;



begin

clrscr;

writeln(\\'Qual o primeiro valor?\\');

readln(v1);

writeln(\\'Qual o segundo valor?\\');

readln(v2);

writeln(\\'Qual ââ,¬Å¡ a operação (+,-,/ ou x)\\');

readln(Operacao);



case Operacao of

 \\'+\\':total:=v1+v2;

 \\'-\\':total:=v1-v2;

 \\'*\\':total:=v1*v2;

 \\'/\\':total:=v1/v2;

else write(\\'A operação escolhida nao ââ,¬Å¡ valida\\')

end;

write(\\'O valor total ââ,¬Å¡ \\',total:2:2);

readln;

end.

[trmanco]

LOL, não é difícil mas sempre é útil...

[knife]

Sao cenas basicas do uso de variaveis..

[midnight]

isso so da para 2 valores.. devias ter feito um ciclo para o utilizador introduzir quantos valores queria calcular

mas isso ja deve ser um bocado avançado.. para quem se ta a iniciar esse codigo esta bom

[knife]

midnight, basta acrescentares mais variaveis e instrucções de leitura das mesmas..  :wink:

[MelroPower]

yap....variaveis....

Isso é basico...alias pascal é basico...