"Calculadora" utilizando Case
Publicado por NewLinuxer 14/12/2005
[ Hits: 12.029 ]
exemplo de calculadora bem simples utilizando Case
Program exemplo; {"Calculadora" utilizando Case} uses crt; Var opcao,n1,n2: integer; resultado:real; Begin clrscr; write('digite um numero...: '); readln(n1); write('Digite outro n£mero: '); readln(n2); writeln; Repeat ClrScr; writeln('N£mero 1: ',n1,' N£mero 2: ',n2); Writeln('Operaäes:'); Writeln('0 - Sair'); Writeln('1 - Somar'); Writeln('2 - Subtrair'); Writeln('3 - Multiplicar'); writeln('4 - Dividir'); writeln; write('OpÆo: '); Readln(opcao); Writeln; Case opcao of 0:writeln('Saindo'); 1:resultado:=n1 + n2; 2:resultado:=n1 - n2; 3:resultado:=n1 * n2; 4:resultado:=n1 / n2; else writeln('OpÆo Inv lida'); End; if ((opcao = 1) or (opcao = 2) or (opcao = 3) or (opcao = 4)) then writeln('Resultado: ',resultado:3:2); readkey; Until (opcao=0); end.
armazenar o nome de um aluno e suas notas
encontrar o maior e o menor valor em um vetor
programa pra carregear duas matrizes e achar o maior
Atualizando o Passado: Linux no Lenovo G460 em 2025
aaPanel - Um Painel de Hospedagem Gratuito e Poderoso
O macete do Warsaw no Linux Mint e cia
Git config não aplica configurações
O que você quer para sua vida ao usar o Linux?
Visualizar arquivos em formato markdown (ex.: README.md) pelo terminal
Não consigo usar o Bluetooth (2)
Comprar um servidor nesse site é confiável? (5)
Exibir detalhes de vídeo no Caja (0)
Criar um servidor de arquivos local com o ubuntu server e o samba? (2)