Exercicios Fundamentos da Computação

FUNDAMENTOS DA COMPUTAÇÃO I

1) Construa um algoritmo que calcule o peso ideal de uma pessoa. Dados de entrada: altura e sexo.

Program P ;
VAR A, P: REAL;
S:CHAR;
Begin WRITELN (' DIGITE SUA ALTURA:'); READLN (A); WRITELN ('DIGITE M, SE VOCÊ FOR HOMEM OU F, SE FOR MULHER'); READLN (S); IF (S='M')THEN BEGIN P:=(72.7*A)-58; WRITELN ('SEU PESO IDEAL É : ',P:0:2); END ELSE BEGIN P:= (62.1*A)-44.7; WRITELN ('SEU PESO IDEAL É: ',P:0:2); END; End.

1) Construa um algoritmo que receba três números inteiros e verifique qual o maior.

Program NUM ;
VAR N1, N2, N3: INTEGER; Begin WRITELN ('DIGITE TRÊS NÚMEROS INTEIROS: '); READLN (N1, N2, N3); IF (N1>N2) AND (N1>N3) THEN BEGIN WRITELN ('O MAIOR NÚMERO DIGITADO FOI: ',N1); END; IF (N2>N1) AND (N2>N3) THEN BEGIN WRITELN ('O MAIOR NÚMERO DIGITADO FOI: ', N2); END; IF (N3>N1) AND (N3>N2) THEN BEGIN WRITELN ('O MAIOR NÚMERO DIGITADO FOI: ',N3); END ; End.

2) Construa um algoritmo que receba o código de um programa e o classifique de acordo com a tabela abaixo:
CÓDIGO
CLASSIFICAÇÃO
1
ALIMENTO NÃO PERECÍVEL
2 A 4
ALIMENTO PERECÍVEL
5 E 6
HIGIENE PESSOAL
7
LIMPEZA E UTILIDADES DOMÉSTICAS
8 A 15
VESTUÁRIO
QUALQUER OUTRO
CÓDIGO INVÁLIDO

Program CODIGO ;
VAR CODIGO:INTEGER; Begin WRITELN ('DIGITE O CÓDIGO DO PRODUTO: '); READLN (CODIGO); IF (CODIGO=1) THEN BEGIN WRITELN ('ALIMENTO NÃO-PERECÍVEL'); END; IF (CODIGO>1) AND (CODIGO=8) AND (CODIGO15) THEN BEGIN WRITELN ('CÓDIGO INVÁLIDO'); END End.

4) NÃO É PRA FAZER.

5) Dado o algoritmo Pascal a seguir, pede-se:
Program Exemploav2 ;
VAR X, Y, A , B:INTEGER; Begin WRITELN ('ENTRE COM OS VALORES INTEIROS PARA X, Y, A e B'); READLN (X,Y,A,B); IF (X>Y) THEN IF (A>B) THEN BEGIN