pascalzim

Program CALCULO; var nome:string;numerodehoras,numerodedependentes:integer;salariobruto,inss,ir,salarioliquido:real; Begin writeln (' Informe o nome do(a) funcionário(a): '); readln (nome); writeln (' Informe o número de horas trabalhadas: '); readln (numerodehoras); writeln (' Informe o número de dependentes: '); readln (numerodedependentes); salariobruto:=(numerodehoras*12)+(numerodedependentes*40); inss:=(salariobruto*0.085); ir:=(salariobruto*0.05); salarioliquido:=(salariobruto-inss-ir); writeln (' O nome do funcionário é ',nome); writeln (' O salário bruto é R$ ',salariobruto:0:2); writeln (' O valor do inss é R$',inss:0:2); writeln (' O valor do ir é R$',ir:0:2); writeln (' O valor do salário líquido do(a) funcionário(a) ', nome,' é de R$',salarioliquido:0:2); End. Program Pintura ; var comprimento,altura,area,quantidadedetinta:real;

Begin writeln (' O comprimento da parede é:'); readln(comprimento); writeln (' A altura da parede é:'); readln(altura); area:=(comprimento*altura); quantidadedetinta:=(area*0.2); writeln (' O valor da área da parede a ser pintada é',area:0:2,'m2'); writeln (' A quantidade de tinta a ser gasta é',quantidadedetinta:0:2,'litros');

End.
Program viagem ; var km,preco,litros,dinheirogasto:real; Begin writeln('Informe a distância em km a ser percorrida nessa viagem:'); readln(km); writeln('Informe o preço do litro de gasolina a ser consumida:'); readln(preco); litros:=(km/11.5); dinheirogasto:=(litros*preco); writeln (' A quantidade de gasolina consumida foi de',litros:0:2,'l'); writeln (' O dinheiro gasto será de R$',dinheirogasto:0:2); End.
Program FUNCIONARIO; var numerodehoras,numerodedependentes:integer;salariominimo,salariobruto,irpf,salarioliquido:real; Begin writeln (' Informe o valor do salário mínimo: '); readln (salariominimo); writeln (' Informe o número de horas trabalhadas: ');