O Arrays Programação

ATIVIDADE AVALIATIVA – 30 PONTOS ARRAYS – REPETIÇÕES

Luan Gonçalves Santos RA: 0055602

1. (5,0) Faça um algoritmo conte de 1 a 100 e a cada múltiplo de 10 emita uma mensagem:

“Múltiplo de 10”.

Algoritmo Multiplos_de_10

//Este loop de programação contará de 1 a 100 e a cada múltiplo de 10 emita uma mensagem “múltiplo de 10”.

Var i,        :integer;

n:vetor[1..100]        :integer;

Begin

Write(‘os múltiplos de 10 de 1 a 100 são!’);

For i := 1 to 100 do

If (i mod 10 == 0) then

Write(‘os múltiplos de 10:' ,n[i]:=i); End;

End;

End.

1. (5,0) Escreva um algoritmo que armazene em um vetor todos os números inteiros de

100 a 1 (ordem decrescente). Após isso, o algoritmo deve imprimir todos os valores armazenados.

Algoritmo Inteiro

//Este loop de programação armazenará e exibirá números inteiros de 100 a 1. Var i, numeros :vetor[100..1]        :integer;

Begin

For i := 100 to 1 do numeros[i]:= i;

End;

//Loop para exibição na tela For i:= 100 to 1 do

Write (‘Os números inteiros armazenados são: ’ ,números[i]);

End;

End.

1. (10,0) Escrever um algoritmo que receba do usuário cinco valores inteiros, calcular a Sua média, e escrever na tela os números que são superiores à média.

Algoritmo Valores

//Este programa receberá 5 números, vai calcular sua média e exibirá os números maiores que ela.

Var i,        : integer;

valores :vetor[1..5] :real; media :vetor[1..5]        :real; numeros :vetor[1..2] :real;

Begin

Write (‘Favor fornecer 5 números quaisquer!’);

Read (valores[i]); End;

//CÁLCULO DA MÉDIA

media[i] := (valores[i, 1] + valores[i, 2] + valores[i, 3] + valores[i,4] + valores[i, 5])/ 5;

For i := 1 to 5 do media[i]:=i

End; End;

//Loop para exibição na tela

For i:= 1 to 5 do

If (valores[i] > media[i]) then

Write (‘Os números maiores que a média são:' ,numeros[i]); End;

End;

End.

1. (10,0) Escreva um algoritmo que receba do usuário três valores para os lados de um Triângulo. O algoritmo deve verificar se o triângulo é equilátero (todos lados iguais), Isósceles (dois lados iguais) ou escaleno (todos lados diferentes).

Algoritmo Triângulo

//Este programa receberá 3 valores para lados de um triângulo e deve verificar se o triângulo e equilátero, isósceles ou escaleno.