Docsity
Docsity

Prepare-se para as provas
Prepare-se para as provas

Estude fácil! Tem muito documento disponível na Docsity


Ganhe pontos para baixar
Ganhe pontos para baixar

Ganhe pontos ajudando outros esrudantes ou compre um plano Premium


Guias e Dicas
Guias e Dicas


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

3 modelos de programas de Sub-Rotinas Funções(1) feitos em Pascal: média, maior entre 2 números e verifica se o numero digitado é par ou impar.

Tipologia: Notas de estudo

2015

Compartilhado em 25/04/2015

marcos-shirafuchi-2
marcos-shirafuchi-2 🇧🇷

5

(3)

9 documentos

1 / 1

Toggle sidebar

Esta página não é visível na pré-visualização

Não perca as partes importantes!

bg1

Pré-visualização parcial do texto

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 )