Exercício 12 Repeat - Pascal

12) Construa um algoritmo que calcule a área total de uma residência (sala, cozinha, quartos, etc.,
sendo todos eles retangulares).
O usuário deverá entrar com a largura (L) e o comprimento (C) de cada
cômodo da casa. Em seguida deverá ser apresentada uma pergunta, solicitando a confirmação do
usuário para continuar com a entrada de dados (a confirmação será dada quando o usuário entrar com
“S”). Caso ele entre com o valor “N”. Deverá ser apresentada a área total da casa. OBS: Não se
esqueça de validar a entrada da resposta do usuário, que só pode aceitar os caracteres “S” ou “N”.

program repeat12;
uses crt;
var 
i :integer;
area,larg,comp:real;
sair:char;
BEGIN
sair:='n';
area:=0;
i:=1;
    repeat         
            Write('Largura do Quarto    : ');
            readln(larg);    
            Write('Comprimento do Quarto: ');
            readln(comp);    
            area:=area+(larg*comp);
            Write('Largura da Sala    : ');
            readln(larg);    
            Write('Comprimento da Sala: ');
            readln(comp);
            area:=area+(larg*comp);
            Write('Largura do Banheiro    : ');
            readln(larg);    
            Write('Comprimento do Banheiro: ');
            readln(comp);    
            area:=area+(larg*comp);
            Write('Largura da Cozinha    : ');
            readln(larg);    
            Write('Comprimento da Cozinha: ');
            readln(comp);
            area:=area+(larg*comp);
                Writeln('Continuar -- n');
                Writeln('Sair      -- s');
                Write('Opcao: ');
                readln(sair);
                    if not((sair='s') or (sair='n')) then
                        Begin    
                            repeat
                                Writeln('Digito Incorreto!');
                                Write('Opcao: ');
                                readln(sair);
                            until (sair='n') or (sair='s');    
                         End;        
        clrscr;                 
        Writeln('Area Total: ',area:0:3);
    until (sair='n');    
    
END.

Categories: Pascal , Programação