Calculadora Pascal

Linguagem de Programação I

Atividade Supervisionada

Orientações:

Este trabalho é composto por uma questão valendo 4,0 pontos.

Este trabalho deverá ser entregue até o dia 22 de novembro 2013.

Este trabalho deve ser entregue pelo 28horas em um arquivo do Word pelo link: enviar por aqui a atividade.

O trabalho poderá ser feito em DUPLA. O nome da dupla deve constar no arquivo.

Questões:

1) Faça um programa que simule uma calculadora com as seguintes operações:
a) Soma
b) Subtração
c) Produto
d) Divisão
e) Potenciação
f) Raiz quadrada e cúbica (pesquise um método de aproximação no caso da raiz cúbica)
g) Fatorial
h) Logaritmo
i) Determinação do número π (pi) por algum método que calcule esta aproximação
j) Determinação do número ℮ (Euler) por algum método que calcule esta aproximação

Comandos obrigatórios: Procedure, while ou repeat, for, if.
Ao final de cada operação o usuário deve ter a opção de fazer outra operação.

Program ATV_SPV_CALC;

var opcao:char; r,Pi,i,e:real; a,b,f:integer;

{Entradas:}

Procedure EntradaAdi;

Begin clrscr; Write('Entre com a primeira Parcela:');readln(a); Write('Entre com a segunda Parcela:');readln(b); end; Procedure EntradaSub;

Begin clrscr; Write('Entre com o Minuendo:');readln(a); Write('Entre com a Subtraendo:');readln(b); end; Procedure EntradaMul;

Begin clrscr; Write('Entre com o primeiro Fator:');readln(a); Write('Entre com o segundo Fator:');readln(b); end; Procedure EntradaDiv;

Begin clrscr; Write('Entre com o Dividendo:');readln(a); Write('Entre com o Divisor:');readln(b); end; Procedure EntradaPot;

Begin clrscr; Write('Entre com número da Base:');readln(a); Write('Entre com o Expoente:');readln(b); end; Procedure EntradaRaiz;

Begin clrscr; Write('Entre com o Radicando:');readln(a); Write('Entre com o Índice:');readln(b); end; Procedure EntradaFat;

Begin clrscr; Write('Entre com a