Ai Pessoal, minha prova pratica de Algoritmo: Valor da Prova................3,0 Nota do Academico: ........3,01. Elabore um Algoritmo que calcule ovencimento de um funcionario, sabendo que este e calculado, adicionando-se aovencimento base informado, as seguintes parcelas: 1% por cada ano de idade superior a 25anos. 3% por cada ano de casado. 5% por cada filho ou outro dependente.Vejam minha Resposta...__________________________________________________________________Program Calcula_Salario;varsal, idade, casado, anocas, maisdep, dep, salario,idade25:real; Begin writeln('Informe o Salario Base: '); read (sal); writeln('Informe o Sua Idade: '); read (idade); writeln('Informe quantos anos de casado vc tem: '); read (casado); writeln('Informe quantos Dependentes vc tem: '); read (dep); idade25:=(idade)-25; if idade<=25 then begin salario:= sal+(sal*0.03)*casado+(sal*0.05)*dep; writeln('O Salario e: ', salario:4:2,' Reais'); end; if idade>=25 then begin salario:= sal+(Sal*0.01)*idade25+(sal*0.03)*casado+(sal*0.05)*dep; writeln('O Salario e: ', salario:6:2,' Reais'); end; End.__________________________________________________________________ 2. Elabore um algoritmo que, dado um valorem real, indique quantas moedas de 100, 50, 10, 5 e 1, seraonecessarias para perfazer essa quantia (com o minimo de moedas possivel). Vejam minha Resposta..._____________________________________________________________________ Program QuantidadeDeMoedas ;varvalor,cem, cinq, dez, cinco, um:integer; Begin writeln ('Digite o Valor Desejado: '); readln (valor); cem:= (valor div 100); cinq:=(valor mod 100) div 50; dez:=((valor mod 100) mod 50) div 10; cinco:=(((valor mod 100) mod 50) mod 10) div 5; um:=((((valor mod 100) mod 50) mod 10) mod 5); writeln (cem,' Moedas de Cem'); writeln (cinq,' Moedas de Cinquenta'); writeln (dez,' Moedas de Dez'); writeln (cinco,' Moedas de Cinco'); writeln ('E ', um,' Moedas de Um'); End._____________________________________________________________________Recorete e cole no Pascal Zim em seguida e so compilar (F9) que esta funcionando.Nao postei o arquivo do pascalzim ( .pas ) para ganhar tempo, mas basta seguir o passo anterior que e mais pratico e esta tudo OK.Valeu Pessoal! ate a proxima postagem... Jopedias Ai pessoal, sigam o link abaixo e facam o download do livro que faltava da bibliografia basica de Arquitetura e Organizacao de Computadores... e um arquivo pequeno e em .pdfDownload - Arquitetura de Computadores CARTERAte a Proxima!! Ola! Diversas pessoas tem me perguntado sobre como fazer para enumerar paginas em trabalhos cientificos, projetos, artigos... enfim! O Word, por padrao enumera as paginas a partir da primeira e nem sempre deve ser assim. Pois bem, vou explicar de forma bem simples e detalhada como fazer para enumerar a partir de qualquer pagina que voce queira......Antes de fazer qualquer enumeracao...1o - Va no inicio da pagina a partir de onde voce quer enumerar (Primeira linha, posicione o cursor antes do Primeiro caracter);2o - Pressione BackSpace; (Isso ira juntar o texto seguinte a pagina anterior, nao se preocupe);3o - Clique na aba (Layout da Pagina) e va em Quebras> selecione a opcao Proxima Pagina> (Dentro de Quebras de Secao);Isso separara novamente os textos Criando uma nova pagina a partir deste ponto.4o - Nesta nova pagina, va no espaco onde fica o cabecalho e clique duas vezes (Clique Duplo);Abrira o cabecalho da pagina e com o cursor dentro do cabecalho, va logo acima do campo NAVEGACAO clique em Vincular ao Anterior>; (esta opcao esta marcada por default, na verdade voce ira desmarca-la, quando ela apagar ou se quiser a numeracao no rodape, faca