Programa Calculadora

Duas versões diferentes...

Program casex; Label 1; Var Menu : Integer; A,B: Real; Sair : Char; Begin 1:Clrscr; Writeln ('Escolha uma opção:'); Writeln ('1 - Adição'); Writeln ('2 - Subtração'); Writeln ('3 - Multiplicação'); Writeln ('4 - Divisão'); Writeln ('5 - Sair'); Readln (Menu); Case Menu Of // ADIÇÃO 1 : Begin Clrscr; Writeln ('Digita 2 números:'); writeln(); Write ('Número 1: '); Readln (A); Write ('Número 2: '); Readln (B); Writeln (A:6:1, ' + ',B:6:1,' = ',A+B:6:1); Writeln ('Pressiona qualquer tecla para voltar ao menu...'); Readkey; Goto 1; End; // SUBTRAÇÃO 2 : Begin Clrscr; Writeln ('Digita 2 números:'); writeln();  Write ('Número 1: '); Readln (A); Write ('Número 2: '); Readln (B); Writeln (A:6:1, ' - ',B:6:1,' = ',A-B:6:1); Writeln ('Pressiona qualquer tecla para voltar ao menu...'); Readkey; Goto 1; End; // MULTIPLICAÇÃO 3 : Begin Clrscr; Writeln ('Digita 2 números:'); writeln(); Write ('Número 1: '); Readln (A); Write ('Número 2: '); Readln (B); Writeln (A:6:2, ' X ',B:6:2,' = ',A*B:6:2); Writeln ('Pressiona qualquer tecla para voltar ao menu...'); Readkey; Goto 1; End; // DIVISÃO 4 : Begin Clrscr; Writeln ('Digita 2 números:'); writeln();  Write ('Número 1: '); Readln (A); Write ('Número 2: '); Readln (B); If B=0 Then Writeln ('Man... Digitaste um zero, não dá para fazer a divisão...') Else Writeln (A:6:2, ' : ',B:6:2,' = ',A/B:6:2); Writeln ('Pressiona qualquer tecla para voltar ao menu...'); Readkey; Goto 1; End; // SAIR 5 : Begin Clrscr; Writeln ('Tens a certeza que queres sair? S/N'); Readln (Sair); If (Sair='S') or (Sair='s') Then Halt; If (Sair='N') or (Sair='n')Then Goto 1; End; Else Writeln ('Esse número não existe no menu!'); Readkey; Goto 1; End; End.

program calculadora; Label 1,2;  var x,y,op: integer; YN : Char; begin 1:Clrscr; writeln(' Escolha uma das opções abaixo: '); writeln(' 1. Soma '); writeln(' 2. sub '); writeln(' 3. mult '); writeln(' 4. div '); writeln(' 5. Sair '); write(' Digite a opção desejada: '); readln(op); if op=5 then   goto 2; write(' Digite o valor do primeiro Numero '); readln(x); write(' Digite o valor do segundo Numero '); readln(y); CASE op OF 1: begin writeln(' Opção Selecionada: 1. Soma '); writeln(' A soma dos dois números é: ', (x+y)); writeln(' prima uma tecla para voltar ao menu '); readln(); Goto 1; end; //fim caso 1 2: begin writeln(' Opção Selecionada: 2. Subtração '); writeln(' A subtração dos dois números é: ', (x-y)); writeln(' prima uma tecla para voltar ao menu '); readln(); Goto 1; end; //fim caso 2 3: begin writeln(' Opção Selecionada: 3. Multiplicação '); writeln(' A multiplicação dos dois números é: ', (x*y)); writeln(' prima uma tecla para voltar ao menu '); readln(); Goto 1; end; //fim caso 3 4: begin writeln(' Opção Selecionada: 4. Divisão '); if(y=0)then  begin    writeln(' Não existe divisão por zero. ');    writeln(' prima uma tecla para voltar ao       menu ');    readln();    Goto 1;  end //fim IF else   begin    writeln(' A divisão dos dois números é: ', (x/y):3:2);    writeln(' prima uma tecla para voltar ao    menu ');    readln();    Goto 1;   end; //fim else end;//fim caso 4 5: begin 2:ClrScr; Write('Are you sure?(Y/N)'); YN := Readkey; If (YN = 'y') or (YN = 'Y') Then Halt;  If (YN = 'n') or (YN = 'N') Then Goto 1;  end; //fim caso 3 else writeln(' Opção Inválida. '); end; //fim switch/case readln(); end. //fim programa principal

Para aceder ao ficheiro em Pascal, clicar aqui