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

ricalexleo

Programa Menus

1 mensagem neste tópico

Este programa consiste em poder aceder mais facilmente a outro programas.Este programa foi feito na aula de Programação de Sistemas de Informação.

program exemplo_menus;
uses CRT;
var opcao: char;

{ Declarar procedimentos para cada uma das opcoes...
Pode tambem, em vez de escrever procedimentos, colocar blocos de c¢digo
depois dos dois pontos, lembre-se de colocar "begin" e "end" no final de
cada um deles }

procedure CalcularMedia1;
Var Valor1, Valor2, Med: Real;
Procedure CalculaMedia;
Begin
     Med:=(Valor1+Valor2)/2;
     readkey;
end;
Begin
     Valor1:=10 ; Valor2:=15;
     CalculaMedia;
     Writeln ('M‚dia= ',Med:8:1);
     readkey;
End;

procedure CalcularMedia2;
Var Valor1, Valor2, Med:Real;
Procedure CalculaMedia(V1, V2:Real);
Begin
     Med:=(V1+V2)/2;
End;
Begin
     Valor1:=10 ; Valor2:=15;
     CalculaMedia(Valor1, Valor2);
     Writeln('M‚dia= ',Med:8:1);
     CalculaMedia(10,13);
     Write('M‚dia= ',Med:8:1);
     readkey;
End;

procedure CalcularMedia3;
Var Valor1, Valor2:Real;
Function CalculaMedia(V1, V2:Real):Real;
Begin
     CalculaMedia:=(V1+V2)/2;
End;
Begin
     Valor1:=10 ; Valor2:=15;
     Writeln('M‚dia= ',CalculaMedia(Valor1, Valor2):8:1);
     Write('M‚dia= ',CalculaMedia(10,13):8:1);
     readkey;
End;


{ bloco de c¢digo principal do programa: }
begin
repeat
repeat
clrscr;
writeln ('------------ Exemplo de Menu -----------');
writeln ('[1] Calcular M‚dia 1');
writeln ('[2] Calcular M‚dia 2');
writeln ('[3] Calcular M‚dia 3');
writeln ('[4] Sair');
opcao := readkey;
Until (opcao >= '1') and (opcao <= '4');

Case opcao of
'1' : CalcularMedia1;
'2' : CalcularMedia2;
'3' : CalcularMedia3;
end;
Until (opcao = '4');
  begin
       clrscr;
       Writeln('Adeus');
       Delay(1000);        { For 200 ms }
  end;
end. 

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