{Um hotel cobra R$ 300,00 por diária e mais uma taxa adicional de serviços.
Se a diária for menor que 15 a taxa e de R$ 20,00. Se o número de diárias for igual a 15 a
taxa é de R$ 14,00 e se o número for maior que 15 a taxa é de R$ 12,00. Considerando-se
que se tenha 200 pessoas e para cada pessoa tenha-se um registro contendo seu nome e o
número de diárias.
Faça um algoritmo que imprima o nome e o total a pagar de cada pessoa e
imprimir também o total ganho pelo hotel e o número total de diárias.}
{O exercicio está feito para rodar com 5 entradas, pois duzentas seria inviável o teste,
é só mudar onde tem 5 para 200.}
Program Pzim ;
var
hospede:array[1..5] of string;
diarias:array[1..5] of integer;
i, dias:integer;
soma:real;
Begin
for i:=1 to 5 do
begin
writeln('Digite os dados do apartamento No.: ',i);
writeln('Nome do Hospede : ');
readln(hospede[i]);
writeln('Diarias : ');
readln(diarias[i]);
clrscr;
end;
for i:=1 to 5 do
begin
if (diarias[i]<15) then
begin
writeln('O hospede : ',hospede[i],', do quarto : ',i,', gastou R$ : ',((diarias[i]*300)+(diarias[i]*20)));
soma:=soma+(diarias[i]*320);
dias:=dias+diarias[i];
end
else
if (diarias[i]=15) then
begin
writeln('O hospede : ',hospede[i],', do quarto : ',i,', gastou R$ : ',((diarias[i]*300)+(diarias[i]*14)));
soma:=soma+(diarias[i]*314) ;
dias:=dias+diarias[i];
end
else
if (diarias[i]>15) then
begin
writeln('O hospede : ',hospede[i],', do quarto : ',i,', gastou R$ : ',((diarias[i]*300)+(diarias[i]*12)));
soma:=soma+(diarias[i]*312);
dias:=dias+diarias[i];
end;
end;
writeln('A arrecadação do hotel foi de R$ : ',soma:1:2);
writeln('O total de diárias foi de : ',dias);
End.
