Resolução de algoritmo

[Lucian]

oi pessoal meu nome é Lucian estudo desenvolvimento de sistema e tenho uma certa dificuldade com algoritmo me diceram que para eu dominar qualquer algoritmo eu tenho que praticar bastante e é isso quer estou fazendo eu to com umas duvidas em questão de resoluçao de alguns algoritmos para transformar para o português estruturado e para o pascal por favor podem me ajudar.

1 - Sabendo que um funcionario tem seu salario pago em horas trabalhadas, escreva um algoritmo que lê o numero de horas trabalhadas, o valor da hora e escreve o valor que o funcionario tem a receber.

2 - Considerando que um funcionario recebe um adicional de salario familia por filho que possua, escreva um algoritmo que lê o salario do funcionario, o numero de filhos que possui e o valor que recebe por filho. O algoritmo deverá escrever o salário a receber. Levando em conta que deverá se descontado 8% a titulo de INSS.

3 - Escreva um algoritmo que lê o saldo de uma conta bancária e calcula o novo salario, considerando juros ganhos de 10%.

4 - Escreva um algoritmo que lê as altura e o peso de três pessoas e calcula e escreva a altura média e o peso média destas pessoas.

5 - Escreva um algoritmo que lê o valor de uma mercadoria e calcula e escreve o valor a ser pago pelo cliente, considerando um desconto de 25%.

6 - Elaborar um algoritmo que lê o montante que uma pessoa possui no banco e o valor que necessita pagar para a loja A e o valor que necessita pagar a loja B. O algoritmo deverá calcular o valor que esta pessoa terá disponivel depois de efetuar os pagamentos.

7 - Escreva um algoritmo que lê o valor de uma prestação, o juro diário e o numero de dias em atrazo. O algoritmo deverá calcular e escrever o valor a ser pago pelo cliente.

Editado Junho 30, 2010 por quintelab
Removido Ajuda do título

[Lucian]

eu conseg fazer alguns mais não sei se ta certo...

2

procedure
var
sal_func,num_filho,val_filho,al_bruto:real;
 begin
 sal_func:=strtofloat(edit1.Text);
 num_filho:=strtofloat(edit2.Text);
 val_filho:=strtofloat(edit3.Text);
 sal_bruto:=(sal_func+(num_filho*val_filho));
 label4.Caption:=floattostr(sal_bruto-(sal_bruto*8/100));
 end;
end.

3

procedure
var
saldo:real;
 begin
 saldo:=strtofloat(edit1.Text);
 label2.caption:=floattostr(saldo+(saldo*10)/100);
 end;
end.

4

procedure
var
alt1,alt2,alt3,peso1,peso2,peso3:real;
 begin
 alt1:=strtofloat(edit1.Text);
 alt2:=strtofloat(edit2.Text);
 alt3:=strtofloat(edit3.Text);
 peso1:=strtofloat(edit4.Text);
 peso2:=strtofloat(edit5.Text);
 peso3:=strtofloat(edit6.Text);
 label7.caption:=floattostr((alt1+alt2+alt3)/3);
 label8.caption:=floattostr((peso1+peso2+peso3)/3);
 end;
end.

Editado Junho 28, 2010 por kuroi
Adicionar tag CODE

[kuroi]

lucian, mas é pascal ou delphi??

[DaniCosta]

cara, eu também tava com umas dúvidas assim. peguei nesse site aqui um curso q tá me ajudando muito: curso de logica

espero q t ajude também. :)

[David Gama]

Opa Lucian, tranquilo ? Vou Postar aqui as respostas em forma de pseudo ai tu só

tranfere pra linguagem que você está usando !

eu terminei o primeiro semestre de ánalise e desenvolvimento, tive bastante lógica esse semestre !

espero que te ajudar !

:ninja:

1 - Sabendo que um funcionario tem seu salario pago em horas trabalhadas, escreva um algoritmo que lê o numero de horas trabalhadas, o valor da hora e escreve o valor que o funcionario tem a receber.

Algoritmo 1 Salario

\\ Barra pra direita, apenas comentários São desconsiderados pelo programa.

var Salario, hrt: Real;

\\ Considerando que pode haver horas Não inteiras, ou seja 0.5 (30 minutos),e que o Salário pode ter casas decimais ex: 909.5

Inicio

escreva("Digite a quantidade de Horas");

leia(hrt);

escreva("Digite o Valor Pago por Hora");

leia(salario);

salario = salario * hrt;

escreva("Seu salario é :",salario);

fim

\\ é Um Algoritmo Bem simples, Estuda bem ele

\\ Lembrando que o pseudo pode ser reescrito em qualquer linguagem de programação

\\ Então fica mais fácil, fazer lógo o pseudo e depois os Códigos na linguagem que você vai usar

2 - Considerando que um funcionario recebe um adicional de salario familia por filho que possua, escreva um algoritmo que lê o salario do funcionario, o numero de filhos que possui e o valor que recebe por filho. O algoritmo deverá escrever o salário a receber. Levando em conta que deverá se descontado 8% a titulo de INSS.

Algoritmo 2 salario por filhos

var filhos: inteiro;

var salario,vrf: Real;

ínicio

escreva("Salario: ");

leia(salario);

escreva("Numero de Filhos: ");

leia(filhos);

escreva("Auxilio por filho: ");

leia(vrf);

salario = salario + ( filhos * vrf ) - ( salario* 0.8 );

\\ Não são necessárias os parentese ( ),

\\a lei da precedência de expressões lineares

\\ (da esquerda pra direita onde a multiplicação precede a soma e subtração no processamento !)

\\ é utilizada pelo computador !

escreva("Salario a receber : ",salario) ;

fim

3 - Escreva um algoritmo que lê o saldo de uma conta bancária e calcula o novo salario, considerando juros ganhos de 10%.

Algoritmo 3 acréscimo de 10%

var saldo: real;

Ínicio

escreva("Saldo :");

leia(saldo);

saldo = saldo * 0.1 + saldo;

escreva("Novo saldo: ",saldo);

fim

4 - Escreva um algoritmo que lê as altura e o peso de três pessoas e calcula e escreva a altura média e o peso média destas pessoas.

Algoritmo 4 peso e altura media

var peso1,peso2,peso3,alt1,alt2,alt3: Real;

Ínicio

escreva("peso :");

leia(peso1);

escreva("altura : ")

leia(alt1);

escreva("peso :");

leia(peso2);

escreva("altura : ")

leia(alt2);

escreva("peso :");

leia(peso3);

escreva("altura : ")

leia(alt3);

peso1 = ( peso1 + peso2 + peso3 ) / 3; \\ poderia usar uma variavel pesomedio, mas não é necessário !

alt1 = ( alt1 + alt2 + alt3 ) / 3; \\ poderia usar tabém altmedia mas não é necessário !

escreva("Peso Médio : ",peso1 );

escreva("Altura média : alt1");

fim

5 - Escreva um algoritmo que lê o valor de uma mercadoria

e calcula e escreve o valor a ser pago pelo cliente, considerando um desconto de 25%.

Algoritmo 5 desconto

var merc: real;

ínicio

escreva("Valor da mercadoria: ");

leia(merc);

merc = merc * 0.25 - merc;

escreva("Valor com desconto: ",merc);

fim

6 - Elaborar um algoritmo que lê o montante que uma pessoa possui no banco e o valor que necessita

pagar para a loja A e o valor que necessita pagar a loja B. O algoritmo deverá calcular o valor que

esta pessoa terá disponivel depois de efetuar os pagamentos.

Algoritmo 6 mercadoria

var saldo,va,vb: Real;

ínicio

escreva("Saldo Bancário: ");

leia(saldo);

escreva("valor a pagar Loja A:");

leia(va);

escreva("valor a pagar Loja B:");

leia(vb);

saldo = va + vb - saldo;

escreva("Saldo Bancário:",saldo);

fim

7 - Escreva um algoritmo que lê o valor de uma prestação, o juro diário e o numero de dias em atrazo.

O algoritmo deverá calcular e escrever o valor a ser pago pelo cliente.

Algoritmo 7 Juros

var vprest, jrd, det: Real;

ínicio

escreva("Valor da prestação: ");

leia(vprest);

escreva("Juro diário: ");

leia(jrd);

escreva("Dias em atrazo: ");

leia(det);

vprest = det * jrd + vprest;

escreva("Valor com Juros: ",vprest);

fim

Espero ter ajudado !

:rolleyes:

Editado Dezembro 17, 2010 por David Gama