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. |
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. |
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;
} |
#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
-
InfusTec
-
17.844 views
- 1 comentários
- 9 de março de 2016
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
Posts Relacionados - Continue Aprendendo
Eu posso colocar qualquer valor onde pede pra informar um valor