"Calculadora" utilizando Case
Publicado por NewLinuxer 14/12/2005
[ Hits: 11.859 ]
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.
Array de números aleatórios não-repetidos de um intervalo em Pascal
Criptografador(Conceito criptografia)Lazarus
Coleta de dados de alunos em Pascal
Enviar mensagem ao usuário trabalhando com as opções do php.ini
Meu Fork do Plugin de Integração do CVS para o KDevelop
Compartilhando a tela do Computador no Celular via Deskreen
Como Configurar um Túnel SSH Reverso para Acessar Sua Máquina Local a Partir de uma Máquina Remota
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
Compartilhamento de Rede com samba em modo Público/Anônimo de forma simples, rápido e fácil
Cups: Mapear/listar todas as impressoras de outro Servidor CUPS de forma rápida e fácil
Criando uma VPC na AWS via CLI
Quero saber sobre os melhores aplicativos de office para usar em 2024 ... (4)
Problemas com o PulseAudio no lubuntu (8)
Som e sistema de janelas não obedecem (1)
Toda vez que tento atualizar o clamav me deparo com erros ao atualizar... (1)