trabalho de pascal

Disciplina: TECNICAS DE PROGRAMAÇÃO.
Aluno: Rhadamés da Mata Oliveira

Curso: SIS14-1

Professor: Germano Manente.
ATIVIDADES 2

1) As maçãs custam R$ 1,30 cada se forem compradas menos de uma dúzia, e R$ 1,00 se forem compradas pelo menos 12 unidades. Escreva um programa que leia o número de maçãs compradas, calc ule e escreva o custo total da compra, indicando qual o custo unitário considerado.
2) Ler o ano atual e o ano de nascimento de uma pessoa. Escrever uma mensagem que diga se ela poderá ou não votar este ano (não é necessário considerar o mês em que a pessoa nasceu). Considere que a idade legal para que uma pessoa possa votar seja de 16 anos.
3) Uma revendedora de carros usados paga a seus funcionários vendedores o seguinte:
a. um salário fixo por mês no valor de R$ 500,00;
b. uma comissão também fixa de 1% para cada carro vendido;
c. mais 5% do valor total das vendas à vista por ele efetuadas; e
d. mais 3% do valor total das vendas a prazo por ele efetuadas.
Escreva um algoritmo que leia e identifique a quantidade de carros vendidos por vendedor (tanto a prazo como a vista), o valor

total de suas vendas, o valor de cada comissão, o salário

fixo e o valor que ele

recebe por carro vendido.

Calcule e escreva o salário final do vendedor.
4) Refaça o mesmo exercício 3 (acima), porém dessa vez considere que o algoritmo deve solicitar os dados referente a
5 vendas, uma de cada vez, sendo 02 a vis ta e 03 a prazo, para cada vendedor. Ao final, apresente os resultados acumulados, conforme solicitado.

1) Program Preco_maca ; const prc1 = 1.3; prc2 = 1 ; var q, custocp: real;
Begin
writeln(' ------------------------'); writeln(' ### PROMOÇÃO MAÇÃ######'); writeln(' ------------------------'); writeln(' Preço da maça 1,30 até 11 und.'); writeln(' Preço da maça 1,00 a partir de 1 duzia'); write(' Entre com a quantidade de maças deseja : '); readln(q); if ( q >= 12 ) then begin custocp:= q * prc2 end else begin