EL4-04) Um hotel cobra R$ 300,00 por diria, mais uma taxa adicional de servios. Se a quantidade de dirias for menor que 15 a taxa de R$ 20,00; se a quantidade de dirias for igual a 15 a taxa de R$ 14,00 e se a quantidade de dirias for maior ue 15 a taxa de R$ 12,00. Considerando-se que existem 200 pessoas hospedadas no hotel e que para cada pessoa tenha-se um registro contendo seu nome e a quantidade de dirias, faa um algoritmo que mostre o nome e o total a pagar de cada pessoa. No final, mostrar o total ganho pelo hotel, a quantidade total de dirias e o custo mdio da diria (inclusive taxa adicional).

Dirias em um Hotel{Um hotel cobra R$ 300,00 por diria e mais uma taxa adicional de servios. Se a diria for menor que 15 a taxa e de R$ 20,00. Se o nmero de dirias for igual a 15 a taxa de R$ 14,00 e se o nmero 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 eo nmero de dirias. Faa um algoritmo que imprima o nome e o total a pagar de cada pessoa e imprimir tambm o total ganho pelo hotel e o nmero total de dirias.}

{O exercicio est feito para rodar com 5 entradas, pois duzentas seria invivel 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]*12))); soma:=soma+(diarias[i]*312); dias:=dias+diarias[i]; end; end; writeln('A arrecadao do hotel foi de R$ : ',soma:1:2); writeln('O total de dirias foi de : ',dias);

EL4-12) Elaborar um algoritmo para solicitar trs valores e verificar se eles podem ser os comprimentos dos lados de um tringulo. Se forem, verificar se o tringulo formado equiltero, issceles ou escaleno. Se no forem, escrever uma mensagem. Na entrada de dados validar os valores digitados (no permitir valores menores ou iguais a zero). Para encerrar a execuo do programa o usurio dever informar 1 para o primeiro valor. _ Propriedade O comprimento de cada lado de um tringulo menor do que a soma dos comprimentos dos outros dois lados. _ Definies Tringulo equiltero o que tem os comprimentos dos trs lados iguais Tringulo issceles o que tem os comprimentos de dois lados iguais Tringulo escaleno o que tem os comprimentos dos trs lados diferentes