Aceder ao link https://visualstudio.microsoft.com/pt-br/

Escolher a opção Community 2017

Introdução à Programação Orientada por Objectos

Para aceder ao conteúdo da apresentação clicar aqui, para o formato PDF clicar aqui

Para aceder ao Manual, clicar aqui Manual Visual Basic

Ficheiro para instalar o VB

Para aceder ao ficheiro de instalação,clicar aqui

Visualizar o processo de instalação aqui

Enunciado Programa Calculadora

Com recurso ao CASE elabore uma calculadora que permita efetuar as operações entre 2 números, operações de + - X e /. Consoante a opção do utilizador.

Restruture o algoritmo para que, na divisão, alerte o utilizador no caso de b=0, indicando que não é possível dividir por 0.

Restruture o algoritmo para que, permita ao utilizador continuar a fazer cálculos. O programa apenas termina se o utilizador escolher a opção sair.

Para aceder à solução, clicar aqui

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

Programa Calculadora

Com recurso ao CASE elabore uma calculadora que permita efetuar as operações entre 2 números, operações de + - X e /. Consoante a opção do utilizador.

Restruture o algoritmo para que, na divisão, alerte o utilizador no caso de b=0, indicando que não é possível dividir por 0.

Restruture o algoritmo para que, permita ao utilizador continuar a fazer cálculos. O programa apenas termina se o utilizador escolher a opção sair.

Para aceder à solução, clicar aqui

Programas Notas

Elabora um programa que indique a nota qualitativa de um determinado aluno, tendo por base a nota quantitativa. O programa deve mostrar uma mensagem de "parabéns" no caso de o aluno ter sucesso ou "Tenta de novo" para o caso de insucesso.

//M.insuf <19
//insuf entre 20 e 50
//suf entre 50 e 75
//bom entre 75 e 90
// M.BOM >90

• Restruture o programa para que alerte o utilizador no caso de o valor introduzido ser superior a 100 ou inferior a 0.
• Restruture o programa para que, caso se verifique o ponto anterior, dê oportunidade ao utilizador de reintroduzir a nota.