Baixe Exercícios de Algoritmos com Vetores e Matrizes: Engenharia Ambiental e outras Exercícios em PDF para Linguagem de Programação, somente na Docsity!
UNIVERSIDADE DO ESTADO DO PARÁ
CENTRO DE CIÊNCIAS NATURAIS E TECNOLOGIA
CURSO DE ENGENHARIA AMBIENTAL
DISCIPLINA MÉTODOS COMPUTACIONAIS PARA ENGENHEIRA
PROFESSOR ARMANDO HAGE
ATIVIDADES: ALGORITMOS - AULA 7 - EXERCÍCIO
COM VETORES E MATRIZES
ALUNO(A): GILSON DANIEL CABRAL PAIXÃO
ALUNO(A): FILIPE DE MELO ROCHA
Belém-PA 2019
- Faça um programa que carregue um vetor de seis elementos numéricos inteiros, calcule e mostre: a) A quantidade de números pares; b) Quais os números pares; c) A quantidade de números ímpares; d) Quais os números ímpares. Resposta Exercício 1: program Vetor6Elementos; uses crt; var vet:array[1..6] of Integer; i,cont,cont2,pares,impares,Qpares,Qimpares : integer; begin Cont := 0; Cont2 := 0; Writeln('Digite os 6 números'); For i:=1 to 6 do Readln(vet[i]); Writeln('Os números pares são : '); For i:= 1 to 6 do begin pares := (vet[i] mod 2); if (pares= 0) then begin Writeln(vet[i]); Cont := (cont + 1); end; end; Writeln('Os números ímpares são :'); For i:=1 to 6 do begin impares := (vet[i] mod 2); if (impares <> 0) then Begin Writeln(vet[i]); Cont2 := (Cont2 + 1); end; end; Writeln('A quantidade de números pares :'); Writeln(Cont); Writeln('A quantidade de números ímpares :'); Writeln(Cont2);
vet:array[1..10] of Integer ; i:Integer; Begin for i := 1 to 10 do begin WriteLn('Digite o ',i,'° valor'); Read(vet[i]); for i := 1 to 1 do begin WriteLn(vet [11-1]:2); WriteLn(vet [11-2]:2); WriteLn(vet [11-3]:2); WriteLn(vet [11-4]:2); WriteLn(vet [11-5]:2); WriteLn(vet [11-6]:2); WriteLn(vet [11-7]:2); WriteLn(vet [11-8]:2); WriteLn(vet [11-9]:2); WriteLn(vet [11-10]:2); end; end end.
- Faça um programa que carregue um vetor com 15 posições, calcule e mostre: a) O maior elemento do vetor e em que posição esse elemento se encontra; b) O menor elemento do vetor e em que posição esse elemento se encontra. Resposta Exercício 4: Program Vetor15Posicoes ; uses crt; var vet:array[1..15] of integer; i,PosMaior,maior,PosMenor,menor,op:integer; Begin while(true) do begin clrscr; writeln('----------------------------------');
writeln(' MENU '); writeln('----------------------------------'); writeln('1-informe os valores dos vetores'); writeln('2-lista dos vetores'); writeln('3-maior elemento e sua posição'); writeln('4-menor elemento e sua posição'); writeln('0-para sair'); writeln('----------------------------------'); write('escolha uma opção: '); read(op); case op of 0:begin writeln(' você escolheu sair, obrigado por usar o programa'); readkey; exit; end; 1:begin writeln('informe os valores'); for i:=1 to 15 do begin write('digite o ',i,'°. número do vetor: '); readln(vet[i]); end; //fim for readkey end; 2:begin writeln('lista dos valores'); for i:=1 to 15 do begin writeln('vet[',i,']: ',vet[i]); end; readkey end; 3:begin for i:=1 to 15 do begin if(vet[i]>maior)then begin maior:=vet[i];
Program MenuNomeN; const limite_max=1000; var op,i, limite:integer; nome:array [1.. limite_max] of string; pesquisar:string; begin while (true) do begin writeln(' ---------------- MENU ---------------------'); writeln(''); writeln('1 - CADASTRAR NOMES'); writeln('2 - PESQUISAR NOME'); writeln('3 - LISTAR NOMES'); writeln('0 - PARA SAIR'); writeln(''); writeln(' -------------------------------------------'); writeln('Informe sua opção'); readln(op); writeln(''); case (op) of 1: begin writeln('Informe quantos nomes você pretende cadastrar: '); writeln(''); readln(limite); writeln(''); for i:=1 to limite do begin writeln('Informe o ',i,'° nome ',); readln(nome[i]); end; end; 2: begin writeln('Informe o nome procurado '); readln(pesquisar);
for i:=1 to limite do begin if (pesquisar = nome[i]) then begin writeln('O nome pesquisado consta na posição ',i,'!'); writeln(''); end; if (pesquisar <> nome[i]) then begin writeln('O nome não consta na posição',i,'!!!'); writeln(''); end; end; end; 3: begin writeln('Os nomes informados foram os seguintes: '); writeln(''); for i:=1 to limite do begin writeln('O nome da posição ',i,' é de: ', nome[i]); end; end; 0: begin writeln('Você escolheu sair!'); writeln('Obrigado por usar nossa programa!'); exit; end; else begin writeln('Informe uma opção válida'); writeln('Os valores estão presentes no MENU'); end; end; end; end.
