Sub-Rotinas Funções (1), Notas de estudo de Análise de Sistemas de Engenharia

Baixe Sub-Rotinas Funções (1) e outras Notas de estudo em PDF para Análise de Sistemas de Engenharia, somente na Docsity!

Faculdade de Tecnologia de São Paulo — Análise e Desenvolvimento de Sistemas - Vespertino Departamento dc Tecnologia do Informação — Algoritinas e Lógica de Programação Prof, Akomino / Aux. Doc. Lucio SUB-ROTINAS: FUNÇÕES (1) program pl; Function Media(a, Db, c: realj: real; begin Media im (a 4 D 4 Cc) / Ed; end; var x, y, £, med: real; begin write('Entze com a yzr 1) readintx, y, 2)7 med := Media(x, y, 2); writeln('Media = * end. program p2; function Max (a, begin integer): integer; 1£ au >b then kKax iza else Max := D; end; var x, v: integer; begin write('Enire com x yr readin(x, v); writcln('Maior "e Maxtx, y)): end. program p3; function Se Partir: inLeq voclean; var resto: integer; begin reste := n mod 2; if resto = C then Se Far = irue else Se Par := fals end; var x: integer; begin write ("Entre reacln (x); com xi 1) if se Par(x) then writeln ('Numero par') else writelr ("Numero inpa end. àç devolve um valor real Recebo três núneros: a/D/2 ) Retorna através do ncme da furção | variáveis do programa principal | Início do prograna principal 5 função 3 4 3 = Casas decinais | rama principal ) Chamando a +unção develve ur valor be dois números: etorna através Retocna através inteiro 1 ) do none da funç do nome da [us Ive um valor bocleano | inteiro: n ) inlerna/local da função | um. número Chamando a função )