ATPS Programação Estruturada Anhanguera

ETAPA 1

PASSO 3.1

inicio

float n1, n2, r, fator;

int e, res;

inicio:

system("cls");

Escreva("::::::::::::::::::::::::::::::::::::\n");

Escreva(":: Calculadora ::\n");

Escreva(":: '1' soma (+) ::\n");

Escreva(":: '2' subtracao (-) ::\n");

Escreva(":: '3' divisao (/) ::\n");

Escreva(":: '4' multiplicacao (*) ::\n");

Escreva(":: '5' potencia (^) ::\n");

Escreva(":: '6' fatorial (!) ::\n");

Escreva(":: '7' raiz (sqrt) ::\n");

Escreva("::::::::::::::::::::::::::::::::::::\n");

Escreva("Escolha uma das alternativas:\n");

Leia("%i", &e);

SE(e>7)

inicio

Escreva("\nEscolha inexistente!\nPor favor refaca sua escolha!!!\nAperte qualquer tecla para refazer a escolha.");

getch();

goto inicio;

fim

SENAO

inicio

escolha( e )

inicio

caso 1:

Escreva("S O M A \ndigite um numero: ");

Leia("%f", &n1);

Escreva("digite um numero: ");

Leia("%f", &n2);

r=n1+n2;

Escreva("O resultado sera: %f\n", r);

fim;

caso 2:

Escreva("S U B T R A C A O \ndigite um numero: ");

Leia("%f", &n1);

Escreva("digite um numero: ");

Leia("%f", &n2);

r=n1-n2;

Escreva("O resultado sera: %f\n", r);

fim;

caso 3:

Escreva("D I V I S A O\ndigite um numero: ");

Leia("%f", &n1);

Escreva("digite um numero: ");

Leia("%f", &n2);

SE (n2==0)

Escreva("ERRO, Nao existe divisao por 0 (ZERO)/n");

SENAO

inicio

r=n1/n2;

Escreva("O resultado sera: %f", r);

fim

fim;

caso 4:

Escreva("M U L T I P L I C A C A O \ndigite um numero: ");

Leia("%f", &n1);

Escreva("digite um numero: ");

Leia("%f", &n2);

r=n1*n2;

Escreva("O resultado sera: %f\n", r);

fim;

caso 5:

Escreva("P O T E N C I A\ndigite um numero: ");

Leia("%f", &n1);

Escreva("digite um numero: ");

Leia("%f", &n2);

r= pow(n1,n2);

Escreva("O resultado sera: %f", r);

fim;

caso 6:

Escreva("F A T O R I A L\ndigite um numero: ");

Leia("%f", &n2);

SE(n2>=35 || n2<0)