andreza.gomes

Olá,boa noite! Ainda não consegui compilar essse programa, você me ajuda? Achei o meu erro, estava misturando um programa com o outro e testando linha por linha achei o meu erro,mas não conisigo sair daqui. 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? Obrigada

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?

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? 1- Programa que leia um número inteiro positivo N e crie uma sub-rotina que receba como parâmetro esse valor N e retorne ao programa principal o valor de S obtido pelo seguinte cálculo: S = 1 + 1/ 1! + 1 /2! + 1/ 3! + ⋯ + 1 / N! 2- Programa que leia 10 números inteiros e positivos e implemente um procedimento que dado um número lido informe se ele é um número perfeito ou não. Sabe-se que um número é perfeito quando é igual à soma de seus divisores (exceto ele mesmo).