Trabalho de logica de programação

INFORMÁTICA – LÓGICA DE PROGRAMAÇÃO

Professor formador: Tiago Malveira Cavalcante

ATIVIDADE 4

1. (3 pontos) Escreva uma função que recebe como parâmetros de entrada a altura e o sexo de uma pessoa e fornece como saída o seu peso ideal. O peso ideal é calculado pelas fórmulas seguintes:

Para homens:         72.7 * ALT – 58

Para mulheres: 62.1 * ALT – 44.7

Observação: Você pode usar os seguintes números para indicar o sexo:

               

1 – para masculino e 2 – para feminino

        

        Por exemplo, se executarmos o comando mostre peso_ideal 1.6 2 para uma pessoa com 1 metro e 60 centímetros de altura, do sexo feminino, obteremos 54.66 como peso ideal.

aprenda peso_ideal :alt :sexo

 atribua "sex :sexo

      se :sex=1

    [saída 72.7*:alt - 58]

 [saída 62.1*:alt - 44.7]

fim

1. (3 pontos) Escreva um procedimento que recebe como parâmetro a idade de uma pessoa e informa a classe eleitoral dessa pessoa. A classe eleitoral é dada conforme o Quadro abaixo.

Idade	Classe Eleitoral
Abaixo de 16 anos	Não eleitor
Faixa de 18 até 64 anos	Eleitor obrigatório
16 ou 17 anos ou maior do que 64 anos	Eleitor facultativo

        Por exemplo, se executarmos o comando classe_eleitoral 17, deve ser mostrada na tela a mensagem “Eleitor facultativo”.

aprenda classe_eleitoral :ip

atribua "ip :ip

se :ip <= 15 [mostre [nao eleitor]]

se :ip >=16 & :ip <=17 [mostre [eleitor facultativo]]

se :ip >= 18 & :ip <= 64[mostre [eleitor obrigatório]]

se :ip >=65 [mostre [eleitor facultativo]]

fim

1. (4 pontos) Utilizando como modelo o aplicativo que calcula o fatorial de um número explicado no roteiro desta aula, escreva um aplicativo que solicita ao usuário um número, calcula a raiz quadrada e exibe o resultado, como mostrado na figura abaixo. Obs. Para calcular a raiz quadrada, deve ser utilizada a função raiz_quadrada  desenvolvida no roteiro de aula e não o comando Logo raizq.

aprenda aplicativo 1

limpetexto

mudeprecisão 200

mudenomefontetexto 130

mostre [********************************************************]

mostre [* esse programa calcula a raiz quadrada de um numero *]

mostre [********************************************************]

leia [Digite um numero inteiro maior ou igual a zero] "num

escreva [ofatorial de \ ]

escreva [\ é igual a \ ]

mostre fatorial :num

fim

aprenda raiz_quadrada :num

atrlocal "res 1

atrlocal "inc 1

repita 10 [