Tenho que fazer isso até quarta e ta tenso se alguem souber como faz me ajuda (y) Pros programadores de plantão.
EXERCÍCIO atenda as seguintes exigências:
Desenvolva um algoritmo que
Defina o valor do INSS a ser cobrado sobre o salário do colaborador;
Salário de Contribuição (R$) Alíquota para fins de Recolhimento ao
INSS (%) até R$ 1.174,86 - (8,00 %); de R$ 1.174,87 até R$ 1.958,10
- (9,00 %); de R$ 1.958,11 até R$ 3.916,20 - (11,00%); PORTARIA
INTERMINISTERIAL MPS/MF Nº 02, DE 06 DE JANEIRO DE 2012 - DOU
DE 09/01/2012 Teto de Contribuição de INSS: R$ 430,78
Defina valor das horas extras feitas (levando em conta a diferença de sábado e
domingo);
Aos sábados e restante semana(50%); Aos Domingo e feriados(100%)
Defina cobrança de IRPF, caso atinja o teto mínimo;
Até 18.799,32 a.a - (isento)
De 18.799,33 até 28.174,20 a.a - (7,5%)
De 28.174,21 até 37.566,12 a.a - (15%)
De 37.566,13 até 46.939,56 a.a - (22,5%)
De 6.340,47 Acima de 46.939,56 a.a - (27,5%)
Informe ao final, total bruto de recebimento;
Descrição e valor das deduções; e
Valor liquido a receber;
em portugol :s pra rodar no visualg...
Pago assim que puder
Vlw
[ajuda] - Algoritmos
- Fabio_Henrique
- 500 mensagens
- Mensagens: 728
- Registrado em: 04 Out 2010, 13:08
- mestre
- 500 mensagens
- Mensagens: 2712
- Registrado em: 03 Abr 2010, 20:00
- Facebook: https://www.facebook.com/www.csro.com.br
- steam_id: STEAM_0:0:4192
- steamcommunity: http://steamcommunity.com/id/portovelhopirata
- whatsapp: 990000000
- Localização: Porto Velho
- Contato:
- Fabio_Henrique
- 500 mensagens
- Mensagens: 728
- Registrado em: 04 Out 2010, 13:08
Re: [ajuda] - Algoritmos
faltei mto as aulas de matematica e esqueci como calcula isso
"Defina cobrança de IRPF, caso atinja o teto mínimo;
Até 18.799,32 a.a - (isento)
De 18.799,33 até 28.174,20 a.a - (7,5%)
De 28.174,21 até 37.566,12 a.a - (15%)
De 37.566,13 até 46.939,56 a.a - (22,5%)
De 6.340,47 Acima de 46.939,56 a.a - (27,5%)"
falta só isso
"Defina cobrança de IRPF, caso atinja o teto mínimo;
Até 18.799,32 a.a - (isento)
De 18.799,33 até 28.174,20 a.a - (7,5%)
De 28.174,21 até 37.566,12 a.a - (15%)
De 37.566,13 até 46.939,56 a.a - (22,5%)
De 6.340,47 Acima de 46.939,56 a.a - (27,5%)"
falta só isso
- -[K]-ae-[L]-
- 420 mensagens
- Mensagens: 427
- Registrado em: 15 Out 2009, 23:33
- Facebook: rafael.alves.129794
- Localização: STEAM_0:0:28941968
- Contato:
Re: [ajuda] - Algoritmos
ai não consegui entender direito o poblema
caso o IRPF menor que 18.799,32 O OQUE É (INSENTO) ??
caso o IRPF 18.799,33 até 28.174,20 e para aumentar 7,5% ??
caso o IRPF 28.174,21 até 37.566,12 e para aumentar 15% ??
caso o IRPF 37.566,13 até 46.939,56 e para aumentar 22,5% ??
se maior que 46.939,56 e para aumentar 27,5 ??
se for isso vc pode tentar usar a estrutura de decição condicional
caso não for isso explique o poblema direito
caso o IRPF menor que 18.799,32 O OQUE É (INSENTO) ??
caso o IRPF 18.799,33 até 28.174,20 e para aumentar 7,5% ??
caso o IRPF 28.174,21 até 37.566,12 e para aumentar 15% ??
caso o IRPF 37.566,13 até 46.939,56 e para aumentar 22,5% ??
se maior que 46.939,56 e para aumentar 27,5 ??
se for isso vc pode tentar usar a estrutura de decição condicional
Código: Selecionar todos
algoritimo nao_sei_o_nome;
...
{------ VERIFICAR SE O IRPF ESTA ENTRE OS INTERVALOS ------}
{------ PARA FAZER OS CALCULOS DE CADA UM -------}
se (IRPF > 0) e (IRPF < 18.799,32) faça
inicio
ISENTO ????????????
fim
senão
se (IRPF > 18.799,33) e (IRPF < 28.174,20) faça
inicio
IRPF:= ((1 + 0.075) * IRPF);
escrever ('O valor do IRPF e :',IRPF:5:2);
fim
senão
se (IRPF > 28.174,21) e (IRPF < 37.566,12) faça
inicio
IRPF:= ((1 + 0.15) * IRPF);
escrever ('O valor do IRPF e :',IRPF:5:2);
fim
senão
se (IRPF > 37.566,13) e (IRPF < 46.939,56 ) faça
inicio
IRPF:= ((1 + 0.225) * IRPF);
escrever ('O valor do IRPF e :',IRPF:5:2);
fim
senão
se (IRPF > 46.939,56 ) faça
inicio
IRPF:= ((1 + 0.227) * IRPF);
escrever ('O valor do IRPF e :',IRPF:5:2);
fim
....
- -[K]-ae-[L]-
- 420 mensagens
- Mensagens: 427
- Registrado em: 15 Out 2009, 23:33
- Facebook: rafael.alves.129794
- Localização: STEAM_0:0:28941968
- Contato:
Re: [ajuda] - Algoritmos
LINGUAGEM PASCAL
EU USO O DELPHI 7
Ai auguem sabe resolver esse algoritimo ???
eu não consigo calcular as linhas e as colunas SEPARADAMENTE ??
Faça um programa que recebe uma matriz 5x4 e escreva 2 vetores: o primeiro
corresponde a soma de cada linha da matriz e o segundo, a soma de cada coluna da matriz.
ai ate onde eu consegui mais ta me retornando valores errados
EU USO O DELPHI 7
Ai auguem sabe resolver esse algoritimo ???
eu não consigo calcular as linhas e as colunas SEPARADAMENTE ??
Faça um programa que recebe uma matriz 5x4 e escreva 2 vetores: o primeiro
corresponde a soma de cada linha da matriz e o segundo, a soma de cada coluna da matriz.
ai ate onde eu consegui mais ta me retornando valores errados
Código: Selecionar todos
program Exercicio_gerais_6;
{$APPTYPE CONSOLE}
uses
SysUtils;
type
matriz = array [1..5,1..4] of integer;
vet1 = array [1..5] of integer;
vet2 = array [1..4] of integer;
var
num:matriz;
somaL:vet1;
somaC:vet2;
i,j,totalL,totalC:integer;
begin
totalL:=0;
totalC:=0;
For i:=1 to 5 do
For j:=1 to 4 do
begin
write ('Digite um valor :');
readln (num[i,j]);
end;
For i:=1 to 5 do
For j:=1 to 4 do
begin
totalL:= (totalL + num[j,j]);
totalC:= (totalC + num[i,j]);
end;
For i:=1 to 5 do
begin
somaL[i]:= (totalL);
writeln ('A soma de cada linha e: ',somaL[i]);
end;
For i:=1 to 4 do
begin
somaC[i]:= (totalC);
writeln ('A soma de cada coluna e: ',somaC[i]);
end;
readln;
end.
- -[K]-ae-[L]-
- 420 mensagens
- Mensagens: 427
- Registrado em: 15 Out 2009, 23:33
- Facebook: rafael.alves.129794
- Localização: STEAM_0:0:28941968
- Contato:
Re: [ajuda] - Algoritmos
Ai o modo correto de fazer o poblema que sitei acima
Código: Selecionar todos
Program Ex_6;
{$APPTYPE CONSOLE}
Uses
SysUtils;
Type
matriz = array [1..5,1..4] of integer;
vet1 = array [1..5] of integer;
vet2 = array [1..4] of integer;
var
num: matriz;
linha: vet1;
coluna: vet2;
i,j:integer;
Begin
{---- INFORMANDO VALORES ----}
For i:=1 to 5 do
For j:=1 to 4 do
begin
Write ('Elemento da linha ',i,' e da coluna ',j,' :');
Readln (num[i,j]);
end;
{---- CALCULANDO LINHAS ----}
For i:=1 to 5 do
Begin
linha[i]:=0;
For j:=1 to 4 do
linha[i]:= (linha[i] + num[i,j]);
end;
{---- CALCULANDO COLUNAS ----}
For j:=1 to 4 do
Begin
coluna[j]:=0;
For i:=1 to 5 do
coluna[j]:= (coluna[j] + num[i,j]);
end;
{---- MOSTRANDO RESULTADOS ----}
For i:=1 to 5 do
Writeln ('A soma da linha ',i,' = ',linha[i]);
For j:=1 to 4 do
Writeln ('A soma da coluna ',j,' = ',coluna[j]);
Readln;
end.