Bem to postando os exercicios de LTP2, então vamos tira a ferrugem e pratica um pouco, assim que der estarei coloca aqui no blog os resultados, boa sorte e um bom fim de semana!
1. Elabore um programa que leia um VetorA e um VetorB de 20 elementos do tipo real, construa um VetorC de mesma dimensão com o resultado da média do VetorA com o VetorB.
2. Uma empresa premiou 7 funcionários com um aumento de salário. Leia e armazene em dois vetores os nomes e os salários destes funcionários. Calcule um aumento de 10% para os salários e mostre os nomes e os novos salários.
3. Um curso de Informática possui 10 alunos em uma turma. Elabore um programa que leia os nomes e as idades destes alunos e mostre o nome e a idade do aluno mais velho e do aluno mais novo. Utilize vetores para os nomes e as idades.
4. Elabore um programa para ler um vetor de 10 números inteiros, calcular e mostrar:
- quais números são pares e qual a quantidade de números impressos;
- quais números são divisíveis por 3 e a média aritmética destes números.
EXERCÍCIO DE VETOR
5) Leia um vetor de 12 posições e em seguida ler também dois valores X e Y quaisquer correspondentes a duas posições no vetor. Ao final seu programa deverá escrever a soma dos valores encontrados nas respectivas posições X e Y.
As novas gerações musicais
Há 13 anos
Este comentário foi removido pelo autor.
ResponderExcluirResposta postada por ***MAIARA C.***
ResponderExcluirProgram mediavetor ;
usescrt;
type
A=array [1..20] of real;
B=array [1..20] of real;
C=array [1..20] of real;
var
media:real
I:integer;
Begin
for I:=1 to 20 do
begin
writeln('Vetor A');
readln(A[I]);
writeln('Vetor B');
readln(B[I]);
media:=(A[I] + B[I])/2;
C[I]:=media;
writeln('Vetor C');
writeln(C[I]:2:2);
end;
End.
Sinara do Valle
ResponderExcluirprogram elementos;
uses crt;
type
vetorA=array[1..4] of real;
vetorB=array[1..4] of real;
vetorC=array[1..4]of real;
var
I:INTEGER;
A:vetorA;
B:vetorB;
C:vetorC;
media:real;
Begin
textbackground(0);
textcolor(6);
For I:=1 to 4 do
begin
writeln('digite valor a[i]');
readln(a[i]);
writeln('digite valor b[i]');
readln(b[i]);
end;
For I:=1 to 4 do
begin
c[i]:=a[i]+b[i];
end;
media:=c[i]/20;
writeln('a media ‚',c[i]:2:2);
readln;
readln;
end.
Gilberson do Valle
ResponderExcluirprogram elementos;
uses crt;
type
vetorA=array[1..4] of real;
vetorB=array[1..4] of real;
vetorC=array[1..4]of real;
var
I:INTEGER;
A:vetorA;
B:vetorB;
C:vetorC;
media:real;
Begin
textbackground(1);
textcolor(0);
For I:=1 to 4 do
begin
writeln('escreva o valor a[i]');
readln(a[i]);
writeln('escreva o valor b[i]');
readln(b[i]);
end;
For I:=1 to 4 do
begin
c[i]:=a[i]+b[i];
end;
media:=c[i]/20;
writeln('a media é',c[i]:2:2);
readln;
readln;
end.
Bianca Nunes
ResponderExcluirProgram curso;
Uses CRT;
Type
VetorA= array[1..10] of string ;
VetorB = array[1..10] of integer;
Var
I: integer;
Idade:A;
Nome: B;
Nomevelho,nomenovo:string;
Idadevelho,idadenovo:integer;
C: integer;
Begin
Textbackground(0);
Textcolor(4);
Clrscr;
C: = 0 ;
Nomevelho:=nome[1];
Idadevelho:= idade[1];
Idadenovo:= idade[1];
For I: =1 to 10 do
Begin
Gotoxy(10,12);
Writeln(‘Digite uma idade’);
Gotoxy(10,13);
Readln(idade);
For I: =1 to 10 do
Begin
If ( idade< idadenovo) then
Idadenovo:= idade;
Nomenovo:= nome;
End;
For I: =1 to 10 do
Begin
If ( idade> idadevelho) then
Idadevelho:= idade;
Nomevelho:= nome;
End;
Gotoxy( 10,17);
Writeln(‘nomevelho,idadevelho’);
Gotoxy(10,18);
Writeln(‘nomenovo,idadenovo’);
End.
Isadora
ResponderExcluirProgram curso;
UsesCRT;
Type
VetorA= array[1..10] of string ;
VetorB = array[1..10] of integer;
Var
I: integer;
Idade:A;
Nome: B;
Nomevelho,nomenovo:string;
Idadevelho,idadenovo:integer;
C: integer;
Begin
Textbackground(0);
Textcolor(4);
Clrscr;
C: = 0 ;
Nomevelho:=nome[1];
Idadevelho:= idade[1];
Idadenovo:= idade[1];
For I: =1 to 10 do
Begin
Gotoxy(10,12);
Writeln(‘Digite uma idade’);
Gotoxy(10,13);
Readln(idade);
For I: =1 to 10 do
Begin
If ( idade< idadenovo) then
Idadenovo:= idade;
Nomenovo:= nome;
End;
For I: =1 to 10 do
Begin
If ( idade> idadevelho) then
Idadevelho:= idade;
Nomevelho:= nome;
End;
Gotoxy( 10,17);
Writeln(‘nomevelho,idadevelho’);
Gotoxy(10,18);
Writeln(‘nomenovo,idadenovo’);
End.
Taffarel Ribeiro.
ResponderExcluirProgram media_ex1 ;
type
vetorA = array [1..20] of real;
vetorB = array [1..20] of real;
vetorC = array [1..20] of real;
var
A:vetorA;
B:vetorB;
C:vetorC;
I:integer;
Begin
for I:= 1 to 20 do
begin
readln(A[I]);
readln(B[I]);
end;
for I:= 1 to 20 do
begin
C[I]:= (A[I] + B[I])/ I;
writeln(C[I]);
end;
End.
Daniella
ResponderExcluirProgram curso;
UsesCRT;
Type
VetorA= array[1..10] of string ;
VetorB = array[1..10] of integer;
Var
I: integer;
Idade:A;
Nome: B;
Nomevelho,nomenovo:string;
Idadevelho,idadenovo:integer;
C: integer;
Begin
Textbackground(0);
Textcolor(4);
Clrscr;
C: = 0 ;
Nomevelho:=nome[1];
Idadevelho:= idade[1];
Idadenovo:= idade[1];
For I: =1 to 10 do
Begin
Gotoxy(10,12);
Writeln(‘Digite uma idade’);
Gotoxy(10,13);
Readln(idade);
For I: =1 to 10 do
Begin
If ( idade< idadenovo) then
Idadenovo:= idade;
Nomenovo:= nome;
End;
For I: =1 to 10 do
Begin
If ( idade> idadevelho) then
Idadevelho:= idade;
Nomevelho:= nome;
End;
Gotoxy( 10,17);
Writeln(‘nomevelho,idadevelho’);
Gotoxy(10,18);
Writeln(‘nomenovo,idadenovo’);
End.
Oi grupo Insanos do Faetec, ainda faltam alguns alunos postarem as respostas dos exercícios aqui no blog. Por favor, fale com seus colegas que eles precisam postar as respostas aqui no blog de vcs.
ResponderExcluirAbraços!!
Professora Aline
Este comentário foi removido pelo autor.
ResponderExcluirProgram EXERCICIO01;
ResponderExcluiruses crt;
type
vetorA = array [1..20] of real;
vetorB = array [1..20] of real;
vetorC = array [1..20] of real;
var
A:vetorA;
B:vetorB;
C:vetorC;
I:integer;
Begin
textbackground(15);
textcolor(3);
clrscr;
for I:= 1 to 20 do
begin
for I:= 1 to 20 do
begin
readln(A[I]);
readln(B[I]);
C[I]:= (A[I] + B[I])/ I;
writeln(C[I]);
readln;
end;
End.
Queridos alunos,
ResponderExcluirgostaria que vcs ajudassem aos colegas a responderem aos desafios nos blogs. Apresentem ideias, sugestões, dicas de como poderão resolver os desafios.
Abraços!!
Professora Aline