1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

programa calc_media;
  { Algoritmo que serve para calcular a media ponderada de notas de uma disciplina
  A media da 1a. prova tem peso 3 enquanto a da 2a. peso 7
  José da Silva Sauro - 4/03/2015 - Modificado em 26/03/2015 }
  { Final da Identificação }
var
  numero_do_aluno : inteiro;
  nota_prova1, nota_prova2, media: real;
  // Final da área de definição de variáveis 
inicio
  ler(numero_do_aluno);
  ler(nota_prova1);
  ler(nota_prova2);
  media := ( (nota_prova1 * 3) + (nota_prova2 * 7) ) / 10;
  mostre(media);
  (* final do programa *)
fim.

programa calc_media; { Algoritmo que serve para calcular a media ponderada de notas de uma disciplina A media da 1a. prova tem peso 3 enquanto a da 2a. peso 7 José da Silva Sauro - 4/03/2015 - Modificado em 26/03/2015 } { Final da Identificação } var numero_do_aluno : inteiro; nota_prova1, nota_prova2, media: real; // Final da área de definição de variáveis inicio ler(numero_do_aluno); ler(nota_prova1); ler(nota_prova2); media := ( (nota_prova1 * 3) + (nota_prova2 * 7) ) / 10; mostre(media); (* final do programa *) fim.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

program calc_media;
  { Algoritmo que serve para calcular a media ponderada de notas de uma disciplina
  A media da 1a. prova tem peso 3 enquanto a da 2a. peso 7
  José da Silva Sauro - 4/03/2015 - Modificado em 26/03/2015 }
  { Final da Identificação }
var
  numero_do_aluno : Integer;
  nota_prova1, nota_prova2, media: Real;
  // Final da área de definição de variáveis 
inicio
  read(numero_do_aluno);
  read(nota_prova1);
  read(nota_prova2);
  media := ( (nota_prova1 * 3) + (nota_prova2 * 7) ) / 10;
  print(media);
  (* final do programa *)
fim.

program calc_media; { Algoritmo que serve para calcular a media ponderada de notas de uma disciplina A media da 1a. prova tem peso 3 enquanto a da 2a. peso 7 José da Silva Sauro - 4/03/2015 - Modificado em 26/03/2015 } { Final da Identificação } var numero_do_aluno : Integer; nota_prova1, nota_prova2, media: Real; // Final da área de definição de variáveis inicio read(numero_do_aluno); read(nota_prova1); read(nota_prova2); media := ( (nota_prova1 * 3) + (nota_prova2 * 7) ) / 10; print(media); (* final do programa *) fim.