Exercício Repite e Faça enquanto =/

[Jonatan Diego 0]

Olá pessoal, reecbi um exercício pra fazer, mas na hora de compilar, ambos estão com um problema.

 

O que foi feito com Repita, não me pede pra repetir... e o que foi feito com Faça enquanto, executa apenas uma vez o mesmo... não me dá opção de escolha...

Gostaria de saber onde está o erro... eu desisto...

 

Repita

 

program hotel;uses crt;varnome, resp:string;despesa_dia, desp_almoco, total, media_quarto, total_ger, media_geral:real;dias, pessoas, registro, acm_pessoas:integer;beginregistro:=0;acm_pessoas:=0;clrscr;repeatclrscr;despesa_dia:=0;desp_almoco:=0;total:=0;writeln		('------------------- REGISTRO ESTADIA ------------------');writeln;write		  ('Nome do hospede...............................: ');read(nome);write		  ('Dias necessarios...................................: ');read(dias);write		  ('Numero de pessoas..................................: ');read(pessoas);clrscr;despesa_dia:= dias*38;desp_almoco:= dias*pesssoas*3;total:=despesa_dia + desp_almoco;registro:= registro+1;total_ger:= total_ger + toatal;acm_pessoas:= acm_pessoas+pessoas;writeln		 ('------------------- BALANÇO ESTADIA ------------------');WRITELN;writeln		 ('Resgistro numero...........................: ',registro);writeln		 ('Nome do hospede............................: ',nome);writeln		('Total de pessoas no quarto.................: ',pessoas);writeln		('Total de dias hospedados...................: ',dias);writeln		('Total em Diarias...........................: ',despesa_dia:2:2);writeln		('Total de Almoco............................: ',desp_almoco:2:2);writeln		('Total Final da Hospedagem..................: ',total:2:2);writeln;writeln		 ('------------------------------------------------------');writeln;writeln		 ('Deseja nova entrada? (S/N).........................: ');read(resp);until resp = 'n' or 'N';clrscr;media_geral:= (total_ger/registro);media_quarto:= (acm_pessoas/registro);writeln		('-----------------FECHAMENTO DE CAIXA-----------------');writeln 	('No. de Registros................................:registro);writeln		('Quantidade de pessoas registradas...............:acm_pessoas);writeln		('Media de pessoas por quarto.....................:media_quarto:3:2);writeln		('Total do dia....................................:total_ger:5:2);writeln		('Total do dia por quarto.........................:media_geral:2:2);writeln		('-----------------------------------------------------');repeat until keypressed;end.

Faça enquanto

 

program hotel;uses crt;varnome, resp: string;desp_dia, desp_alm, total, media_apart, total_ger, media_receita: real;dias, pessoas, registro, acm_pessoas:integer;beginregistro:=0;acm_pessoas:=0;resp:='S';while resp = 'S' dobegindesp_dia:=0;desp_alm:=0;total:=0;write('Nome do hospede: ');read(nome);write('Escreva quantidade de dias: ');read(dias);Write('Quantidade de pessoas no apartamento: ');read(pessoas);writeln;desp_dia:= dias*38;desp_alm:=dias*pessoas*3;total:=desp_dia+desp_alm;registro:= registro+1;total_ger:= total_ger+total;acm_pessoas:=acm_pessoas+pessoas;writeln('Registro No.: ',registro);writeln('Nome do hospede: ', nome);writeln('Total de pessoas no quarto: ',pessoas);writeln('Total de dias: ', dias);writeln('Diarias R$: ', desp_dia:2:2);writeln('Despesas com almoco: ',desp_alm:2:2);writeln('Total hospedagem R$: ', total:2:2);writeln;writeln('Deseja lancar novo hospede? (S/N): ');readln(resp);end;media_receita:= (total_ger/registro);media_apart:=(acm_pessoas/registro);writeln('Numero de registros:', registro);writeln('Quantidade de pessoas: ', acm_pessoas);writeln('Media de pessoas por quarto: ',media_apart:2:2);writeln('Total do dia: ',total_ger:2:2);writeln('Media de total por quarto: ',media_receita:2:2);repeat until keypressed;end.

Abraços e me ajudem... =/

[Vergil 15]

Removi os erros do código do repita:

program hotel;uses crt;varnome, resp:string;despesa_dia, desp_almoco, total, media_quarto, total_ger, media_geral:real;dias, pessoas, registro, acm_pessoas:integer;											  beginregistro:=0;acm_pessoas:=0;clrscr;repeatclrscr;despesa_dia:=0;desp_almoco:=0;total:=0;writeln		('------------------- REGISTRO ESTADIA ------------------');writeln;write		  ('Nome do hospede...............................: ');read(nome);write		  ('Dias necessarios...................................: ');read(dias);write		  ('Numero de pessoas..................................: ');read(pessoas);clrscr;despesa_dia:= dias*38;desp_almoco:= dias*pessoas*3;total:=despesa_dia + desp_almoco;registro:= registro+1;total_ger:= total_ger + total;acm_pessoas:= acm_pessoas+pessoas;writeln		 ('------------------- BALANÇO ESTADIA ------------------');WRITELN;writeln		 ('Resgistro numero...........................: ',registro);writeln		 ('Nome do hospede............................: ',nome);writeln		('Total de pessoas no quarto.................: ',pessoas);writeln		('Total de dias hospedados...................: ',dias);writeln		('Total em Diarias...........................: ',despesa_dia:2:2);writeln		('Total de Almoco............................: ',desp_almoco:2:2);writeln		('Total Final da Hospedagem..................: ',total:2:2);writeln;writeln		 ('------------------------------------------------------');writeln;writeln		 ('Deseja nova entrada? (S/N).........................: ');read(resp);until (resp = 'n') or (resp = 'N');clrscr;media_geral:= (total_ger/registro);media_quarto:= (acm_pessoas/registro);writeln		('-----------------FECHAMENTO DE CAIXA-----------------');writeln	 ('No. de Registros................................:registro');writeln		('Quantidade de pessoas registradas...............:acm_pessoas');writeln		('Media de pessoas por quarto.....................:media_quarto:3:2');writeln		('Total do dia....................................:total_ger:5:2');writeln		('Total do dia por quarto.........................:media_geral:2:2');writeln		('-----------------------------------------------------');repeat until keypressed;end.

Removi os erros do código enquanto:

program hotel;uses crt;varnome, resp: string;desp_dia, desp_alm, total, media_apart, total_ger, media_receita: real;dias, pessoas, registros, acm_pessoas:integer;beginregistros:=0;acm_pessoas:=0;resp:='S';while resp = 'S' dobegindesp_dia:=0;desp_alm:=0;total:=0;write('Nome do hospede: ');read(nome);write('Escreva quantidade de dias: ');read(dias);Write('Quantidade de pessoas no apartamento: ');read(pessoas);writeln;desp_dia:= dias*38;desp_alm:=dias*pessoas*3;total:=desp_dia+desp_alm;registros:= registros+1;total_ger:= total_ger+total;acm_pessoas:=acm_pessoas+pessoas;writeln('Registro No.: ',registros);writeln('Nome do hospede: ', nome);writeln('Total de pessoas no quarto: ',pessoas);writeln('Total de dias: ', dias);writeln('Diarias R$: ', desp_dia:2:2);writeln('Despesas com almoco: ',desp_alm:2:2);writeln('Total hospedagem R$: ', total:2:2);writeln;writeln('Deseja lancar novo hospede? (S/N): ');readln(resp);end;media_receita:= (total_ger/registros);media_apart:=(acm_pessoas/registros);writeln('Numero de registros:', registros);writeln('Quantidade de pessoas: ', acm_pessoas);writeln('Media de pessoas por quarto: ',media_apart:2:2);writeln('Total do dia: ',total_ger:2:2);writeln('Media de total por quarto: ',media_receita:2:2);repeat until keypressed;end.