[ajuda] - Algoritmos

Se voçê esta com algum problema com CS Por Favor poste aqui !!!
Avatar do usuário
Fabio_Henrique
500 mensagens
500 mensagens
Mensagens: 728
Registrado em: 04 Out 2010, 13:08

[ajuda] - Algoritmos

Mensagem por Fabio_Henrique »

Tenho que fazer isso até quarta e ta tenso se alguem souber como faz me ajuda (y) :c2.: 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;
:o :o

em portugol :s pra rodar no visualg...
Pago assim que puder
Vlw

ž

ž

ž

ž

ž
Imagem
RXE - Fabio;
msn: fabio@csro.com.br

Avatar do usuário
mestre
500 mensagens
500 mensagens
Mensagens: 2711
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:

Re: [ajuda] - Algoritmos

Mensagem por mestre »

ve com o kael, tava fazendo faculdade de alguma coisa ae
Imagem

Avatar do usuário
Fabio_Henrique
500 mensagens
500 mensagens
Mensagens: 728
Registrado em: 04 Out 2010, 13:08

Re: [ajuda] - Algoritmos

Mensagem por Fabio_Henrique »

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 :c25.: :c24.: :cry:
Imagem
RXE - Fabio;
msn: fabio@csro.com.br

Avatar do usuário
-[K]-ae-[L]-
420 mensagens
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

Mensagem por -[K]-ae-[L]- »

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

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

....
caso não for isso explique o poblema direito :c2.:
Imagem

Avatar do usuário
-[K]-ae-[L]-
420 mensagens
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

Mensagem por -[K]-ae-[L]- »

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

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

Avatar do usuário
-[K]-ae-[L]-
420 mensagens
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

Mensagem por -[K]-ae-[L]- »

Ai o modo correto de fazer o poblema que sitei acima :D

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

Responder