Jump to content

Temóteo Francisco

Members
  • Content count

    4
  • Joined

  • Last visited

Community Reputation

0 Comum

About Temóteo Francisco

  1. Temóteo Francisco

    Algoritmo_pascal

    Alguém resolve aí pra mim pq eu fiz exatamente o que tava no livro e mesmo assim o código não segue;ele para quando termino de enviar os dados pra recebimento,por favor me ajudem ! program patrao; var Aumento,sal,SN:real; No:string ; Idade,AT,P:Integer ; begin WriteLn('Digite sua idade'); readln(Idade); WriteLn('quantos anos trabalhados? '); ReadLn(AT); WriteLn('Qual o valor do seu salário? '); ReadLn(sal); case Idade of 0..25: begin case AT of 0..3: P:= 5; 4..6: P:= 10; else P:= 15; end; end; 26..35: begin case AT of 0..9: P:= 20; 10..15: P:= 25; else P:= 30; End; end; else begin case AT of 0..10: P:= 30; 11..20: P:= 40; 21..30: P:= 50; 31..40: P:= 60; else begin P:= 70; end; end; end; Aumento:= (P/100)*sal; SN:=sal + Aumento; WriteLn('seu antigo salario era de R$:',sal); Writeln('a porcentagem de aumento recebida foi de: ',Aumento:1:1,'%'); writeln('seu novo salario e de R$:',SN); readln; end; end.
  2. Temóteo Francisco

    Lógica de programação em pascal

    /*Alguém me ajuda na seguinte questão por favor!! Eu sou iniciante e não to entendendo já faz 4hs que tô tentando isso até tentei fazer com o comando case e não deu certo,me ajudem caras !! eu so tenho meu android pra codar nem pc eu tenho kkkk fiz isso no app:pascal-N IDE(se e que pode falar marca aqui) faça um algoritmo que receba o número de horas trabalhadas por um funcionário, o serviço que ele fez,e calcule o valor a ser pago a esse funcionário, onde o valor pago e o número de horas * valor do serviço. Os valores das horas dos serviços seguem na primeira tabela, porém, dependendo do número de horas trabalhadas, esse funcionário terá uma porcentagem de aumento de acordo com a segunda tabela: (tabela na imagem) sou iniciante e fiz assim:*/ program aumento_horra; var s,resultado:real; nh: Integer; begin WriteLn('digite o numero de horas trabalhadas'); ReadLn(nh); WriteLn('qual o serviço feito? A,B ou C ?'); ReadLn(s); if s = 'A' then begin resultado:=10*nh; if nh := 0..10 then nh=true begin WriteLn('total a pagar R$:',nh,'Sem aumento'); end; end else if nh:=11..15 then begin resultado:=10*nh+(25/100); end else if nh:=16..25 then begin reaultado:=10*nh+(35/100); end else if nh < 26 then begin resultado:=10*nh+(45/100); end; end; f s = 'B' then begin resultado:=20*nh; else if nh := 0..10 then nh=true begin WriteLn('total a pagar R$:',nh,'Sem aumento'); end; else if nh:=11..15 then begin resultado:=20*nh+(25/100); end else if nh:=16..25 then begin reaultado:=20*nh+(35/100); end else if nh < 26 then begin resultado:=20*nh+(45/100); end; end; f s = 'C' then begin resultado:=10*nh; else if nh:=0..10 then nh=true begin WriteLn('total a pagar R$:',nh,'Sem aumento'); end; else if nh:=11..15 then begin resultado:=30*nh+(25/100); end else if nh:=16..25 then begin reaultado:=30*nh+(35/100); end else if nh < 26 then begin resultado:=30*nh+(45/100); end; end; writeln('o valor a ser pago e: ',resultado); writeln('Obrigado por trabalhar conosco'); readln; end.
  3. Temóteo Francisco

    Lógica de programação em pascal

    /*Alguém me ajuda na seguinte questão por favor!! Eu sou iniciante e não to entendendo já faz 4hs que tô tentando isso até tentei fazer com o comando case e não deu certo,me ajudem caras !! eu so tenho meu android pra codar nem pc eu tenho kkkk fiz isso no app:pascal-N IDE(se e que pode falar marca aqui) faça um algoritmo que receba o número de horas trabalhadas por um funcionário, o serviço que ele fez,e calcule o valor a ser pago a esse funcionário, onde o valor pago e o número de horas * valor do serviço. Os valores das horas dos serviços seguem na primeira tabela, porém, dependendo do número de horas trabalhadas, esse funcionário terá uma porcentagem de aumento de acordo com a segunda tabela: (tabela na imagem) sou iniciante e fiz assim:*/ program aumento_horra; var s,resultado:real; nh: Integer; begin WriteLn('digite o numero de horas trabalhadas'); ReadLn(nh); WriteLn('qual o serviço feito? A,B ou C ?'); ReadLn(s); if s = 'A' then begin resultado:=10*nh; if nh := 0..10 then nh=true begin WriteLn('total a pagar R$:',nh,'Sem aumento'); end; end else if nh:=11..15 then begin resultado:=10*nh+(25/100); end else if nh:=16..25 then begin reaultado:=10*nh+(35/100); end else if nh < 26 then begin resultado:=10*nh+(45/100); end; end; f s = 'B' then begin resultado:=20*nh; else if nh := 0..10 then nh=true begin WriteLn('total a pagar R$:',nh,'Sem aumento'); end; else if nh:=11..15 then begin resultado:=20*nh+(25/100); end else if nh:=16..25 then begin reaultado:=20*nh+(35/100); end else if nh < 26 then begin resultado:=20*nh+(45/100); end; end; f s = 'C' then begin resultado:=10*nh; else if nh:=0..10 then nh=true begin WriteLn('total a pagar R$:',nh,'Sem aumento'); end; else if nh:=11..15 then begin resultado:=30*nh+(25/100); end else if nh:=16..25 then begin reaultado:=30*nh+(35/100); end else if nh < 26 then begin resultado:=30*nh+(45/100); end; end; writeln('o valor a ser pago e: ',resultado); writeln('Obrigado por trabalhar conosco'); readln; end.
  4. Temóteo Francisco

    Lógica de programação em pascal

    /*Alguém me ajuda na seguinte questão por favor!! Eu sou iniciante e não to entendendo já faz 4hs que tô tentando isso até tentei fazer com o comando case e não deu certo,me ajudem caras !! eu so tenho meu android pra codar nem pc eu tenho kkkk fiz isso no app:pascal-N IDE(se e que pode falar marca aqui) faça um algoritmo que receba o número de horas trabalhadas por um funcionário, o serviço que ele fez,e calcule o valor a ser pago a esse funcionário, onde o valor pago e o número de horas * valor do serviço. Os valores das horas dos serviços seguem na primeira tabela, porém, dependendo do número de horas trabalhadas, esse funcionário terá uma porcentagem de aumento de acordo com a segunda tabela: (tabela na imagem) sou iniciante e fiz assim:*/ program aumento_horra; var s,resultado:real; nh: Integer; begin WriteLn('digite o numero de horas trabalhadas'); ReadLn(nh); WriteLn('qual o serviço feito? A,B ou C ?'); ReadLn(s); if s = 'A' then begin resultado:=10*nh; if nh := 0..10 then nh=true begin WriteLn('total a pagar R$:',nh,'Sem aumento'); end; end else if nh:=11..15 then begin resultado:=10*nh+(25/100); end else if nh:=16..25 then begin reaultado:=10*nh+(35/100); end else if nh < 26 then begin resultado:=10*nh+(45/100); end; end; f s = 'B' then begin resultado:=20*nh; else if nh := 0..10 then nh=true begin WriteLn('total a pagar R$:',nh,'Sem aumento'); end; else if nh:=11..15 then begin resultado:=20*nh+(25/100); end else if nh:=16..25 then begin reaultado:=20*nh+(35/100); end else if nh < 26 then begin resultado:=20*nh+(45/100); end; end; f s = 'C' then begin resultado:=10*nh; else if nh:=0..10 then nh=true begin WriteLn('total a pagar R$:',nh,'Sem aumento'); end; else if nh:=11..15 then begin resultado:=30*nh+(25/100); end else if nh:=16..25 then begin reaultado:=30*nh+(35/100); end else if nh < 26 then begin resultado:=30*nh+(45/100); end; end; writeln('o valor a ser pago e: ',resultado); writeln('Obrigado por trabalhar conosco'); readln; end.
  5. Temóteo Francisco

    Lógica de programação em pascal

    /*Alguém me ajuda na seguinte questão por favor!! Eu sou iniciante e não to entendendo já faz 4hs que tô tentando isso até tentei fazer com o comando case e não deu certo,me ajudem caras !! eu so tenho meu android pra codar nem pc eu tenho kkkk fiz isso no app:pascal-N IDE(se e que pode falar marca aqui) faça um algoritmo que receba o número de horas trabalhadas por um funcionário, o serviço que ele fez,e calcule o valor a ser pago a esse funcionário, onde o valor pago e o número de horas * valor do serviço. Os valores das horas dos serviços seguem na primeira tabela, porém, dependendo do número de horas trabalhadas, esse funcionário terá uma porcentagem de aumento de acordo com a segunda tabela: (tabela na imagem) sou iniciante e fiz assim:*/ program aumento_horra; var s,resultado:real; nh: Integer; begin WriteLn('digite o numero de horas trabalhadas'); ReadLn(nh); WriteLn('qual o serviço feito? A,B ou C ?'); ReadLn(s); if s = 'A' then begin resultado:=10*nh; if nh := 0..10 then nh=true begin WriteLn('total a pagar R$:',nh,'Sem aumento'); end; end else if nh:=11..15 then begin resultado:=10*nh+(25/100); end else if nh:=16..25 then begin reaultado:=10*nh+(35/100); end else if nh < 26 then begin resultado:=10*nh+(45/100); end; end; f s = 'B' then begin resultado:=20*nh; else if nh := 0..10 then nh=true begin WriteLn('total a pagar R$:',nh,'Sem aumento'); end; else if nh:=11..15 then begin resultado:=20*nh+(25/100); end else if nh:=16..25 then begin reaultado:=20*nh+(35/100); end else if nh < 26 then begin resultado:=20*nh+(45/100); end; end; f s = 'C' then begin resultado:=10*nh; else if nh:=0..10 then nh=true begin WriteLn('total a pagar R$:',nh,'Sem aumento'); end; else if nh:=11..15 then begin resultado:=30*nh+(25/100); end else if nh:=16..25 then begin reaultado:=30*nh+(35/100); end else if nh < 26 then begin resultado:=30*nh+(45/100); end; end; writeln('o valor a ser pago e: ',resultado); writeln('Obrigado por trabalhar conosco'); readln; end.
  6. Temóteo Francisco

    Lógica de programação em pascal

    /*Alguém me ajuda na seguinte questão por favor!! Eu sou iniciante e não to entendendo já faz 4hs que tô tentando isso até tentei fazer com o comando case e não deu certo,me ajudem caras !! eu so tenho meu android pra codar nem pc eu tenho kkkk fiz isso no app:pascal-N IDE(se e que pode falar marca aqui) faça um algoritmo que receba o número de horas trabalhadas por um funcionário, o serviço que ele fez,e calcule o valor a ser pago a esse funcionário, onde o valor pago e o número de horas * valor do serviço. Os valores das horas dos serviços seguem na primeira tabela, porém, dependendo do número de horas trabalhadas, esse funcionário terá uma porcentagem de aumento de acordo com a segunda tabela: (tabela na imagem) sou iniciante e fiz assim:*/ program aumento_horra; var s,resultado:real; nh: Integer; begin WriteLn('digite o numero de horas trabalhadas'); ReadLn(nh); WriteLn('qual o serviço feito? A,B ou C ?'); ReadLn(s); if s = 'A' then begin resultado:=10*nh; if nh := 0..10 then nh=true begin WriteLn('total a pagar R$:',nh,'Sem aumento'); end; end else if nh:=11..15 then begin resultado:=10*nh+(25/100); end else if nh:=16..25 then begin reaultado:=10*nh+(35/100); end else if nh < 26 then begin resultado:=10*nh+(45/100); end; end; f s = 'B' then begin resultado:=20*nh; else if nh := 0..10 then nh=true begin WriteLn('total a pagar R$:',nh,'Sem aumento'); end; else if nh:=11..15 then begin resultado:=20*nh+(25/100); end else if nh:=16..25 then begin reaultado:=20*nh+(35/100); end else if nh < 26 then begin resultado:=20*nh+(45/100); end; end; f s = 'C' then begin resultado:=10*nh; else if nh:=0..10 then nh=true begin WriteLn('total a pagar R$:',nh,'Sem aumento'); end; else if nh:=11..15 then begin resultado:=30*nh+(25/100); end else if nh:=16..25 then begin reaultado:=30*nh+(35/100); end else if nh < 26 then begin resultado:=30*nh+(45/100); end; end; writeln('o valor a ser pago e: ',resultado); writeln('Obrigado por trabalhar conosco'); readln; end.
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.