Escrever um algoritmo e um programa que efetue a leitura de três valores (variáveis A, B e C) e apresente os valores dispostos em ordem crescente. – 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 efetue a leitura de três valores (variáveis A, B e C) e apresente os valores dispostos em ordem crescente.

 

Solução 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
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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
programa Exercicio27;
 
var
  a, b, c: Inteiro;
inicio
 
  Escreva('Informe o valor de A: ');
  Leia(a);
 
  Escreva('Informe o valor de B: ');
  Leia(b);
 
  Escreva('Informe o valor de C: ');
  Leia(c);
 
  Escreva('Os numeros ordenados em ordem crescente sao:');
 
  se (a < b) entao
  inicio
    se (b < c) entao
    inicio
      Escreva(a);
      Escreva(b);
      Escreva(c);
    fim
    senao
    inicio
      se (a < c) entao
      inicio
        Escreva(a);
        Escreva(c);
        Escreva(b);
      fim
      senao
      inicio
        Escreva(c);
        Escreva(a);
        Escreva(b);
      fim;
    fim;
  fim
  senao
  inicio
    se (b < c) entao
    inicio
      se (a < c) entao
      inicio
        Escreva(b);
        Escreva(a);
        Escreva(c);
      fim
      senao
      inicio
        Escreva(b);
        Escreva(c);
        Escreva(a);
      fim;
    fim
    senao
    inicio
      Escreva(c);
      Escreva(b);
      Escreva(a);
    fim;
  fim;
 
fim.

Sugestão de resposta em pascal, Lazarus, Delphi

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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
program Exercicio27;
 
uses
  Classes,
  SysUtils;
 
var
  a, b, c: integer;
begin
  try
    Write('Informe o valor de A: ');
    Readln(a);
 
    Write('Informe o valor de B: ');
    Readln(b);
 
    Write('Informe o valor de C: ');
    Readln(c);
 
    Writeln('Os numeros ordenados em ordem crescente sao:');
 
    if (a < b) then
    begin
      if (b < c) then
      begin
        Writeln(a);
        Writeln(b);
        Writeln(c);
      end
      else
      begin
        if (a < c) then
        begin
          Writeln(a);
          Writeln(c);
          Writeln(b);
        end
        else
        begin
          Writeln(c);
          Writeln(a);
          Writeln(b);
        end;
      end;
    end
    else
    begin
      if (b < c) then
      begin
        if (a < c) then
        begin
          Writeln(b);
          Writeln(a);
          Writeln(c);
        end
        else
        begin
          Writeln(b);
          Writeln(c);
          Writeln(a);
        end;
      end
      else
      begin
        Writeln(c);
        Writeln(b);
        Writeln(a);
      end;
    end;
 
    Write(#10#13#10#13, 'Tecle "Enter" para sair.');
    Readln;
 
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

Sugestão de resposta em C

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
#include <stdio.h>
 
int main(void)
{
    int a, b, c;
    scanf("%d", &a);
    scanf("%d", &b);
    scanf("%d", &c);
    if (a > b)                                // a>b
      if (b > c) 
        printf("%4d%4d%4d\n", a, b, c);       // a>b>c
      else                                    // a>b,c>=b
        if (a > c) 
          printf("%4d%4d%4d\n", a, c, b);     // a>c>=b
        else 
          printf("%4d%4d%4d\n", c, a, b);     // c>=a>b
    else                                      // b>=a
      if (b > c)                              // b>=a,b>c
        if (a > c) 
          printf("%4d%4d%4d\n", b, a, c);     // b>=a>c
        else 
          printf("%4d%4d%4d\n", b, c, a);     // b>c>=a
      else 
        printf("%4d%4d%4d\n", c ,b, a);       // c>=b>=a
 
     return 0;
}

Outras linguagens ou respostas? Envie para showdelphi@showdelphi.com.br

Facebook Comments

Posts Relacionados

  • Administrador
  • 640 views
  • 0 comentários
  • 9 de março de 2016

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