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 a quantidade de horas trabalhadas por um funcionário em um mês, o valor que ele recebe por hora e o percentual de desconto para o INSS. Calcular o salário bruto (horas trabalhadas * valor hora), o valor do desconto para o INSS e o salário líquido (Salário bruto – desconto INSS). Mostrar o salário bruto, o valor do desconto do INSS e o salário líquido do funcionário.

 

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
24
25
program Prj00006AlgoritmosSequencias;
 
var
  vHorasTrabalhadas, vValorHora, vPercentDesconto : Real;
  vSalarioBruto, vValorDesconto, vSalarioLiquido : Real;
begin
 
  escreva('Informe a quantidade de horas trabalhadas: ');
  leia(vHorasTrabalhadas);
 
  escreva('Informe o valor recebido por hora: ');
  leia(vValorHora);
 
  escreva('Informe o percentual de desconto do INSS: ');
  leia(vPercentDesconto);
 
  vSalarioBruto <- vHorasTrabalhadas * vValorHora;
  vValorDesconto <- vSalarioBruto * vPercentDesconto / 100;
  vSalarioLiquido <- vSalarioBruto - vValorDesconto;
 
  escreva('O salário bruto é: ', vSalarioBruto);
  escreva('O valor de desconto é: ', vValorDesconto);
  escreva('O salário liquído é: ', vSalarioLiquido);
 
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
34
35
36
{ Para escrever acentos em pascal, devemos usar a tabela ASCII. }
 
program Prj00006AlgoritmosSequencias;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, Windows;
 
var
  vHorasTrabalhadas, vValorHora, vPercentDesconto : Real;
  vSalarioBruto, vValorDesconto, vSalarioLiquido : Real;
begin
  SetConsoleTitle('Algoritmo 00006 - Algoritmos sequenciais. Show Delphi.');
  Writeln('Algoritmo 00006 - Algoritmos sequenciais. Show Delphi.');
 
  Write(#10#13 + 'Informe a quantidade de horas trabalhadas: ');
  Readln(vHorasTrabalhadas);
 
  Write(#10#13 + 'Informe o valor recebido por hora: ');
  Readln(vValorHora);
 
  Write(#10#13 + 'Informe o percentual de desconto do INSS: ');
  Readln(vPercentDesconto);
 
  vSalarioBruto := vHorasTrabalhadas * vValorHora;
  vValorDesconto := vSalarioBruto * vPercentDesconto / 100;
  vSalarioLiquido := vSalarioBruto - vValorDesconto;
 
  Writeln(#10#13 + 'O sal'#160'rio bruto '#130': ', vSalarioBruto :0:2);
  Writeln('O valor de desconto '#130': ', vValorDesconto :0:2);
  Writeln('O sal'#160'rio liqu'#161'do '#130': ', vSalarioLiquido :0:2);
 
  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
40
41
#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 00006 - Algoritmos sequenciais. Show Delphi.");
	printf("Algoritmo 00006 - Algoritmos sequenciais. Show Delphi.\n");
	system("chcp 1252 > nul");
 
	printf("\nInforme a quantidade de horas trabalhadas: ");
	float vHorasTrabalhadas;
	scanf("%f", &vHorasTrabalhadas);
 
	printf("\nInforme o valor recebido por hora: ");
	float vValorHora;
	scanf("%f", &vValorHora);
 
	printf("\nInforme o percentual de desconto do INSS: ");
	float vPercentDesconto;
	scanf("%f", &vPercentDesconto);
 
	float vSalarioBruto = vHorasTrabalhadas * vValorHora;
	float vValorDesconto = vSalarioBruto * vPercentDesconto / 100;
	float vSalarioLiquido = vSalarioBruto - vValorDesconto;
 
	printf("\nO salá rio bruto é: %-7.2f", (vSalarioBruto));
	printf("\nO valor de desconto é: %-7.2f", (vValorDesconto));
	printf("\nO salário liquído é: %-7.2f", (vSalarioLiquido));
 
	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
34
35
36
37
38
39
40
41
package exercicio6;
 
import javax.swing.JOptionPane;
 
/**
 *
 * @author Franciele Benedetti
 */
public class Exercicio6 {
 
    /**
     * @param args the command line arguments
     */
    public static void main(String[] args) {
        Double QtdHorasTrabalhadas;
        Double SalarioBruto;
        Double ValorHora;
        Double PercentDescontoInss; 
        Double DescontoInss;
        Double SalarioLiquido;
 
        System.out.println("Informe quantidade de horas trabalhadas do funcionario ");
        QtdHorasTrabalhadas = Double.parseDouble(JOptionPane.showInputDialog("Informe QtdHorasTrabalhadas"));
 
        System.out.println("Informe o valor por hora que o funcionario recebe ");
        ValorHora = Double.parseDouble(JOptionPane.showInputDialog("Informe ValorHora"));
 
        System.out.println("Informe o % de desconto do INSS ");
        PercentDescontoInss = Double.parseDouble(JOptionPane.showInputDialog("Informe o desconto do INSS"));
 
        SalarioBruto = (QtdHorasTrabalhadas * ValorHora);
 
        DescontoInss = ( SalarioBruto * PercentDescontoInss)/100;
 
        SalarioLiquido = (SalarioBruto -  DescontoInss);
 
        System.out.println("O salário bruto do funcionário é: " + SalarioBruto);
        System.out.println("O valor do desconto do inss é: " + DescontoInss);
        System.out.println("O salário líquido  é: " + SalarioLiquido);
    }
}

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

Facebook Comments Box
  • InfusTec
  • 54.104 views
  • 0 comentários
  • 13 de abril de 2015

Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!

Deixe um comentário

Ir ao topo

© 2024 Infus Soluções em Tecnologia - Todos os Direitos Reservados