dicas show delphi

DICAS

Visite a biblioteca de dicas da comunidade.

Saiba mais
sombra
Artigos Show Delphi

ARTIGOS

Abordagens detalhadas sobre assuntos diversos.

Saiba mais
sombra
iniciantes show delphi

INICIANTES

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

Saiba mais
sombra
downloads show delphi

DOWNLOADS

Acesse os materiais exclusivos aos membros.

Saiba mais
sombra
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 [email protected]

  • InfusTec
  • 1 comentários
  • 9 de março de 2016

Uma resposta para “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.”

  1. caua disse:

    Eu posso colocar qualquer valor onde pede pra informar um valor

Deixe um comentário


Posts Relacionados


Continue Aprendendo

Ir ao topo

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