Programa de Menu de Opções em Pascal

Prévia do material em texto

7)Faça um programa que mostre o menu de opções a seguir, receba a opção do 
usuário e os dados necessários para executar cada operação. 
Menu de Opções: 
1. Somar dois números. 
2. Raiz quadrada de um número. 
Digite a opção desejada: 
 
 
ALGORITMO 
 
Programa "Menu_de_dua_opções" 
Declaração de Variáveis 
Var num1, num2: inteiro 
resultado: real 
opcao:inteiro 
Inicio 
 Repita até (opção=3) 
 escreval(“”) 
 escreval ("***MENU***") 
 escreval (" (1) – Soma de dois Números") 
 escreval (" (2) - Raiz Quadrada") 
 escreval (" (3) – Sair do Programa") 
 escreval() 
 escreva ("digite a opção desejada: ") 
 leia (opcao) 
 Escolha (opção) 
 Caso 1 
 escreva ("digite o primeiro número: ") 
 leia (num1) 
 escreva ("digite o segundo número: ") 
 leia (num2) 
 resultado <- num1+num2 
 escreva ("o resultado da soma é:", resultado) 
 Caso 2 
 escreva ("digite a Raiz desejada: ") 
 leia (num1) 
 resultado <- (raizq(num1)) 
 escreva ("o resultado da raiz quadrada é: ",resultado) 
 Caso 3 
 escreva ("sair do programa: ") 
 se (opção <> 3) então 
 escreva (“opção incorreta”) 
 fimEscolha 
 
 fimrepita 
Fimalgoritmo 
 
 
 
 
 
 
 
 
 
 
 
 
 
program menu_de_duas_opcoes; 
uses crt; 
var num1, num2:real; 
 opcao :integer; 
 resultado :real; 
begin 
 REPEAT 
 clrscr; 
 writeln('MENU DE OPÇÕES'); 
 writeln('1 - Soma de dois Números'); 
 writeln('2 - Raiz Quadrada'); 
 writeln ('3 - Sair do Programa'); 
 write('Digite a opção desejada: '); 
 
 readln (opcao); 
 case opcao of 
 1 : begin 
 writeln ('digite o primeiro numero: '); 
 readln (num1); 
 writeln ('digite o segundo numero: '); 
 readln (num2); 
 resultado:= num1 + num2; 
 writeln (' O resultado da soma é: ',resultado:5:2); 
 end; 
 2 : begin 
 writeln ('digite qual a Raiz desejada: '); 
 readln (num1); 
 resultado:= (sqrt(num1)); 
 writeln (' O resultado da raiz quadrada é: ',resultado:5:2); 
 end; 
 3 : begin 
 writeln ('finalizar o programa!'); 
 end 
 else writeln ('opção ivalida'); 
 end; 
readln; 
UNTIL(opcao = 3); 
end.