andreza.gomes

program televisor;




uses crt;



const Maximo = 1000; 

type RgProduto = record

                   Nome: string;

                   totaltvcores,totaltvpretobranco: integer;

                   

                 end;

                 

var salarioBruto,salarioliquido,salarioBruto,comissao,INPS,valorretido :real;

    n,i,totaltvcores,totaltvpretobranco,inscricao:integer;

    continuar,tipo:char;

    nome:string;                 







Begin



n:=0;



n:=n+1;



ClrScr;



writeln('informe o nome do encarregado:');

readln(nome);

writeln('informe o salarioFixo:');

readln(salarioBruto);

writeln('Informe a quantidade de televisores a cores vendidos  :');

readln(totaltvcores);

writeln('Iforme a quantidade de televisores preto e brano vendidos :');

readln(totalpretobranco);

comissao:= (totaltvcores+ totalpretobranco); // qual formula usar se isoo depende da quantidade?

Consegui resolver o problema do segundo. Alguém me ajuda com os outros?

Prezados, boa tarde!

Mais uma vez estou com dúvidas em 3 programas em Pascal.

1-    Uma determinada empresa armazena para cada funcionário uma ficha contendo o nome do funcionário, o número de horas trabalhadas e o seu número de dependentes. Considerando que:

A)   A empresa paga 45,00 reais por hora e 25 reais por dependente para compor o seu salário bruto

   Sobre o salário bruto são feitos descontos de 11% para o INSS e um percentual para IR.

C)   Para o cálculo do IR(Imposto de Renda) é importante levar em consideração as informações da tabela abaixo:

,Base de Cálculo

Aliquota(%)

Parcela a Deduzir R$

De 0,00 até 1

0,00

0,00

De 1.787,78 até 2.679,29

7,50

134,00

De 2.679,30 até 3.572,13

15,00

335,03

De 3.572,44 até 4.463,81

22,50

602,96

Acima de 4.463,81

27,50

826,15

Dedução_dependente <- R$171,97 * Número de dependentes

IR <-((salario bruto – INSS – Dedução_ dependete)) * Aliquota) – Parcela a Deduzir

Salário Líquido <- Salário Bruto – Desconto INSS – Desconto IR

Faça um programa em pascal para ler o nome do funcionário, número de horas trabalhadas e número de dependentes do funcionário. Após a leitura, escrever: o número do funcionário, os valores descontados para cada tipo de imposto e finalmente o salario liquido de cada um dos funcionários. Encerre a entrada de dados quando for digitada a leta ‘N’, após a pergunta: ‘Novo funcionário ( S/N)?

Program salario;Uses crt;Var nome:string;       Horastrabalhadas: real;       Numerodedependentes: real;       Salariobruto:real;        INSS:real;       IR: real;       Valorhora: real;       Deduzir:real;      Aliquota:real;      Key: char;     BeginN:=0;Writeln:('Informe o nome do funcionario:');Readln(nome);Writeln('Informe o numero de horas trabalhadas:’);Readln(horastrabalhadas);Writeln('Informe o numero de dependentes:')Readln(numerodedependentes);salariobruto := horastrabalhadas + numerodedependentes*valorhora;INSS := salario_bruto*0.11;Alíquota :=0;Deduzir :=0;If salariobruto-INSS >= 1 thenBeginAlíquota :=(salariobruto – INSS) *7.50;Deduzir := 134.00;End;If salariobruto – INSS >=12.679,30 thenBeginAlíquota := (salariobruto- INSS)*15.00;Deduzir :=335,03;End;If salariobruto – INSS >=3.572.44 thenBegin            Alíquota :=(salariobruto – INSS) *22.50;            Deduzir: 602.96;End;If salariobruto – INSS >=4.463,81 thenBegin           Alíquota :=(salariobruto – INSS) *27.50;            Deduzir: 826.15;End;IR := alíquota – (salariobruto-INSS) – deduzir;Salarioliquido :=salariobruto-INSS-IR;writeln ('Informe o valor do INSS: ', INSS:);writeln ('Informe o valor do a deduzir: ', deduzir); writeln ('Informe o aliquota: ', aliquota);  writeln ('Informe o valor do imposto de renda: ', IR);   writeln ('Informe o valor do salario bruto: ', salariobruto);  writeln ('Informe o valor do salario liquido: ', salarioliquido);   writeln;    write ('Pressione qualquer tecla para terminar . . . ');    key := readkey;end.

Duvidas:

1)    Onde inserir esses R$45,00 pago por hora?

2)    Onde inserir esses R$25,00 pago por dependente?

3)    Onde descontar esses 11% do INSS?

4)    Onde descontar o IR?

5)    Aliquota seria uma variável?

6)    Deduzir seria uma variável?

7)    Como encontrar esse número do funcionário?

1-    Foi feita uma pesquisa entre os habitantes de uma região. Foram coletados os dados de idade, sexo(M/F) e salario. Faça um programa em PASCAL que informar:

A)   A média de salário do grupo;

   A maior e a menor idade do grupo

C)   A quantidade de mulheres com salário até R$1.00,00

Encerre a entrada de dados quando for digitada uma idade negativa.

Program Exer2;Uses crt;Var idade:integer;       Idademaior:integer;        Idademenor: integer;       menoridade:integer;       cont1:integer;      cont2: integer;       sexo:char;     Sexo_Menorsalario: char;      Salario: real;     Menorsalario:real;     Soma:real;     media : real;                         Begin N:=0;cont1:=0; cont2:=0; idadeMaior:=0; idadeMenor:=9999; Menorsalario:=9999; soma:=0; writeln('informe a sua idade'); readln(idade); while (idade>0) do Begin writeln('informe o seu sexo sendo: f-feminino e m-masculino'); readln(sexo); writeln('informe o seu salario'); readln(salario); If(salario>0) then begin soma:=soma+salario; cont2:=cont2+1; end; if (idade<idadeMenor) then idadeMenor:=idade; if (idade>idadeMaior) then idadeMaior:=idade; if (sexo='f') and (salario<=1000) then cont1:=cont1+1; if( salario<Menorsalario) then begin Menorsalario:=salario; Sexo_Menorsalario:=sexo; MenorIdade:=idade; end; writeln('informe a sua idade ou algum numero negativo para sair'); readln(idade); end; media:=soma/cont2; writeln('a media dos salarios do grupo é:' ,media); writeln('a maior idade do grupo é:' ,idadeMaior); writeln('a menor idade do grupo é:' ,idadeMenor); writeln('a quantidade de mulheres com salario até R$ 1000,00 é:' ,cont1); writeln('a idade da pessoa que que possui o menor salario é:' ,MenorIdade, ' e o seu sexo é:' ,Sexo_Menorsalario); 

Duvidas:

Acho que está rodando, mas não está dentro do que está pedindo, mas não encontro o meu erro.

3) Um hotel com 30 quartos cobra R$50,00 por diária e mais uma taxa de serviços; A taxa de serviços é de: (2,5 pontos)

* R$4,00 por diária, se o número de diárias for <15;

* R$3,60 por diária, se o número de diárias for = 15;

* R$3,00 por diária, se o número de diárias for >15.

Faça um programa em PASCAL que imprima o nome e o total da conta de cada cliente do hotel e imprima também o total ganho pelo hotel.

program Exer3;uses crt;var  N : array[1..t] of string;  M : array[1..t,1..4] of real;  cont, diarias, faturamento:integer;  for cont:=1 to 30 do;  begin    write('Digite o nome do cliente: ');    readln(n[cont]);  end;    for cont:=1 to t do                                    begin    if (m[cont,1] < 15) then    m[cont,2] := 4;    else    if (m[cont,1] = 15) then    m[cont,2] := 3.60;    else    if (m[cont,1] > 15) then    m[cont,2] := 3;  end;  Begin    for cont:=1 to t do begin    m[cont,3] := 200*m[cont,1];    m[cont,4] := m[cont,3]+m[cont,2];    write('O cliente:' ,N[cont]);    write('O valor das diarias:' ,M[cont,3]);    write('A taxa adicional de servicos:' ,M[cont,2]);    write('O Total:' ,M[cont,4]);  end;  Begin    for cont:=1 to t do begin    diarias := diarias+M[cont,1];    faturamento := diarias+M[cont,4];  end;    write('O hotel faturou' ,faturamento 'servindo' ,diarias 'diarias');  readln; end.

Erro: For não esperado.

Desde já agradeço.

Att,

Consegui organizar, mas agora dá until não esperado, mas não acho o erro. Esse until que ele está apontando está fechando o repeat.

program ATS_SegundaQuestao;uses crt;type RgProduto = record                   Nome: string;                   PrecoCompra:real;PrecoVenda: real;                                    end;                     tpProdutos= array[1..10] of RgProduto;var    produtos:real;salariofixo: real;comissao: real; INPS: real; salariobruto: real;valorretido:real;salarioliquido: real;tvdecores:integer;tvpretoebranco:integer;n:integer;inscricao: integer;    tipo:char;                       begin    n := 0;    repeat      n := n + 1;        clrscr;        writeln('Por favor! Digite o Salário fixo do funcionário! : ', n:2);    writeln('-------------');    write('Por favor! Digite o nome da Mercadoria!: ');    readln(salariofixo[n].Nome);    write('Por favor! Digite o valor de compra: );    readln(Produto[n].PrecoCompra);    writeln(Por favor! Digite o valor de venda: );    readln(Produto[n].PrecoVenda);    writeln;    repeat      writeln(Deseja continuar? (s/n).: ');      readln(Continuar)          until Continuar in ['S', 's', 'N', 'n'] ;  until (n = Maximo) or (Continuar in ['N', 'n']);    LucroA := 0;    TotalCompra := 0;  LucroB := 0;    TotalVenda  := 0;  LucroC := 0;    TotalLucro  := 0;  for i := 1 to n do  begin    Lucro := Produto[i].PrecoVenda - Produto[i].PrecoCompra;    PercentaulLucro := Lucro / Produto[i].PrecoCompra * 100;    if PercentaulLucro< 10       then inc(LucroA)    else if PercentaulLucro <= 20            then inc(LucroB)         else inc(LucroC);    TotalCompra := TotalCompra + Produto[i].PrecoCompra;    TotalVenda  := TotalVenda  + Produto[i].PrecoVenda;    TotalLucro  := TotalLucro  + Lucro;  end;    clrscr;  writeln('.....Lucros...    Qtd.');  writeln('----------------------');  writeln('O total dos lucros ate 10% = ', LucroA:3);  writeln('O total dos lucros de 10% a 20% =', LucroB:3);  writeln('O total dos lucros acima de 20%=', LucroC:3);  writeln;  writeln('O total dos precos de compra....: ', TotalCompra:8:2);  writeln('O total dos precos de venda.....: ', TotalVenda :8:2);  writeln('O total do lucro das mercadorias: ', TotalLucro :8:2);  writeln;  write('Pressione a tecla ENTER para sair.');  readln;end.

Olá. bom dia!

O primeiro código dá o seguinte erro:

Erro semântico na linha 33.  O número para SALARIOFIXO está incorreto.

Olá, bom dia!
 
Estou começando agora em pascal e estou encontrando problemas ao desenvolver programa em pascal. Alguém pode me ajudar?
 
1-  Numa certa loja de eletrodomésticos, o comerciário encarregado da seção de televisores recebe, mensalmente, um salário fixo mais comissão. Essa comissão é calculada em relação ao tipo e ao número de televisores vendidos por mês, obedecendo à tabela abaixo:
 
TIPO                                      NUMERO DE TELEVISORES VENDIDOS                COMISSÕES
A cores                                                 maior ou igual a 10                                        R$100,00 por tv
                                                             menor que 10                                               R$50,00 por tv
Preto e branco                                        maior ou igual a 20                                       R$40,00 por tv
                                                             menor do que 10                                           R$20,00 por tv
 
Sabe-se, ainda, que ele tem um desconto de 8% sobre seu salário fixo para o INPS. Se o seu salário total (fixo + comissões – INPS) for maior ou igual a R$ 3.000,00 ele ainda terá um desconto de 5%, sobre esse salário total, relativo ao imposto de renda retido na fonte. Sabendo-se que existem 20 empregados nesta seção, faça um programa em Pascal para ler o valor do salário fixo e, para cada comerciário, o número de sua inscrição, o número de televisores a cores e o número de televisores preto e branco vendidos; calcule e escreva o número de inscrição de cada empregado, seu salário bruto e seu salário líquido.
 
Consegui fazer isso:

program ATS_SegundaQuestao;uses crt;type RgProduto = record                   Nome: string;                   PrecoCompra,PrecoVenda: real;                                    end;var salariofixo, comissao, INPS,salariobruto,valorretido,liquido: real;  tvcores,tvpreto,n,inscricao: integer;  tipo:char;                      begin    n := 0;    repeat    n := n + 1;    clrscr;    writeln('Por favor! Digite o Salário fixo do funcionário! : ', n:2);    writeln('-------------');    write('Por favor! Digite o nome da Mercadoria!: ');    readln(salariofixo[n].Nome);    write('Por favor! Digite o valor de compra: ');    readln(Produto[n].PrecoCompra);    write('Por favor! Digite o valor de venda.: ');    readln(Produto[n].PrecoVenda);    writeln;    repeat      write('Deseja continuar? (s/n).: ');      readln(Continuar);    until Continuar in ['S', 's', 'N', 'n'];  until (n = Maximo) or (Continuar in ['N', 'n']);    LucroA := 0;    TotalCompra := 0;  LucroB := 0;    TotalVenda  := 0;  LucroC := 0;    TotalLucro  := 0;  for i := 1 to n do  begin    Lucro := Produto[i].PrecoVenda - Produto[i].PrecoCompra;    PercentaulLucro := Lucro / Produto[i].PrecoCompra * 100;    if PercentaulLucro< 10       then inc(LucroA)    else if PercentaulLucro <= 20            then inc(LucroB)         else inc(LucroC);    TotalCompra := TotalCompra + Produto[i].PrecoCompra;    TotalVenda  := TotalVenda  + Produto[i].PrecoVenda;    TotalLucro  := TotalLucro  + Lucro;  end;    clrscr;  writeln('.....Lucros...    Qtd.');  writeln('----------------------');  writeln('O total dos lucros ate 10% = ', LucroA:3);  writeln('O total dos lucros de 10% a 20% =', LucroB:3);  writeln('O total dos lucros acima de 20%=', LucroC:3);  writeln;  writeln('O total dos precos de compra....: ', TotalCompra:8:2);  writeln('O total dos precos de venda.....: ', TotalVenda :8:2);  writeln('O total do lucro das mercadorias: ', TotalLucro :8:2);  writeln;  write('Pressione a tecla ENTER para sair.');  readln;end.

Fazer um programa em Pascal para calcular o valor patrimonial dos produtos de uma empresa. O programa deve ler 4 vetores com 5 elementos cada: COD (vetor de inteiros), PROD (vetor de literais), QUANT (vetor de inteiros) e VAL (vetor de reais), correspondentes ao código do produto, nome do produto, quantidade em estoque e valor unitário. O programa faz a leitura dos valores referentes a cada vetor e calcula o valor patrimonial dos produtos, fazendo o somatório da multiplicação da quantidade em estoque pelo valor unitário (utilizando os dados armazenados nos vetores QUANT e VAL). Ao final, informar o nome do produto mais valioso contido em estoque e o valor total em estoque.

 

program ATS_TerceiraQuestao ;uses crt;var empresa: string;N,I: integer;Item, Q: array [1..200] of integer;v: array [1..200] of real;vp:Real;Begin  writeln ('Informe o nomne da empresa');readln (empresa);repeatwriteln  ('Informe o número de itens');readln(n);until (n > 0) and (<= 200);for i:=1 to n doend;Beginwriteln ('Informe o código do produto');readln(item[i]);writeln ('O valor unitário'); read(v[i]);end;vp:=0;for i:=1 to n dovp:= vp +q [i] *v[i];clrscr;writeln('Empresa: ', empresa)writeln ('valor patrimonial:', vp:8:2);readkey;End.

Nenhum deles rodam. Alguém me ajuda?

Olá. andreza.gomes, como se trata de um outra dúvida, por favor, crie um NOVO TÓPICO para ela, ok? e aguarde ajuda lá.

 

Abraços

OK! Vou criá-la.

Simon, bom dia!

Não estou conseguindo criar novos tópicos. Você tem o link?

Desde já agradeço.

Gente, vocês me ajudam mais um pouco? Estou começando a programar agora e ainda estou com muitas duvidas.

[CONTEÚDO REMOVIDO]

Simon, obrigada.

Baixei essa outra versão e rodou.

Olá,

Estou usando o pascalzim.

Gente boa tarde!

Estou tentando fazer alguns exercícios em pascal, mas não compila. Alguém me ajuda?

1)     Um comerciante deseja fazer o levantamento do lucro das mercadorias que ele comercializa. Para isto, mandou digitar uma linha para cada mercadoria com nome, preço de compra e preço de venda das mesmas. Fazer um programa em Pascal que determine e escreva quantas mercadorias proporcionam:

10%<- lucro<10%

lucro<-20%

lucroo >20%

Determine e escreva o valor total de compra e de venda de todas as mercadorias, assim como o lucro total. Observação: Você deve adotar um flag. 

program LucroMercadorias;uses crt;const Max = 100; { numero maximo de mercadorias }type RgProduto = record                   Nome     : string;                   PrcCompra: real;                   PrcVenda : real;                 end;var n, i, LucroA, LucroB, LucroC: integer;      TtCompra, TtVenda, TtLucro: real;                Lucro, PCemLucro: real;                       Continuar: Char;                         Produto: array[1..Max] of RgProduto;begin  { Digitar os dados do produto: Nome, Preco de compra e venda. }  n := 0;  repeat    n := n + 1;    clrscr;    writeln('Produto no. ', n:2);    writeln('-------------');    write('Informe o nome do produto: ');    readln(Produto[n].Nome);    write('Informe o preco de compra: ');    readln(Produto[n].PrcCompra);    write('Informe o preco de venda.: ');    readln(Produto[n].PrcVenda);    writeln;    repeat      write('Continuar (s/n).: ');      readln(Continuar);    until Continuar in ['S', 's', 'N', 'n'];  until (n = Max) or (Continuar in ['N', 'n']);  { inicializa as variaveis antes do inicio do processamento }  LucroA := 0;    TtCompra := 0;  LucroB := 0;    TtVenda  := 0;  LucroC := 0;    TtLucro  := 0;  for i := 1 to n do  begin    Lucro := Produto[i].PrcVenda - Produto[i].PrcCompra;    PCemLucro := Lucro / Produto[i].PrcCompra * 100;    if PCemLucro < 10       then inc(LucroA)    else if PCemLucro <= 20            then inc(LucroB)         else inc(LucroC);    TtCompra := TtCompra + Produto[i].PrcCompra;    TtVenda  := TtVenda  + Produto[i].PrcVenda;    TtLucro  := TtLucro  + Lucro;  end;  { exibe (ou imprime) os resultados }  clrscr;  writeln('.....Lucro....    Qtd.');  writeln('----------------------');  writeln('       Ate 10%    ', LucroA:3);  writeln('de 10% ate 20%    ', LucroB:3);  writeln('  acima de 20%    ', LucroC:3);  writeln;  writeln('Total dos precos de compra....: ', TtCompra:8:2);  writeln('Total dos precos de venda.....: ', TtVenda :8:2);  writeln('Total do lucro das mercadorias: ', TtLucro :8:2);  writeln;  write('Pressione [Enter] para prosseguir.');  readln;end.

Fiz novamente, acho que agora consegui. Porém tentei colocar algum comando para o usuário ter a opção de sair e não encontrei.
 

program numerointeiro;uses crt;    function fatorial ( numero: integer ):integer;      var f: integer;          begin         f := numero;         while (numero>1) do                      begin                       numero:=numero-1;             f := f * numero;                         end;                    fatorial := f;       end;              function soma (numero: integer): real;      var s: real;      var denominador: integer;            begin          s:=1;            for denominador:= 1 to numero do          begin            s:=s+(1/fatorial(denominador));          end;            soma:=s;          end; var    resultado:real;   numero: integer;               begin   ClrScr;     writeln ('Por favor informe o um número inteiro positivo:');  readln(numero);                     while numero <=0 do                begin        writeln(' O número digitado não é um inteiro positivo:');       writeln ('Por favor informe o um número inteiro positivo:');       readln(numero);             end;            resultado:=soma(numero);       writeln( 'O somatório dos fatoriais é:');      writeln (resultado);               //exit;            End.

Bom dia. 

Fiz o primeiro conforme o Simon Vegas falou. Ele retorna zero mesmo?

Program A ;uses crt;var n,x,p:integer;s:real;function calculo ( p:real):real;var f,u:integer;Beginf:=1;for u:= 1 to x dobeginf:=f*uend;p:=1+1/f;s:=p+s;end;beginwriteln('Informe o numero');readln(n);for x:= 1 to n dobeginwriteln('O Resultado sera',s);writeln('Precione qualquer tecla para finalizar');readkey;  end;End.

Gente, boa tarde!

Preciso desenvolver dois programas em Pascal, porém só sei desenvolver em C. Alguém pode me ajudar?