Escrever um algoritmo e um programa que leia dois valores inteiros (A e B) e efetuar as operações de adição, subtração, multiplicação e divisão de A por B, apresentando ao final os quatro resultados obtidos. – 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 dois valores inteiros (A e B) e efetuar as operações de adição, subtração, multiplicação e divisão de A por B, apresentando ao final os quatro resultados obtidos.

 

 

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
programa AlgoritmoSequencial0004; 
 
var 
  A, B : Real; 
inicio 
 
  escreva('Informe um número.'); 
  leia(A); 
 
  escreva('Informe outro número.'); 
  leia(B); 
 
  escreva('A Soma dos números é: ', (A + B)); 
 
  escreva('A Subtração dos números é: ', (A - B)); 
 
  escreva('A Multiplicação dos números é: ', (A * B)); 
 
  escreva('A Divisão dos números é: ', (A + B)); 
 
fim.

 

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
{ Para escrever acentos em pascal, devemos usar a tabela ASCII. }
 
program Prj00004AlgoritmosSequencias;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
  A, B : Real;
begin
  Writeln('Algoritmo 00004 - Algoritmos sequenciais. Show Delphi.'#10#13);
 
  Write('Informe um n'#163'mero: ');
  Readln(A);
 
  Write('Informe outro n'#163'mero: ');
  Readln(B);
 
  Writeln(#10#13'A Soma dos n'#163'meros '#130': ', (A + B) :0:2);
 
  Writeln('A Subtra'#135'ao dos n'#163'meros '#130': ', (A - B) :0:2);
 
  Writeln('A Multiplica'#135'ao dos n'#163'meros '#130': ', (A * B) :0:2);
 
  Writeln('A Divisao dos n'#163'meros '#130': ', (A / B) :0:2);
 
  Write(#10#10, '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
#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(){
 
	printf("Algoritmo 00004 - Algoritmos sequenciais. Show Delphi.\n");
	system("chcp 1252 > nul");
 
	printf("\nInforme um número: ");
	float vA;
	scanf("%f", &vA);
 
	printf("\nInforme outro número: ");
	float vB;
	scanf("%f", &vB);
 
	printf("\nA soma dos números é: %-7.2f", (vA + vB));
	printf("\nA subtração dos números é: %-7.2f", (vA - vB));
	printf("\nA multiplicação dos números é: %-7.2f", (vA * vB));
	printf("\nA divisão dos números é: %-7.2f", (vA / vB));
 
	printf("\n\n");
	system("pause");
}

Sugestão de resposta em Java com NetBeans.

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
package exercicio4;
 
import javax.swing.JOptionPane;
 
/**
 *
 * @author Franciele Benedetti
 */
public class Exercicio4 {
 
    public static void main(String[] args) {
 
        int A = 0;
        int B = 0;
        int adicao;
        int subtracao;
        int multiplicacao;
        int divisao;
 
        A = Integer.parseInt(JOptionPane.showInputDialog("Informe o primeiro valor"));      
        B = Integer.parseInt(JOptionPane.showInputDialog("Informe o segundo valor"));
 
        adicao = ((A + B));
        subtracao = (A - B);
        multiplicacao = (A * B);
        divisao = (A / B);
 
        System.out.println("A adicao entre os dois valores é " + adicao);
        System.out.println("a subtracao é" + subtracao);
        System.out.println("a multiplicacao é" + multiplicacao);
        System.out.println("a divisao é" + divisao);
    }
}

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

Facebook Comments

Posts Relacionados

  • Administrador
  • 2.478 views
  • 0 comentários
  • 4 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