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

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

e de Tecnviugia do São Paul: mento de Tecnaiog Programação . DOC. Lucio SUB- ROTINAS: FUNÇÕES (2) Construa as funções para os protótipos abaixo: 2. function Binir integer): longint; em dec enge cor o 2. function Fatin: À nteger): Raseba: em inteiro fes crnas o fatorial 3. function Potíb, ( Becelor (e integer): integor; L +» a bee bobo De cia dc Db elevado a =) 4. function Prod(a, b: integer): integar; [ dois intcisos u cb a o produte de p 5, function Divisao(p, ger): integer; ( zeca: do? pegdp>Geq>o faetoms. o divisdo Iniesra de p por q] (okhs: né spercãor de divisão | 6. function Tamanhofn: integer): integer; ( Recebe: um inteiro n 2= 0 1 a quantidade ce algarismo 7. Function Par(n: integer): beclean; ecebe: ua inteiro n > 6) ue se x é par m &. Eunction Crescentein: integer): um inteiro n> 0) ue se os alga o co nrescento ou 8. function Primoin: integer): boolean; 1 Recade: z te inteiro n mas 1 10. function triangulota, b, f Recebe: : real): boolean; alb/e (segmentos de reta) | egmentos formam um triânguic ou ais2 caso contrário | type vetor = arrxay[l.. U0] of integer; 11. function Maior(var a: vetor; n: integer): integi t dae 7 un velur e a cuantidace de elementos n in »= 1) | f Zecornas o valor cc maior elemento do vetor 3 12. function Busca(var a: vetor; r, x: integer): boolean; [ Zecobe: un veivr, a quantidade de el f Belorna: true se x pertencer ac veto n (n>=1) em iateico x ] se caso contrário |