Baile 2019-2020

Para informações, clique aqui

Criar um programa com o ciclo For

Criar um programa em Pascal  que realize a estatística das notas de uma turma, em que:

• o número de alunos da turma é introduzido pelo utilizador (devendo ser sempre superior a zero)
• o resultado deve de ser:
• média da turma nas disciplinas de português e matemática
• número de negativas nas disciplinas de português e matemática
• não é válida a introdução de notas com valores inferiores a 0 e superiores a 20

Uma solução possível aqui, haverão seguramente outras soluções diferentes!!! Código Aqui

Sobre Pascal... Em Pascal...

Clicar em...

2.1 - Ambiente de Programação
2.2 - Noções básicas de Pascal
2.3 - Operadores e Funções em Pascal
3.1 - Estruturas de Decisão ou Seleção
3.2 - Estruturas de Repetição ou Ciclos
3.3 - Instruções de Salto

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.

Onde:

• a varíável é do tipo integer ou char ;

• lista de valores é uma sequência de valores do tipo integer ou char, separadas por vírgula (ao invés de um valor é possível usar um intervalo de valores, que consiste em dois valores separados por um par de pontos)

  A cláusula else não é obrigatória, e os comandos associados a essa cláusula só serão executados se nenhuma outra opção do case tiver sido selecionada ;

O case é muito utilizado na construção de menus.

Exemplos:

  Program PascalZIM ;

    Var

      opcao : integer ;

    Begin

      write ( 'Entre com uma opcao: ' );

      readln ( opcao );

      // escolha da opcao

     case opcao of

      1 : writeln( 'Você escolheu a opção 1...' );

      2 : writeln( 'Você escolheu a opção 2...' );

      3 : writeln( 'Você escolheu a opção 3...' );

      else writeln( 'Você escolheu uma opção diferente de 1, 2, 3...' );

     end ;

   End.

-------------------------------------------------------------------------------------------------------------------------------------

  Program PascalZIM ;

    const

       opSoma = '+' ;

       opSubtracao = '-' ;

       opProduto = '*' ;

       opDivisao = '/' ;

    Var

      opcao : char ;

    Begin

      write ( 'Entre com um operador: ' );

      readln ( opcao );

      // escolha da opcao

     case opcao of

      opSoma : writeln( 'Você escolheu soma... ' );

      opSubtracao : writeln( 'Você escolheu subtracao...' );

      opProduto : writeln( 'Você escolheu produto...' );

      opDivisao: writeln( 'Você escolheu divisao...' );

     end ;

   End.

-------------------------------------------------------------------------------------------------------------------------------------

  Program PascalZIM ;

    Var

      opcao : integer ;

    Begin

      write ( 'Entre com uma opcao: ' );

      readln ( opcao );

      // escolha da opcao

     case opcao of

      1, 2 : writeln( 'Você escolheu a opção 1 ou 2...' );

      3 : writeln( 'Você escolheu a opção 3...' );

      else writeln( 'Você escolheu uma opção diferente de 1, 2, 3...' );

     end ;

   End.

-------------------------------------------------------------------------------------------------------------------------------------

  Program PascalZIM ;

    Var

      c: char;

    Begin

      write( 'Digite um caracte: ' );

      readln( c );

      case c of

        'A'..'Z', 'a'..'z': writeln( '=> Você digitou uma letra!' );

        '0'..'9':           writeln( '=> Você digitou um digito!' );

        '+', '-', '*', '/': writeln( '=> Você digitou um operador!' );

      else

        writeln( '=> Você digitou um caractere!' );

      end;

   End.