domingo, 30 de janeiro de 2011

Calculadora

PROGRAM CALCULADORA;
USES CRT;
VAR OPCAO: CHAR;

PROCEDURE ROT_ADICAO;
VAR X, A, B: REAL;

BEGIN
  CLRSCR;
  GOTOXY (32, 1); WRITE('ROTINA DE ADICAO');
  GOTOXY (5, 6); WRITE ('ENTRE UM VALOR PARA A:  ');READLN (A);
  GOTOXY (5, 7); WRITE ('ENTRE UM VALOR PARA B:  ');READLN (B);
  X:=A+B;
  GOTOXY (5, 10); WRITE('O RESULTADO EQUIVALE A?  ', X:6:2);
  GOTOXY (25, 24); WRITELN('PRESSIONE PARA VOLTAR PARA O MENU  ');
  READLN;
END;

  PROCEDURE ROT_SUBTRACAO;
  VAR X, A, B: REAL;

  BEGIN
    CLRSCR;
    GOTOXY (32, 1); WRITE('ROTINA DE SUBTRACAO');
    GOTOXY (5, 6); WRITE ('ENTRE UM VALOR PARA A:  ');READLN (A);
    GOTOXY (5, 7); WRITE ('ENTRE UM VALOR PARA B:  ');READLN (B);
    X:=A-B;
    GOTOXY (5, 10); WRITE('O RESULTADO EQUIVALE A?  ', X:6:2);
    GOTOXY (25, 24); WRITELN('PRESSIONE PARA VOLTAR PARA O MENU  ');
    READLN;
  END;

  PROCEDURE ROT_MULTIPLICACAO;
  VAR X, A, B: REAL;

  BEGIN
    CLRSCR;
    GOTOXY (32, 1); WRITE('ROTINA DE MULTIPLICACAO');
    GOTOXY (5, 6); WRITE ('ENTRE UM VALOR PARA A:  ');READLN (A);
    GOTOXY (5, 7); WRITE ('ENTRE UM VALOR PARA B:  ');READLN (B);
    X:=A*B;
    GOTOXY (5, 10); WRITE('O RESULTADO EQUIVALE A?  ', X:6:2);
    GOTOXY (25, 24); WRITELN('PRESSIONE PARA VOLTAR PARA O MENU  ');
    READLN;
  END;

  PROCEDURE ROT_DIVISAO;
  VAR X, A, B: REAL;

  BEGIN
    CLRSCR;
    GOTOXY (32, 1); WRITE('ROTINA DE DIVISAO');
    GOTOXY (5, 6); WRITE ('ENTRE UM VALOR PARA A:  ');READLN (A);
    GOTOXY (5, 7); WRITE ('ENTRE UM VALOR PARA B:  ');READLN (B);
    X:=A/B;
    GOTOXY (5, 10); WRITE('O RESULTADO EQUIVALE A?  ', X:6:2);
    GOTOXY (25, 24); WRITELN('PRESSIONE PARA VOLTAR PARA O MENU  ');
    READLN;
  END;

  BEGIN
    TEXTCOLOR (YELLOW + BLINK);
    TEXTBACKGROUND (BLUE);
    CLRSCR;
    OPCAO:= '0';
    WHILE (OPCAO <> '5') DO
    BEGIN
      CLRSCR;
      GOTOXY (33, 1); WRITE('MENU PRINCIPAL');
      GOTOXY (22, 6); WRITE('1  SOMA');
      GOTOXY (22, 8); WRITE('2  SUBTRACAO');
      GOTOXY (22, 10); WRITE('3  MULTIPLICACAO');
      GOTOXY (22, 12); WRITE('4  DIVISAO');
      GOTOXY (22, 14); WRITE('5  FIM DE PROGRAMA');
      GOTOXY (22, 18); WRITE(' ESCOLHA UMA OPCAO....:  ');
      READLN (OPCAO);
      CASE OPCAO OF
      '1': ROT_ADICAO;
      '2': ROT_SUBTRACAO;
      '3': ROT_MULTIPLICACAO;
      '4': ROT_DIVISAO;
      ELSE
      WRITELN ('BYEEEE');
    END;
  END;
END.

Nenhum comentário:

Postar um comentário