Trabalho; Fundamentos de Programação , Provas de Engenharia Mecânica

Baixe Trabalho; Fundamentos de Programação e outras Provas em PDF para Engenharia Mecânica, somente na Docsity! CENTRO UNIVERSITÁRIO DO LESTE DE MINAS GERAIS ENGENHARIA DE PRODUÇÃO, ENGENHARIA ELÉTRICA, ENGENHARIA MECÂNICA, ENGENHARIA DE MATERIAIS, ENGENHARIA SANITÁRIA E AMBIENTAL, ENGENHARIA CIVIL, ENGENHARIA QUÍMICA Disciplina: Fundamentos de Programação I Valor: 5 pontos Média: 3 pontos Professor: Cláudio Portes dos Santos Data: 14/03/2013 Nota: Natureza do Trabalho: Trabalho Prático I Aluno: DREYSON ROBERTO GUIMARÃES O trabalho deverá ser entregue até o dia da 1ª avaliação. 1. Assinale com um X os nomes de variáveis inválidos, justificando sua resposta. ( ) aBc (X) 3abc ( ) Menor_Valor ( ) Verdade (X) Begin ( ) nacao (X) Maior Valor ( ) Anos (X) média (X) Menor&Maior ( ) soma1 ( ) x (X) 3abc = variáveis ñ pode iniciar com números (X) Begin = caractere especifico ou palavra de comando do programa ñ pode ser chamada de variável; X) Maior Valor = palavra separada por espaço (X) média = palavra com acento ñ pode (X) Menor&Maior = caractere especial ñ pode, apenas ( _ ). 2. Escreva F (falso) ou V (verdadeiro) para os comandos de criação de variáveis abaixo levando em consideração a sintaxe do comando e o nome e tipo dado para as variáveis: (X) var media : integer; (X) var integer : valor1, valor2; ( ) var soma, cont : Integer; (X) var nomePessoa : real; (X) v1, v2, v3 of string; ( ) var nome1, nome2 : string; (X) var media : integer; = se é a variável ‘’media’’, for um calculo, uma divisão, deveria ser ( REAL ), pois toda divisão pode da um numero decimal, se ñ, deveria ser STRING. (X) v1, v2, v3 of string; = as variáveis deveriam estar finalizadas com dois pontos ‘’ : ’’ e depois sua classificação. (X) var integer : valor1, valor2; = a ordem das variáveis estão trocadas, ( interger ) deveria estar depois dos “ : “ e as variáveis (valor1, valor2) antes. (X) var nomePessoa : real; = se for um nome, deveria ser STRING e ñ REAL. 3. Resolva cada uma das expressões abaixo a fim de encontrar seu valor final. a) 15 mod 2 + 3 * 2 c) 3 mod 4 / 3 + 2 15 mod 2 = 1 3 mod 4 = 3 1 + ( 3 * 2 ) = 1 + 6 = 7 3 / 3 = 1 b) 3 div 4 mod 3 – 2 1 + 2 = 3 3 div 4 = 0 0 mod 3 = 0 0 – 2 = -2 4. Resolva cada uma das expressões lógicas abaixo a fim de encontrar F (Falso) ou V (Verdade). a) 10 mod 15 > 10 div c) 3 / (4 mod (3 + 2)) = 3 div 4 mod 2 10 mod 15 = 10 4 mod 5 = 4 3 div 4 = 0 0 mod 2 = 0 10 > 10 div 15 = 0 3 / 4 = 0 => não 10 > 0 => sim Não = ( F ) Sim = ( V ) b) 3 div 4 – 2 mod 3 = 6 3 div 4 = 0 0 - ( 2 mod 3 = 2 ) = 6 0 - 2 = 6 => não Não = ( F ) 5. João Menor irá fazer uma avaliação de matemática sobre geometria. Ele possui alguns exercícios para resolver e assim estudar para a prova. Tais exercícios são para calcular a área de um triângulo e de um quadrado. Ele resolveu os exercícios, mas não sabe se as respostas estão corretas. Ele possui um algoritmo que executa estes cálculos, entretanto, o mesmo não está na linguagem pascal e sim em Fluxograma. Portanto, transforme seu fluxograma (Figura 1) em linguagem pascal para que ele possa ler o valor da base e da altura, e calcular e escrever a área do triângulo e com os mesmos valores a área do quadrado. Program exerc_5 ; VAR BAS_TRI, ALT_TRI, BAS_QDR, AREA_TRI, AREA_QDR: REAL; Begin WRITE ( 'informe a medida da BASE do TRIANGULO: ' ); READ ( BAS_TRI ); WRITE ( 'informe a ALTURA do TRIANGULO: '); READ ( ALT_TRI ); WRITE ( 'informe a medida da BASE do QUADRADO: ' ); READ ( BAS_QDR ); AREA_TRI:= ( BAS_TRI*ALT_TRI ) / 2; AREA_QDR:= BAS_QDR*BAS_QDR; WRITELN ( ' A AREA DO TRIANGULO: ', AREA_TRI:0:2, 'm2' ); WRITELN ( ' A AREA DO QUADRADO: ', AREA_QDR:0:2, 'm2' ); End. 8. Represente as estruturas de decisão dos fluxogramas ao lado em comandos IF no pascal. Exemplo: IF (X > 3) THEN WRITE('ENTROU NO THEN') ELSE WRITE('ENTROU NO ELSE'); Program ERCI_8 ; VAR VALOR, SOMA:REAL; Begin WRITE ('INFORME O VALOR: '); READ ( VALOR ); IF (VALOR>2)THEN SOMA:=VALOR+1 ELSE SOMA:=VALOR+0; WRITE ( SOMA:0:2 ); End. Program ERC_8_b ; VAR X, Y: REAL; Begin WRITE ('INF. a cota X: '); READ ( X ); WRITE ('INF. a cota Y: '); READ ( Y ); IF (X > Y) THEN X:= X+1; IF (X > Y) THEN Y:= Y+X ELSE IF (Y<X)THEN X:=X; IF(Y<X)THEN y:=y; WRITELN ( 'Suposto valor de X: ', X:0:0); WRITELN ( 'Suposto valor de y: ', y:0:0); End. Program EXE_8_c ; VAR NOTA:REAL; Begin WRITE ('INF. sua NOTA: '); READ ( NOTA ); IF (NOTA>=60)THEN WRITE ( 'APROVADO') ELSE WRITE ('REPROVADO'); End.