trabalho de Logica de Programação

Prévia do material em texto

Disciplina: Lógica Prof.(a): Vinícius Lemos 
Nome: 
Matrícula: 
Cidade: Fortaleza
Unidade: 
Turno: 
2020.1
 Jorge Diego Ferreira de Oliveira	 UP18200473
 13 de Maio Noite 2		
INSTRUÇÕES E OBSERVAÇÕES:
1. Preencha o cabeçalho corretamente.
2 As questões objetivas valem 0,5 pontos cada.
3. as questões discursivas valem 3 pontos cada.
4. Trabalho pode ser em dupla, no máximo.
5. O trabalho vale 50% da nota final.
6. Enviar via Whatszap (85) 98771.3888
7. Data Limite, 30 de Abril.
8. Boa Sorte
1) Qual alternativa não apresenta um comando válido, em Pascal, para testar se uma variável inteira de nome ‘x’ pode valer 1, 2, 3 ou 4?
a) if (x>=1) and ( x<=4) then;
b) if ( x>0) and (x< 5) then;
c) if ( x<1) and ( x>4) then;
d) if (x=1) or (x=2) or ( x=3) or (x=4) then;
2) Considere a expressão a seguir. 
Caso queiramos escrever tal expressão usando linguagem Pascal, qual das alternativas corresponde a uma descrição correta da expressão:
a) z:= ( x + b *2 - 2/ y * a)
b) z := x + (((b*b) – 2 ) / (y * a))
c) z := x + (( B*2 – 2) / (y * a ))
d) N/A
3) Sendo a e b variáveis inteiras em um programa, a expressão lógica:
not ((A>B) or (A =B))
é equivalente a:
a) (A<= B)
b) (A < B)
c) not (A > B)
d) not (A = B)
4) Considerando a linguagem de programação Pascal, analise o trecho do código fonte, a seguir:
Program Q1 ;
Var
X, Cont : integer;
Begin
 X:= 10;
 while cont <= 10 do
 begin
 x:= x+2;
 Cont := Cont + 1;
 end;
 writeln (x);
 
End.
Assinale a alternativa que contém o valor CORRETO para a variável X, que será exibido ao término de sua execução: 
a) 28
b) 30
c) 32
d) N\A
 Jorge Diego Ferreira de Oliveira UP18200473
 13 de Maio Noite 2
5) Assinale a alternativa que é um tipo Variável em pascal :
a) If
b) End
c) String 
d) Begin
 6) Complete abaixo os seguintes espaços em branco (___) no programa e marque a alternativa correta. 
Receba um número e verifique se está entre 100 e 200. Se estiver na faixa, imprimir: “Você digitou um número entre 100 e 200”, Se não estiver na faixa, imprimir:" Você digitou um número fora da faixa entre100 e 200. 
Program Q2 ;
Var
A : real;
Begin
 writeln ('digite um valor');
 readln (A);
 If (A ____ 100) and (A ____ 200) then
 begin
 writeln ('Você Digitou um número entre 100 e 200')
 end
 Else
 begin
 writeln ('Você digitou um número fora da faixa entre 100 e 200');
 end;
 
End.
a) = e =
b) >= e <=
c) <= e >
d) >= e <
7)Qual alternativa apresenta um comando válido, em Pascal, para testar se uma variável inteira de nome ‘x’ é número par?
a) if ( x mod 2 = 0) then;
b) if ( x mod 2 = 1) then;
c) if ( x/2 = 0) then;
d) N/A
8) Considere a seguir. 
· z,x,b,y,a,b são variáveis do tipo Real;
· “x” tem valor 2 ( x:=2;); “b” tem valor 10 (b :=10); “y” tem valor 1 (y:= 1); “a” tem valor 5 (a :=5);
· z := x + (((b*b) – 2 ) / (a * y))
Qual Valor da variável z :
a) z tem valor 21,6
b) z tem valor 10,3
c) z tem valor 0
d) N/A
 Jorge Diego Ferreira de Oliveira UP18200473
 13 de Maio Noite 2
9) Escreva um aplicativo em Pascal que mostra todos os números inteiros Pares de 1 até 10.000. 
Program Pares ;
var
i: integer;
Begin
	for i:=1 to 10000 do
	begin
	i:= i +1 ;
	write (i);
	if (i<10000) then
	write (' - ')
	else
	write ('.');
	end; 
End.
10) Faça um programa em Pascal que receba o peso de UM CASAL, calcule e imprima na tela a média aritmética entre eles, caso a média aritmética seja:
♦ Media maior ou igual a 70 kg – Imprima na tela “PROCURAR UM NUTRICIONISTA.” 
♦ Media menor que 70 KG – imprima na tela “Parabéns, vocês estão na medida certa”. 
program PesoMedia;
var
P1, P2, MD: Real;
begin
WriteLn('Digite o primeiro peso');
ReadLn(P1);
WriteLn('Digite o segundo peso');
ReadLn(P2);
MD:=((P1+P2)/2);
if MD >=70 then 
begin
WriteLn(MD:2:2, ' Procurem um nutricionista.');
end;
if MD<70 then
begin
WriteLn(MD:2:2, ' Parabéns, vocês estão na medida certa.');
end;
readkey;
end.