• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

ManelJaquim

Como melhorar?

2 mensagens neste tópico

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.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Eu não sou grande coisa nisto mas há uma opção Delay : Permite uma pausa no programa em milissegundos. que pode substituir o readln.

assim passado o tempo que marcares ele avança sozinho xD

È apenas uma maneira de fazer :)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora