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. – 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 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.

 

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.

 

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");
}

Envie também a sua sugestão de algoritmo para showdelphi@showdelphi.com.br.

Facebook Comments

Posts Relacionados

  • Administrador
  • 1.748 views
  • 0 comentários
  • 15 de abril de 2015

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