Larback - Retornando conhecimento

Um morro nunca desce

Procedimentos em pascal

Abaixo, um exemplo bem simples do uso de procedimentos na linguagem pascal. program ex2; uses crt; procedure p1; var a,b,c:integer; begin clrscr; writeln('Calculo de C = A+b'); writeln('Forneça o valor do primeiro numero: '); readln(a); writeln('Forneça o valor do segundo numero: '); readln(b); c:=a+b; writeln('A soma do primeiro numero com o segundo é igual a ',c); writeln('[Pressione enter para continuar]'); readln; end; procedure p2; var area,b,h:real; begin clrscr; writeln('********************************************'); writeln('!Calculo da área do retângulo !'); writeln('********************************************'); writeln('Informe a base do retângulo'); readln(b); writeln('Informe a altura do retângulo'); readln(h); area:=b*h; writeln('A área do retângulo é: ',area:5:2); end; procedure menu; var opcao:integer; begin repeat clrscr; writeln('********************************************'); writeln('! Menu de controle !'); writeln('********************************************'); writeln('1 - Para calculo de A+B'); writeln('2 - Para area do retângulo'); writeln; writeln('0 - Para encerrar a aplicação'); writeln('********************************************'); readln(opcao); if opcao=1 then p1; if opcao=2 then p2; until opcao=0; end; begin menu; end. Qualquer dúvida, postem nos comentários