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
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
Você precisa fazer o login para publicar um comentário.
Eu posso colocar qualquer valor onde pede pra informar um valor