Jump to content

Como melhorar?


ManelJaquim
 Share

Recommended Posts

Gostava alterar o código de maneira a não ser preciso carregar no enter entre opções,

alguem pode dizer como se faz isso?

feito no pzim

Program Pzim ;
var op,linha,coluna : integer;
lmaior, lmenor, base,h, altura: real; 
Begin  
  repeat 
   clrscr;
   repeat
   for linha:= 1 to 25 do
  For coluna:= 1 to 37 do 
    Begin
      gotoxy(coluna,linha);
      textcolor (lightgreen);
      write (#178);
    end;
   gotoxy(17,6) ;writeln ('| 1.Area do Rectangulo        |');
   gotoxy(17,7) ;writeln ('| 2.Volume do Paralelepipedo  |');
   gotoxy(17,8) ;writeln ('| 3.Area do Triangulo         |');
   gotoxy(17,9) ;writeln ('| 4.Volume do Prisma          |');
   gotoxy(17,10);writeln ('| 5.Para sair...              |');
   gotoxy(17,11);writeln ('| opção: ');
   gotoxy(26,11);read(op);
   until (op <=5) and (op>=1);
   case op of
   1:begin
     clrscr;
     for linha:= 1 to 25 do
     For coluna:= 1 to 37 do 
       Begin
       gotoxy(coluna,linha);
       textcolor (lightgreen);
       write (#178);
       end;   
     gotoxy(13,8) ;Write('| Indique o comprimento do Lado Maior do Rectângulo  |');
     Readln(lmaior);
     gotoxy(13,9) ;Write('| Indique o comprimento do Lado Menor do Rectângulo  |');
     Readln(lmenor);
     gotoxy(26,11);Write('| A área do Rectângulo é ',round(lmaior*lmenor ));
     write ('|');
readkey;
     end;
   2:begin
     clrscr;
     for linha:= 1 to 25 do
     For coluna:= 1 to 37 do 
      Begin
       gotoxy(coluna,linha);
       textcolor (lightgreen);
       write (#178);
      end;
     gotoxy(16,7);write('| Indique o comprimento do Lado Maior |');
     Read(lmaior);
     gotoxy(16,8);Write('| Indique o comprimento do Lado Menor |');
     Read(lmenor);
     gotoxy(16,9);write('| Indique o comprimento da Altura     |');
     read(h);
     gotoxy(20,11);Write('| A área do Rectângulo é ',round(lmaior*lmenor*h ));
     write ('|');
readkey;
     end;
   3:begin
     clrscr;
     for linha:= 1 to 25 do
     For coluna:= 1 to 37 do 
      Begin
       gotoxy(coluna,linha);
       textcolor (lightgreen);
       write (#178);
      end;
gotoxy(15,8);Write('| Indique o comprimento da base do Triângulo |');
     Read(base);
     gotoxy(15,9);Write('| Indique a altura do Triângulo              |');
     Read(h);
     gotoxy(22,11);Write('| A área do Triângulo é ',round (base*h/2));
     write ('|');
readkey;
     end;
   4:begin
     clrscr;
     for linha:= 1 to 25 do
     For coluna:= 1 to 37 do 
      Begin
       gotoxy(coluna,linha);
       textcolor (lightgreen);
       write (#178);
      end;
gotoxy(15,7);Write('| Indique o comprimento da base do Triângulo |');
     Read(base);
     gotoxy(15,8);Write('| Indique a altura do Triângulo da base      |');
     Read(h);
     gotoxy(15,9);write('| Indique a altura do Prisma                 |');
     read(altura);
     gotoxy(27,11);write ('| A área do prisma é ',round((base*h/2)*altura));
     write ('|');
readkey;
     end;
   5:begin 
     clrscr;
     for linha:= 1 to 25 do
     For coluna:= 1 to 37 do 
      Begin
       gotoxy(coluna,linha);
       textcolor (lightgreen);
       write (#178);
      end;
textbackground (12);
textcolor (white);
gotoxy(10,13); writeln('               Made by: Fernando and Rogério                ');
     readkey;
     end;   
  end; 
  until op = 5;
End.
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.