Escrever um algoritmo e um programa que leia a nota de duas provas e de dois trabalhos realizados em uma disciplina. Calcule a média das provas e a média dos trabalhos. Mostrar a média das provas e a média dos trabalhos. – Show Delphi

DICAS

Visite a biblioteca de dicas da comunidade.

Saiba mais

ARTIGOS

Abordagens detalhadas sobre assuntos diversos.

Saiba mais

INICIANTES

Aprenda a programar de um modo simples e fácil.

Saiba mais

DOWNLOADS

Acesse os materiais exclusivos aos membros.

Saiba mais
voltar

PARA QUEM GOSTA DE DELPHI

Escrever um algoritmo e um programa que leia a nota de duas provas e de dois trabalhos realizados em uma disciplina. Calcule a média das provas e a média dos trabalhos. Mostrar a média das provas e a média dos trabalhos.

 

 

Sugestão de resposta do algoritmo em linguagem algorítmica:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
programa sequencial0001;
 
var
  vNotaProva1, vNotaProva2 : Real;
  vNotaTrab1, vNotaTrab2 : Real;
 
inicio
  escreva('Informe a nota do trabalho 1: ');
  leia(vNotaTrab1);
 
  escreva('Informe a nota do trabalho 2: ');
  leia(vNotaTrab2);
 
  escreva('Informe a nota da prova 1: ');
  leia(vNotaProva1);
 
  escreva('Informe a nota da prova 2: ');
  leia(vNotaProva2);
 
  escreva('Média dos trabalhos: ' + (vNotaTrab1 + vNotaTrab2) / 2);
  escreva('Média das provas: ' + (vNotaProva1 + vNotaProva2) / 2);
fim.

 

Sugestão de resposta em Pascal / Delphi Console.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
program sequencial0001;
 
{$APPTYPE CONSOLE}
 
{$R *.res}
 
uses
  SysUtils;
 
var
  vNotaProva1, vNotaProva2 : Double;
  vNotaTrab1, vNotaTrab2 : Double;
 
begin
  try
    Write('Informe a nota do trabalho 1: ');
    Readln(vNotaTrab1);
 
    Write('Informe a nota do trabalho 2: ');
    Readln(vNotaTrab2);
 
    Writeln('');
    Write('Informe a nota da prova 1: ');
    Readln(vNotaProva1);
 
    Write('Informe a nota da prova 2: ');
    Readln(vNotaProva2);
 
    Writeln('');
    Writeln('Média dos trabalhos: ',
      FormatFloat('#0.00', (vNotaTrab1 + vNotaTrab2) / 2));
 
    Writeln('Média das provas: ',
      FormatFloat('#0.00',(vNotaProva1 + vNotaProva2) / 2));
 
    Readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

 

Sugestão de resposta em C, C++ / C Builder

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
#pragma hdrstop
#pragma argsused
 
#ifdef _WIN32
#include <tchar.h>
#else
  typedef char _TCHAR;
  #define _tmain main
#endif
 
#include <stdio.h>
#include <tchar.h>
#include <stdio.h>
#include <stdlib.h>
#include <conio.h>
#include <time.h>
#include <string.h>
 
 int _tmain(int argc, _TCHAR* argv[]) 
{
    printf("Algoritmo 00001 - Algoritmos sequenciais. Show Delphi.\n");
 
    // Para exibir corretamente os caracteres
    system("chcp 1252 &gt; nul");
 
    float vNotaTrab1;
    printf("Informe a nota do trabalho 1: ");
    scanf("%f", &amp;vNotaTrab1);
 
    float vNotaTrab2;
    printf("Informe a nota do trabalho 2: ");
    scanf("%f", &amp;vNotaTrab2);
 
    float vNotaProva1;
    printf("Informe a nota da prova 1: ");
    scanf("%f", &amp;vNotaProva1);
 
    float vNotaProva2;
    printf("Informe a nota da prova 2: ");
    scanf("%f", &amp;vNotaProva2);
 
    printf("\n");
 
    printf("\nMédia dos trabalhos: %5.2f",
    (vNotaTrab1 + vNotaTrab2) / 2);
 
    printf("\nMédia dos prova: %5.2f",
    (vNotaProva1 + vNotaProva2) / 2);
 
    printf("\n\n");
    system("pause");
    return 0;
}

Sugestão de resposta em Java com NetBeans

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
package exercicio1;
 
import javax.swing.JOptionPane;
 
public class Exercicio1 {
 
    public static void main(String[] args) {
 
        Double prova1 = 0.0;
        Double prova2 = 0.0;
        Double trabalho1 = 0.0;
        Double trabalho2 = 0.0;
        Double mediaprova;
        Double mediatrabalho;
 
        System.out.println("Informe a nota da prova1");
        prova1 = Double.parseDouble(JOptionPane.showInputDialog("Informe a nota da prova1"));
 
        System.out.println("Informe a nota da prova2");
        prova2 = Double.parseDouble(JOptionPane.showInputDialog("Informe a nota da prova2"));
 
        System.out.println("Informe a nota do trabalho1");
        trabalho1 = Double.parseDouble(JOptionPane.showInputDialog("Informe a nota do trabalho1"));
 
        System.out.println("Informe a nota do trabalho2");
        trabalho2 = Double.parseDouble(JOptionPane.showInputDialog("Informe a nota do trabalho2"));
 
        mediaprova = (prova1 + prova2) / 2;
        mediatrabalho = (trabalho1 + trabalho2) / 2;
 
        System.out.println("A média das provas é: " + mediaprova);
        System.out.println(" A média dos trabalhos é: " +  mediatrabalho);
 
    }
 
}

Envie também a sua sugestão de algoritmo para showdelphi@showdelphi.com.br.

Facebook Comments

Posts Relacionados

  • Administrador
  • 734 views
  • 0 comentários
  • 2 de abril de 2015

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Ir ao topo

© 2016 Infus Soluções em Tecnologia - Todos os Direitos Reservados