Meu primeiro algoritmo. – 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

Meu primeiro algoritmo.

 

Agora chegou a hora de visualizar um algoritmo completo!

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.

Veja a representação do algoritmo em pascal:

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.
Facebook Comments

Posts Relacionados

  • Administrador
  • 566 views
  • 0 comentários
  • 1 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