"Calculadora" utilizando Case
Publicado por NewLinuxer 14/12/2005
[ Hits: 12.063 ]
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.
média dos numeros informados em posiçoes pares em um vetor
encontrar o menor valor em um vetor
Calculadora Empresarial (Baseada nas fórmulas de Logística)Lazarus
Conciliando o uso da ZRAM e SWAP em disco na sua máquina
Servidor de Backup com Ubuntu Server 24.04 LTS, RAID e Duplicati (Dell PowerEdge T420)
Visualizar câmeras IP ONVIF no Linux sem necessidade de instalar aplicativos
Autologin: praticidade ou não?
Instalação do Onion OS no Miyoo Mini e Miyoo Mini Plus
Proteja seu Linux Mint com o Timeshift: Restaure o sistema mesmo que ele não inicie!
Google Crhome não abre desde que eu atualizei pelo "program... (1)
paginação dos favoritos não funciona no vivaolinux[BU... (8)
Alguém pode me recomendar um editor de textos? [RESOLVIDO] (11)