"Calculadora" utilizando Case
Publicado por NewLinuxer 14/12/2005
[ Hits: 11.716 ]
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.
Visualizador de imagem Pascal/Lazarus
vendas de uma empresa em matriz
escreve os números de 1 a 9 com repeat - until
Agora temos uma assistente virtual no fórum!!! (247)
Manutenção de sistemas Linux Debian e derivados com apt-get, apt, aptitude e dpkg
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
Como Atualizar Fedora 39 para 40
Instalar Google Chrome no Debian e derivados
Consertando o erro do Sushi e Wayland no Opensuse Leap 15
Instalar a última versão do PostgreSQL no Lunix mantendo atualizado
Flathub na sua distribuição Linux e comandos básicos de gerenciamento
Reset do linux sem perder dual boot (2)
Lançado Ubuntu 24.04 Final (6)
redirecionando saida de comando touch para o AWK[AJUDA] (1)