O Fundamento da Computação
Por: dehmcs • 16/8/2018 • Trabalho acadêmico • 1.616 Palavras (7 Páginas) • 136 Visualizações
CENTRO UNIVERSITÁRIO DE MINAS GERAIS
TRABALHO PRÁTICO 2
Disciplina: Fundamentos da Computação I Turma: CEMDEP23A
Prof.: Cláudio Portes dos Santos Data: 22/10/2014
Alunas: Débora Moura
Laís Azevedo
Larissa Assis
Tuane Nara
1. Escreva um programa para ler um valor inteiro e escrever se ele está ou não no intervalo de 1 a 10 inclusive.
Program trabalho02 ;
var numerointeiro: integer;
Begin
write ('Informe um valor inteiro : ');
read (numerointeiro) ;
IF ( numerointeiro>=1) and (numerointeiro<=10) then
Write('valor está dentro do intervalo. ')
ELSE
write ('Valor está fora do intervalo. ');
End.
2. Uma empresa vai dar uma gratificação aos empregados que tenham mais de 1 ano de serviço: 10% para os que tenham menos de 10 anos e 25 % para os demais. Calcule a gratificação de um dado funcionário, dado o seu salário e o tempo de serviço.
Program atividade2trabalho2;
var gratificacao, salario, tempo : real;
Begin
write ('informe o tempo de serviço: ');
read (tempo);
write ('informe o salário: ');
read(salario);
IF (tempo>1) then
gratificacao:=(10/100)*(100)
else
gratificacao:=(25/100)*(100);
write ( 'a gratificação foi :', gratificacao:0:2,('%')) ;
End.
3. Escreva um programa que dada a idade da pessoa, retorne se a pessoa é um bebê, uma criança, um adolescente ou um adulto. A saber:
0 a 3 anos – bebê
4 a 10 anos – criança
11 a 18 – adolescente
Acima de 18 – adulto.
Program atividade3trabalho2;
var idade : integer;
Begin
Write ('Informe a idade :') ;
read (idade);
IF (idade<=3) then
write ('é um bebe. ')
else
IF (idade<=10) then
write ('é uma criança. ')
else
if (idade<=18) then
write ('é um adolescente. ')
else
write ('é um adulto. ');
End.
4. Dado três valores X, Y, Z, verificar se eles podem ser os comprimentos dos lados de um triângulo, e se forem, verificar se é um triângulo equilátero, isósceles ou escaleno. Se eles não formarem um triângulo, escrever uma mensagem.
Program TRIANGULO ;
VAR X, Y, Z: REAL;
Begin
WRITELN ('INF. OS VALORES DOS LADOS DO TRIANGULO: ');
READ(X, Y, Z);
IF (X< Y + Z) AND (Y
begin
if (X = Y) and (Y = Z) then
begin
writeln ('Triângulo eqüilátero.');
end
ELSE
Begin
if (X = Y) or (X = Z) or (Y = Z) then
begin
writeln ('Triângulo isósceles.');
end
ELSE
Begin
writeln ('Triângulo escaleno.');
end;
end;
end
else
begin
writeln ('Não é um triângulo.');
end;
end.
[pic 1]
5. Considerando uma equação do segundo grau da forma ax²+bx+c, construa um programa que receba os valores dos coeficientes (a, b e c) e escreva os valores das raízes. Escrever uma mensagem se não existirem raízes para a equação.
Program atividade5;
VAR A, B, C, DELTA, R1, R2: real;
Begin
writeln('Programa Calcula Raiz equação segundo grau: ax2 + bx + c');
writeln;
write('Digite o coeficiente (A), (B) e (C): ' );
read (A, B, C);
DELTA := SQR(B) - 4 * A * C ;
if (DELTA < 0) then
writeln ('Não existem raízes para a equação')
else
if (DELTA = 0) then
begin
R1 := - B / ( 2 * A );
R2 := R1 ;
Writeln (' As raízes são iguais: ‘, R1);
End
else
Begin
R1 := ( - B + SQRT( DELTA )) / ( 2 * A );
R2 := ( - B - SQRT( DELTA )) / ( 2 * A );
writeln ( ' As raízes são diferentes: ' , R1 , ' e ', R2 );
End;
End.
6. Escreva um programa que se leia 3 valores inteiros. Se o primeiro valor for pare o segundo ímpar, escreva a soma do primeiro com o terceiro. Se o primeiro for ímpar e o segundo par, escrever a multiplicação do primeiro pelo terceiro. Caso contrário, escrever o terceiro.
...