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. |
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. |
{ 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");
} |
#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);
}
} |
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.
-
InfusTec
-
62.666 views
- 2 comentários
- 4 de abril de 2015
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
Posts Relacionados - Continue Aprendendo
1) Escreva um programa para receber um número inteiro pelo usuário e imprimir o quadrado desse número. Exemplo: Digite um número: 25 O quadrado de 25 é 625
Sugestão interessante, em breve vamos publicar o algoritmo.