Calculadora em Pascal

[Mário01]

Pretendo fazer uma calculadora no pascal que possa:

1- Executar operações até que o utilizador interrompa o programa
2- Sejam realizadas operações diversas entre vários valores, não apenas 2
3- Uma opção especial para o cálculo da média aritmética simples de um número variado de valores.

Previamente já consegui realizar uma calculadora que apenas fizesse as 4 operações com 2 valores, como se vê em baixo.

Gostava que me pudessem ajudar com este problema

Este é o programa :

 

program calculadora;

uses crt;

var n1, n2: integer;

conta: real;

operacao: char;

begin
        textbackground(blue);
        textcolor(yellow);
    (*Primeiro digita-se o valor*)
        clrscr;
    writeln ('Digite o primeiro número: ');
    readln (n1);
    textbackground(white);
        textcolor(red);
        (*Escolhe-se a operação*)
    writeln('Escolha uma das seguintes operações [+, -, *, /]: ');
    readln(operacao);
    textbackground(red);
        textcolor(blue);
        (*Insire-se o segundo valor*)
    writeln ('Digite o segundo número: ');
    readln (n2);

        case operacao of
        '+': conta:= n1+n2;
        '-': conta:= n1-n2;
        '*': conta:= n1*n2;
        '/': conta:= n1/n2;
        end;
    textbackground(cyan);
        textcolor(white);
    writeln('O valor é ‚: ',conta);
        Readln;
        writeln('Obrigado por utilizar a  minha calculadora,prima CTRL+C ou Enter para sair');
    readkey;
end.

 

Nota: Tudo o que tenha  haver com cor não interessa

Edited April 3, 2020 at 09:33 PM by Mário01

[M6]

Para teres ajuda tens de colocar as tuas dúvidas ou problemas concretamente.
Ninguém te consegue ajudar se não souber qual é o teu problema.