Sub-rotinas - procedimentos (1), Notas de estudo de Análise de Sistemas de Engenharia

Baixe Sub-rotinas - procedimentos (1) e outras Notas de estudo em PDF para Análise de Sistemas de Engenharia, somente na Docsity!

SUR-ROTINAS: PROCEDIMENTOS (1) program pl; procedure R1/ f do vrceedimento al + begin vriteln('= 194 end; 1 Fim co pros onto Kl begin Início dao orograma po val. mrltelndos c men js R1; + Chamando o procedimento Ri ] writeln( Vol pal; writolnt'v mento 29; Ri; o prorssimerto R1 nov writelnf + a E end. : Fis progcana prin ; pregram p2; procedure Cabecalho; : Início : begin writclnf'E 5 ; end; P Fim do var 1, contlinha: integ var is begin ! Início do prog contLirha for 1 := 1 to 16 do begin if contLinha >» 4 then begin cabecalhe; f Chana: contLinha 53 Lesiar writelntf : conthinha + is contLinha end; end. f program pl; is vros do pro procedura ImpMaior(x, y: integer); ! t erna/lovel da fun var maior: integer; begin i£ x > y then maior elss maior writeln('Maico =", maior); end; var a, integer; iáveis do programa principcl ) begin cio do programa principal writeln(' Digi readinta, b); TmpMaiorta, b); f O v:cecedimento r end. ft Fim do E