1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.
  2. Informação: Pela 0:30 desta Sexta-feira (9 de Dezembro, 23:30 de Quinta-feira nos Açores) o Fórum e restantes sites da ZWAME vão estar offline para manutenção durante cerca de 1h30.
    Se necessário faremos actualizações via Twitter e Facebook.
    Remover anúncio

A questao da velha da calculadora em pascal!

Discussão em 'Programação' iniciada por Diamond_Sux, 24 de Abril de 2009. (Respostas: 0; Visualizações: 3190)

  1. Boas pessoal, mais uma vez a calculadora em pascal em altas!
    Bem, estou com uns problemas em relação à minha calculadora, não consigo regular o meu "case":confused: e meter as instruções correctas... pode vir da ai uma ajudinha ?:009:

    Aqui vai o código:
    Código:
    program Calculadora;
    uses crt;
    
    var X: real;
        A: real;
        B: real;
        C: real;
        Op: real;
    
    PROCEDURE ENTRADA; { procedimento quando é efectuada uma operação com 1 valor }
        begin
            gotoxy(5,6); write('introduza um valor para A: '); readln(A);
        end;
    
    PROCEDURE ENTRADA1; { procedimento quando é efectuada uma operação com 2 valores }
        begin
            gotoxy(5,6); write('introduza um valor para A: '); readln(A);
            gotoxy(5,7); write('introduza um valor para B: '); readln(B);
        end;
    PROCEDURE ENTRADA2; {procedimento quando é efectuada uma operação para 3 valores }
        begin
            gotoxy(5,6); write('introduza um valor para A: '); readln(A);
            gotoxy(5,7); write('introduza um valor para B: '); readln(B);
            gotoxy(5,8); write('intruduza um valor para C: '); readln(C);
        end;
            Procedure SAIDA; { procedimento quando acaba a operação }
        begin
            gotoxy(5,10); write('O resultado e ', X);
            gotoxy(25,24); writeln('tecle alguma tecla ara voltar ao menu');
          end;
            procedure ADICAO;
        begin
            clrscr;
            gotoxy(32, 1); write('Adicao');
            ENTRADA1;
            x:= A+B;
            SAIDA;
        end;
            procedure SUBTRACAO;
        begin
            clrscr;
            gotoxy(30, 1); write('Subtração');
            ENTRADA1;
            x:= A-B;
            SAIDA;
        end;
            procedure MULTIPLICACAO;
        begin
            clrscr;
            gotoxy(28, 1); write('Subtração');
            ENTRADA1;
            x:=A*B;
            SAIDA;
        end;
            procedure DIVISAO;
        begin
            clrscr;
            gotoxy(32, 1); write('Subtração');
            ENTRADA1;
            x:=A/B;
            SAIDA;
        end;
           procedure RAIZQUADRADA;
        begin
           clrscr;
           gotoxy(30,1); write('Raiz quadrada');
           ENTRADA;
           x:= sqrt(A);
           SAIDA;
        end;
           Procedure POTENCIACAO;
        begin
          clrscr;
          gotoxy(32,1); write('Potenciacao');
          ENTRADA1;
          x:= exp(A*ln(B));
          SAIDA;
        end;
          Procedure FACTURIAL;
        Begin
          clrscr;
          gotoxy(28,1); write('Factorial');
    
        End;
          Procedure EQUACAO1GRAU;
        Begin
          clrscr;
          gotoxy(28,1); write('Equacao de 1 grau');
          ENTRADA1;
          x:=-B/A;
          SAIDA;
        End;
          Procedure EQUACAO2GRAU;
         Begin
          clrscr;
          gotoxy(28,1); write('equacao de 2 grau');
          ENTRADA2;
        End;
    
            { Menu da calculadora }
       BEGIN
    
            while (Op <> 0) do
       begin
                clrscr;
                gotoxy(33, 1); write('Menu principal');
                gotoxy(28, 5); write('Escolha uma opcao : ');
                gotoxy(28, 6); write('1 - Soma');
                gotoxy(28, 8); write('2 - Subtracao');
                gotoxy(28, 10); write('3 - Multiplicacao');
                gotoxy(28, 12); write('4 - Divisao');
                gotoxy(28, 14); write ('5- Raizquadrada');
                gotoxy(28, 18); write ('6 - potencia');
                gotoxy(28, 20); write ('7 - Facturial');
                gotoxy(28, 22); write ('8 - Equacao 1º GRAU');
                gotoxy(28, 24); write ('9 - Equacao 2º GRAU');
                gotoxy(28, 26); write('10 - Fim do programa');
                readln(Op);
       Case Op of
        1: ADICAO;
        2: SUBTRACAO;
        3: MULTIPLICACAO;
        4: DIVISAO;
        5: RAIZQUADRADA;
        6: POTENCIACAO;
        7: FACTURIAL;
        8: EQUACAO1GRAU;
        9: EQUACAO2GRAU;
       10: CREDITOS;
      else
         gotoxy(27, 25); writeln('Opcao invalida');
      end;
    
    END.
     
    Última edição pelo moderador: 24 de Abril de 2009

Partilhar esta Página