Ads Pascal

1) Um hotel oferece 3 tipos de hospedagem a seus clientes: Apartamento, Suíte Luxo e Suíte Master. Os preços da diária variam de acordo com as acomodações como listado na tabela abaixo:

Tipo de Acomodação Preço por Diária.

Apartamento R$ 120,00

Suíte Luxo R$ 180,00

Suíte Máster R$ 250,00

Além do preço da diária é cobrada uma taxa adicional de serviços. Se o número de diárias for menor que 15 a taxa é de R$ 20,00 por diária. Se o número de diárias for igual a 15 a taxa é de R$ 14,00 por diária e se o número de diárias for maior que 15 a taxa é de R$ 12,00 por diária.

Escreva um programa que apresente um menu iterativo ao usuário com as seguintes opções:

1 – Registrar Hospede

2 – Relatório Financeiro

3 – Sair

Para a opção nr. 1, solicite o nome do hospede, o número de diárias a serem utilizadas pelo mesmo e o tipo de acomodação. Após solicitar estes dados realize os cálculos para determinar o valor a ser recebido pelo hotel, considerando as diárias e taxas adicionais de serviço cobradas pelo hotel.

Para a opção 2, apresente o total (montante geral) arrecadado pelo hotel, considerando todos os hospedes registrados no sistema.

2) Em uma eleição presidencial, existem três candidatos. Os votos são informados através de códigos. Os dados utilizados para a escrituragem obedecem a seguinte codificação:

• 1: voto para o candidato 1

• 2: voto para o candidato 2

• 3: voto para o candidato 3

• 4: para voto em branco

• 5: para voto nulo

Elabore um programa em Pascal que através de um menu com as opções acima permita que vários eleitores votem em seus candidatos ou votem em branco ou nulo. Após terminar a eleição determine e exiba:

a) Total de votos para cada candidato

b) Total de votos em branco

c) Total de votos nulos

d) O candidato que venceu as eleições

e) Percentual dos votos (branco+nulo) sobre o total de votos.

f) Percentual dos votos válidos (votos válidos são os votos atribuídos aos candidatos 1, 2 e 3), sobre o total dos votos

Obs: Solicite o voto ao usuário, e ao final sempre pergunte se o mesmo deseja continuar ou terminar a eleição. Utilize laço de repetição (repeat... until).

3) Considere o segmento de programa abaixo:

cont := 0;

for i := 0 to n do

begin

readln(x);

if ( x = i ) then

cont := cont + 1;

end;

a) (1,0 ponto) Escreva este seguimento de programa substituindo o comando for por um comando while equivalente.

b) (1,0 ponto) Escreva este seguimento de programa substituindo o comando for por um comando repeat-until equivalente.

4) Escreva um programa que solicite