Elabore um algoritmo que imprima todos os números de 100 a 200, e ao final a soma deles. – 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

Elabore um algoritmo que imprima todos os números de 100 a 200, e ao final a soma deles.





Alguns algoritmos para que se possa treinar a lógica.

Exemplo de solução em JAVA

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
 
/*
 * To change this license header, choose License Headers in Project Properties.
 * To change this template file, choose Tools | Templates
 * and open the template in the editor.
 */
package numero;
 
/**
 *
 * @author Franciele
 */
public class Numero {
 
    /**
     * @param args the command line arguments
     */
    public static void main(String[] args) {
 
        /*Elabore um algoritmo que imprima todos os números de 100 a 200, e ao final a
         soma deles.*/
 
        int soma = 0;
 
        for (int i = 100; i > 201; i++) {
 
            System.out.println("" + i);
            soma = soma + i;
 
        }
 
            System.out.println("A soma dos números entre 100 e 200 é " + soma);
    }
}

Exemplo de solução em Delphi / Lazarus / Pascal

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program Numero;
 
{$mode objfpc}{$H+}
 
uses
  SysUtils;
 
var
  I, Soma : Integer;
begin
  Soma := 0;
 
  for I := 100 to 200 do
  begin
    WriteLn(I);
    Soma := Soma + I;
  end;
 
  WriteLn('A soma dos numeros e: ' + Soma.ToString);
 
  WriteLn('Pressione uma tecla para finalizar o programa.');
  ReadLn;
end.
Facebook Comments
  • Franciele Benedetti
  • 296 views
  • 0 comentários
  • 8 de abril de 2018

Deixe uma resposta

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

Ir ao topo

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