Escrever um algoritmo e um programa que leia três números: A, B e C. Encontrar e mostrar o maior dos três números.
Fórmulas: Maior [A,B] = (A + B + |A – B|) / 2.
Sugestão de resposta do algoritmo 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
| program Prj00009AlgoritmosSequencias;
var
A, B, C, vMaior : Inteiro;
begin
escreva('Informe o valor de A: ');
leia(A);
escreva('Informe o valor de B: ');
leia(B);
escreva('Informe o valor de C: ');
leia(C);
vMaior <- (A + B + ABS(A - B)) div 2;
vMaior <- (vMaior + C + ABS(vMaior - C)) div 2;
escreva('O Maior é: ', vMaior);
end. |
program Prj00009AlgoritmosSequencias;
var
A, B, C, vMaior : Inteiro;
begin
escreva('Informe o valor de A: ');
leia(A);
escreva('Informe o valor de B: ');
leia(B);
escreva('Informe o valor de C: ');
leia(C);
vMaior <- (A + B + ABS(A - B)) div 2;
vMaior <- (vMaior + C + ABS(vMaior - C)) div 2;
escreva('O Maior é: ', vMaior);
end.
Sugestão de resposta em Pascal / Delphi Console.
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
| { Para escrever acentos em pascal, devemos usar a tabela ASCII. }
program Prj00009AlgoritmosSequencias;
{$APPTYPE CONSOLE}
uses
SysUtils,
Windows;
var
A, B, C, vMaior : Integer;
begin
SetConsoleTitle('Algoritmo 00009 - Algoritmos sequenciais. Show Delphi.');
Writeln('Algoritmo 00009 - Algoritmos sequenciais. Show Delphi.');
Write(#10#13 + 'Informe o valor de A: ');
Readln(A);
Write(#10#13 + 'Informe o valor de B: ');
Readln(B);
Write(#10#13 + 'Informe o valor de C: ');
Readln(C);
vMaior := (A + B + Abs(A - B)) div 2;
vMaior := (vMaior + C + Abs(vMaior - C)) div 2;
Writeln(#10#13, 'O maior '#130': ', vMaior);
Write(#10#13#10#13, 'Tecle "Entrer" para sair.');
Readln;
end. |
{ Para escrever acentos em pascal, devemos usar a tabela ASCII. }
program Prj00009AlgoritmosSequencias;
{$APPTYPE CONSOLE}
uses
SysUtils,
Windows;
var
A, B, C, vMaior : Integer;
begin
SetConsoleTitle('Algoritmo 00009 - Algoritmos sequenciais. Show Delphi.');
Writeln('Algoritmo 00009 - Algoritmos sequenciais. Show Delphi.');
Write(#10#13 + 'Informe o valor de A: ');
Readln(A);
Write(#10#13 + 'Informe o valor de B: ');
Readln(B);
Write(#10#13 + 'Informe o valor de C: ');
Readln(C);
vMaior := (A + B + Abs(A - B)) div 2;
vMaior := (vMaior + C + Abs(vMaior - C)) div 2;
Writeln(#10#13, 'O maior '#130': ', vMaior);
Write(#10#13#10#13, 'Tecle "Entrer" para sair.');
Readln;
end.
Sugestão de resposta em C, C++ / C Builder
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
| #include <vcl.h>
#pragma hdrstop
#include <tchar.h>
#include <stdio.h>
#include <conio.h>
#include <stdlib.h>
#include <time.h>
#include <string.h>
//---------------------------------------------------------------------------
#pragma argsused
void _tmain(){
SetConsoleTitleA("Algoritmo 00009 - Algoritmos sequenciais. Show Delphi.");
printf("Algoritmo 00009 - Algoritmos sequenciais. Show Delphi.\n");
system("chcp 1252 > nul");
printf("\nInforme o valor de A: ");
int A;
scanf("%d", &A);
printf("\nInforme o valor de B: ");
int B;
scanf("%d", &B);
printf("\nInforme o valor de C: ");
int C;
scanf("%d", &C);
int vMaior = (A + B + abs(A - B)) / 2;
vMaior = (vMaior + C + abs(vMaior - C)) / 2;
printf("\nO maior é: %d", (vMaior));
printf("\n\n");
system("pause");
} |
#include <vcl.h>
#pragma hdrstop
#include <tchar.h>
#include <stdio.h>
#include <conio.h>
#include <stdlib.h>
#include <time.h>
#include <string.h>
//---------------------------------------------------------------------------
#pragma argsused
void _tmain(){
SetConsoleTitleA("Algoritmo 00009 - Algoritmos sequenciais. Show Delphi.");
printf("Algoritmo 00009 - Algoritmos sequenciais. Show Delphi.\n");
system("chcp 1252 > nul");
printf("\nInforme o valor de A: ");
int A;
scanf("%d", &A);
printf("\nInforme o valor de B: ");
int B;
scanf("%d", &B);
printf("\nInforme o valor de C: ");
int C;
scanf("%d", &C);
int vMaior = (A + B + abs(A - B)) / 2;
vMaior = (vMaior + C + abs(vMaior - C)) / 2;
printf("\nO maior é: %d", (vMaior));
printf("\n\n");
system("pause");
}
Envie também a sua sugestão de algoritmo para showdelphi@showdelphi.com.br.
-
InfusTec
-
13.425 views
- 0 comentários
- 15 de abril de 2015
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
Posts Relacionados - Continue Aprendendo