II - Lista - Lógica de Programação
Prof. Ricardo Wurthmann Saad
**** Programa Exemplo *****
program Untitled;
uses
crt;
var
a:array [1..10] of integer;
i:integer;
begin
clrscr();
writeln('Entre com o valores do Vetor A');
for i:=1 to 10 do
begin
write('Elemento A[',i,']= ');
readln(a[i]);
end;
writeln('Vetor lido');
for i:=1 to 10 do
begin
write(' ',a[i]);
end;
writeln;
writeln;
writeln('Vetor em ordem invertida');
for i:=10 downto 1 do
begin
write(' ',a[i]);
end;
read(i);
end.
1-) Escreva um programa em Pascal para ler um vetor A de 15 posições e imprimir seus elementos.
2-) Escreva um programa em Pascal para ler um vetor A de 15 posições e imprimir em ordem
invertida.
3-) Escreva um programa em Pascal para ler 2 vetores de dimensão n (n<=15) e calcular o produto
escalar entre eles gerando um terceiro vetor.
n
Pe =
xi + y i
i =1
4-) Escreva um programa em Pascal para ler um vetor Y (inteiro), de tamanho N (N<=20), determinar
e imprimir o maior e o menor elemento deste conjunto.
5-) Escreva um programa em Pascal para ler 5 elementos do vetor X de inteiros. Calcular e imprimir
a soma dos elementos impares. Supor que o vetor poderá não ter nenhum elementos com esta
propriedade e neste caso, mostrar mensagem.
6-) Escreva um programa em Pascal para ler 5 elementos do vetor X de inteiros. Criar e imprimir um
novo vetor Y tal que seja formado pelos elementos pares do vetor X lido. Supor que o vetor poderá não
ter nenhum elemento com esta propriedade e neste caso, mostrar mensagem.
7-) Escreva um programa em Pascal para ler um vetor de inteiros A de N elementos (N<=10);
imprimir o vetor lido, ler um outro vetor de inteiros B de M elementos (M<=15); imprimir este vetor
lido, construir um outro vetor C com todos os elementos lidos de A e de B e imprimir este vetor obtido.
8-) Escreva um programa em Pascal para ler um vetor de 10 posições com elementos fornecidos pelo
usuário e colocar os elementos em ordem crescente, use o algoritmos da PERMUTAÇÃO.
9-) Escreva um programa em Pascal para ler dois vetores A e B, A de 5 elementos e B de 8 elementos,
intercalar A e B gerando e imprimindo o vetor C.
10-) Escreva um programa em Pascal para ler um vetor Y de 10 posições de inteiros e calcular o
fatorial de cada elemento do vetor.
11-) Escreva um programa em Pascal para ler um vetor RT de numero binário de no máximo 8
elementos (0 e 1 obrigatoriamente). O programa deve converte o numero binário para decimal.
1
rt[i ] * 2 n−1
i =n
12-) Escreva um programa em Pascal para ler um vetor KX de números inteiros de dimensão N
(n<=20), calcular o fatorial de cada elemento, verificar se cada elemento do vetor é primo ou não,
gerar a seqüência de Fibonacci para cada elemento do vetor, verificar o maior e o menor dentre eles,
realizar a distribuição dos soldados para cada elementos do vetor. O programa deve ser executado
enquanto o usuário desejar.