Prova Prática de Algorítmo
Autor: Josias Dias | Publicado: 2012-04-10T22:18:00-07:00


Aí Pessoal, minha prova prática de Algorítmo:&nbsp;&nbsp;&nbsp; Valor da Prova................3,0
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Nota do Acadêmico: ........3,0




1.&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Elabore um Algoritmo que calcule o
vencimento de um funcionário, sabendo que este é calculado, adicionando-se ao
vencimento base informado, as seguintes parcelas:

&nbsp;&nbsp;1% por cada ano de idade superior a 25
anos.

&nbsp;&nbsp;3% por cada ano de casado.

&nbsp;&nbsp;5% por cada filho ou outro dependente.

Vejam minha Resposta...

__________________________________________________________________

Program Calcula_Salario;
var
sal, idade, casado, anocas, maisdep, dep, salario,idade25:real;
&nbsp;Begin
&nbsp; writeln('Informe o Salario Base: ');
&nbsp; read (sal);
&nbsp; writeln('Informe o Sua Idade: ');
&nbsp; read (idade);
&nbsp; writeln('Informe quantos anos de casado vc tem: ');
&nbsp; read (casado);
&nbsp; writeln('Informe quantos Dependentes&nbsp; vc tem: ');
&nbsp; read (dep);
&nbsp; idade25:=(idade)-25;
&nbsp; if
&nbsp; idade&lt;=25 then
&nbsp; begin
&nbsp; salario:= sal+(sal*0.03)*casado+(sal*0.05)*dep;
&nbsp; writeln('O Salario é: ', salario:4:2,' Reais');
&nbsp; end;
&nbsp; if
&nbsp; idade&gt;=25 then
&nbsp; begin
&nbsp; salario:= sal+(Sal*0.01)*idade25+(sal*0.03)*casado+(sal*0.05)*dep;
&nbsp; writeln('O Salario é: ', salario:6:2,' Reais');
&nbsp; end;
&nbsp;End.

__________________________________________________________________

&nbsp;&nbsp;



2.&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Elabore um algoritmo que, dado um valor
em real, indique quantas moedas de 100, 50, 10, 5 e 1, serão
necessárias para perfazer essa quantia (com o mínimo de moedas possível).

&nbsp;Vejam minha Resposta...

_____________________________________________________________________ 


Program QuantidadeDeMoedas ;
var
valor,cem, cinq, dez, cinco, um:integer;
&nbsp;Begin
&nbsp; writeln ('Digite o Valor Desejado: ');
&nbsp; readln (valor);
&nbsp; cem:= (valor div 100);
&nbsp; cinq:=(valor mod 100) div 50;
&nbsp; dez:=((valor mod 100) mod 50) div 10;
&nbsp; cinco:=(((valor mod 100) mod 50) mod 10) div 5;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
&nbsp; um:=((((valor mod 100) mod 50) mod 10) mod 5);
&nbsp; writeln (cem,' Moedas de Cem');
&nbsp; writeln (cinq,' Moedas de Cinquenta');
&nbsp; writeln (dez,' Moedas de Dez');
&nbsp; writeln (cinco,' Moedas de Cinco');
&nbsp; writeln ('E ', um,' Moedas de Um');
&nbsp; End.

_____________________________________________________________________

Recorete e cole no Pascal Zim em seguida é só compilar (F9) que está funcionando.

Não postei o arquivo do pascalzim (&nbsp;.pas ) para ganhar tempo, mas basta seguir o passo anterior que é mais prático e está tudo OK.

Valeu Pessoal! &nbsp;até a próxima postagem...

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Jopedias