procedimentos e funções

1.Faça um programa que leia dois valores e chame uma sub-rotina (procedure) que receba essa duas variáveis e troque o seu conteúdo, ou seja, esta rotina é chamada passando duas variáveis A e B por exemplo, e após a execução da rotina A conterá p valor de B e B terá o valor de A.

Program Pzim ;
var
x,y:integer;

procedure troca(var a,b:integer);
var
temp:integer;
begin
temp:=a;
a:=b;
b:=temp;

end;

Begin
writeln('Digite o numero A:');
readln(x);
writeln('Digite o numero B:');
readln(y);

troca(x,y);

writeln('O valor de A trocado por B e:',x);
writeln('O valor de B trocado por A e:',y);
End.

2.Altere o programa anterior de forma a ler 4 valore em 4 variáveis: A, B C, D. Use a rotina “Troca_valores” implementada no programa anterior para a troca de valores de A com B, depois de C com D, mostre como ficaram os valores da variável, e para concluir destroque seus conteúdos mostrando novamente na tela como ficaram estas variáveis.

Program Pzim ;
var
x,y,z,w:integer;

procedure troca(var a,b:integer);
var
temp:integer;
begin
temp:=a;
a:=b;
b:=temp;
end;

Begin
writeln('Digite o numero A:');
readln(x);
writeln('Digite o numero B:');
readln(y);
writeln('Digite o numero C:');
readln(z);
writeln('Digite o numero D:');
readln(w);

troca(x,y);
troca(z,w);

writeln('O valor de A trocado por B e:',x);
writeln('O valor de B trocado por A e:',y);
writeln('O valor de C trocado por D e:',z);
writeln('O valor de D trocado por C e:',w);

troca(x,y);
troca(z,w);

writeln;
writeln('O valor de A inicial:',x);
writeln('O valor de B inicial:',y);
writeln('O valor de C inicial:',z);
writeln('O valor de D inicial:',w);
End.

3.Faça um programa que leia 2 valore e chame uma sub-rotina que receba estes 2 valores de entrada e retorne o maior valor na primeira variável e o segundo maior valor na segunda variável. Escreva o conteúdo dos dois valores na tela.

Program Maior_Menor;

var

valor1, valor2: integer;

procedure ledados;

Begin

writeln('Informe um valor: ');

readln(valor1);

writeln('Informe um segundo valor: ');

readln(valor2);

writeln('');

end;

procedure escrevedados;

Begin

if(valor1>valor2)then

writeln('O primeiro valor eh: ',valor1);

writeln('O segundo valor eh: ',valor2)

else

writeln('O primeiro valor eh: ',valor2);

writeln('O segundo valor eh: ',valor1);

end;

Begin

ledados;

escrevedados;

End.
4.Faça um programa que leia três valores e chame uma sub-rotina que receba estes 3 valores de entrada e retorne o maior valor entre estes três valores na primeira variável, o segundo maior valor da segunda variável e o terceiro maior valor na terceira variável. Exiba os valores ordenados na tela (sugestão: use a sub-rotina troca-valores).

Program Pzim ;

type prod = record
codMerc: integer;
descricao:string;
dataCadastro:integer;
ultimaSaida:integer;
saldoEstoque:integer;
end;

var
cont,m,c:integer;
cadastro: array[1..1000] of prod;

Begin
m:=0;
for cont:=1 to 2 do
begin
writeln('Codigo da mercadoria:');
readln(cadastro[cont].codMerc);
writeln('Descricao:');
readln(cadastro[cont].descricao);
writeln('Data de Cadastro:');
readln(cadastro[cont].dataCadastro);
writeln('Ultima saida:');
readln(cadastro[cont].ultimaSaida);
writeln('Saldo em estoque:');
readln(cadastro[cont].saldoEstoque);
writeln(' ----- ');
end;

clrscr;
writeln('TODOS OS PRODUTOS');
for cont:=1 to 2 do
begin
writeln('Codigo da mercadoria: ',cadastro[cont].codMerc);
writeln('Descricao: ',cadastro[cont].descricao);
writeln('Data de Cadastro: ',cadastro[cont].dataCadastro);
writeln('Ultima saida: ',cadastro[cont].ultimaSaida);
writeln('Saldo em estoque: ',cadastro[cont].saldoEstoque);
writeln(' ----- ');
end;

5) Faça um programa que leia um número e gere todos os números primos entre 1 e este número fornecido, exibindo-os na tela. O programa deve ter uma sub-rotina que determine se o determinado número é ou não primo.

Program Pzim ;
var
k,nm,num: integer;
ehPrimo: boolean;

procedure testaPrimo(a:integer);
var
cont,j,i :integer;

begin
for i:=1 to a do
begin
j:=(a mod i);
if(j=0)then
cont:= cont+1;
end;
if(cont=2)then
ehPrimo:=true
else
ehPrimo:=false;
end;


Begin
writeln('Digite um numero:');
readln(nm);
ehPrimo:=false;
for k:=1 to nm do
begin
testaPrimo(k);
if (ehPrimo) then
write(k ,'-');
end;

End.

6.Usando uma sub-rotina que exiba uma moldura na tela em uma janela definida pelo usuário, faça outra sub-rotina que escreva uma mensagem na tela pedindo para ler 2 números (um de cada vez), leia estes números e retorne para o programa principal. A mensagem e as leituras dos números devem ser feita dentro de uma janela com moldura. Em seguida exiba a média aritmética simples destes números também usando uma janela com molduras.

--------------

7) Faça um programa que leia 5 números. Este programa deve ter um menu que permita ao usuário escolher qual opção de cálculo ele deve realizar: média aritmética simples, média ponderada, desvio padrão, maior valor e menor valor . A leitura dos valores também deve ser uma das opções do menu.

Program Pzim ;
var
op:integer;
trava:boolean;
n1,n2,n3,n4,n5:integer;


procedure p1;
begin
trava:=false;
writeln('1 - Digite o valor:');
read(n1);
writeln('2- Digite o valor:');
read(n2);
writeln('3 - Digite o valor:');
read(n3);
writeln('4 - Digite o valor:');
read(n4);
writeln('5 - Digite o valor:');
read(n5);
end;

procedure p2;
var
media:real;
begin
media:=(n1+n2+n3+n4+n5)/5;

writeln('Media aritmetica e: ',media:2:2);
readln;
end;

procedure p3;
var
p1,p2,p3,p4,p5:integer;
media:real;
begin
writeln('Digite o peso 1:');
readln(p1);
writeln('Digite o peso 2:');
readln(p2);
writeln('Digite o peso 3:');
readln(p3);
writeln('Digite o peso 4:');
readln(p4);
writeln('Digite o peso 5:');
readln(p5);

media:=((n1*p1)+(n2*p2)+(n3*p3)+(n4*p4)+(n5*p5))/(p1+p2+p3+p4+p5);

writeln('A media ponderada e: ',media:2:2);
readln;
end;

procedure p5;
var
m:integer;
begin
if (n1>n2)and(n1>n3)and(n1>n4)and(n1>n5) then
m:=n1;
if (n2>n1)and(n2>n3)and(n2>n4)and(n2>n5) then
m:=n2;
if (n3>n1)and(n3>n2)and(n3>n4)and(n3>n5) then
m:=n3;
if (n4>n1)and(n4>n2)and(n4>n3)and(n4>n5) then
m:=n4;
if (n5>n1)and(n5>n2)and(n5>n3)and(n5>n4) then
m:=n5;

writeln('O maior numero e: ',m);
readln;

end;

procedure p6;
var
m:integer;
begin
if (n1<>7) do
begin
clrscr;
writeln('# MENU');
writeln('##########');
writeln('1- ENTRAR COM OS DADDOS');
writeln('2- MEDIA SIMPLES');
writeln('3- MEDIA PODERADA');
writeln('4- DESVIO PADRAO');
writeln('5- MAIOR VALOR');
writeln('6- MENOR VALOR');
writeln('7- SAIR');
readln(op);
menu;
end;
End.

Matrizes e Registros

Matrizes e Registros

1.Faça um programa que leia o nome de dez alunos e respectivamente 1ª, 2ª, 3ª e 4ª notas, a seguir calcule a média. Escreva o nome do aluno e sua média.

program aluno_nota;

var
aluno: array[1..10,1..4] of integer;
nome: array[1..10] of string;
soma, media: array [1..4] of real;
linha, coluna: integer;

begin
for linha := 1 to 10 do

begin

writeln ('Digite o nome do aluno: ');
readln (nome[linha]);

for coluna := 1 to 4 do

begin

writeln ('Digite a nota da ', coluna, ' ª prova do aluno, nome[linha]);
readln (aluno[linha,coluna]);

soma [linha] := soma [linha] + aluno[linha,coluna];
end;
end;

for linha := 1 to 10 do

begin

media [linha] := (soma[linha])/4;
writeln ('A media do aluno ', nome[linha], '', 'foi: ',media[linha]:2:2);

end;
end.

2.Calcule o total de pessoas aprovadas e reprovadas no exercício acima.

Program Pzim ;

var
nome:array[1..10]of string;
nota:array[1..10,1..4]of integer;
media,soma:array[1..10]of real;
linha,coluna,aprov,reprov:integer;

Begin
for linha:=1 to 10 do
begin
writeln(linha,'- Informe o nome do aluno:');
readln(nome[linha]);

for coluna:=1 to 4 do
begin

writeln(coluna,'- nota: ' );
readln(nota[linha,coluna]);
soma[linha]:= soma[linha]+nota[linha,coluna]

end;

media[linha]:=(soma[linha])/4;
writeln('A média do aluno(a) ',nome[linha],' foi: ',media[linha]:2:2);
writeln;
end;

clrscr;

for linha:=1 to 10 do
begin
if (media[linha]>=60) then
aprov:=aprov+1
else
reprov:=reprov+1
end;

writeln('Foram aprovados: ',aprov,' alunos.');
writeln('Foram reprovados: ',reprov,' alunos.');
End.


3.Faça um programa que leia o nome de três cidades e a seguir cadastre e exiba na tela a distância entre essas cidades.

Program Distancia;
var
cidade:array[1..3]of string;
distancia:array[1..3,1..3]of real;
linha,coluna,cont:integer;

Begin
for cont:= 1 to 3 do
begin
writeln(cont,' - Digite o nome da cidades:');
readln(cidade[cont]);
clrscr;
end;
for cont:= 1 to 3 do
writeln(cont,' - Você digitou as cidades:',cidade[cont]);

for linha:=1 to 3 do
begin
for coluna:= 1 to 3 do
begin
if (linha = coluna) then
distancia[linha,coluna]:=0
else
begin
writeln(' Agora informe a distancia entre ',cidade[linha],' e ',cidade[coluna]);
readln(distancia[linha,coluna]);
// distancia[linha,coluna]):= distancia[coluna,linha];
end;
end;
end;

for coluna:=1 to 3 do
begin
for cont:= 1 to 3 do
begin
writeln('As distancia entre as cidade ',cidade[coluna],' e ',cidade[linha] );

end;
end;
End.


4.Faça um programa para criar um cadastro de mercadorias que contenha os seguintes dados: código da mercadoria, descrição, data de cadastro, ultima saído, saldo em estoque.
A seguir escreva todos o código da mercadoria e a descrição de todas as mercadorias cadastradas. A seguir todos os dados da mercadoria que apresenta o maior saldo em estoque.
Obs.: O programa deve ser feito para cadastro de 1000 produtos diferentes.


Program Pzim ;

type prod = record
codMerc: integer;
descricao:string;
dataCadastro:integer;
ultimaSaida:integer;
saldoEstoque:integer;
end;

var
cont,m,c:integer;
cadastro: array[1..1000] of prod;

Begin
m:=0;
for cont:=1 to 2 do
begin
writeln('Codigo da mercadoria:');
readln(cadastro[cont].codMerc);
writeln('Descricao:');
readln(cadastro[cont].descricao);
writeln('Data de Cadastro:');
readln(cadastro[cont].dataCadastro);
writeln('Ultima saida:');
readln(cadastro[cont].ultimaSaida);
writeln('Saldo em estoque:');
readln(cadastro[cont].saldoEstoque);
writeln(' ----- ');
end;

clrscr;
writeln('TODOS OS PRODUTOS');
for cont:=1 to 2 do
begin
writeln('Codigo da mercadoria: ',cadastro[cont].codMerc);
writeln('Descricao: ',cadastro[cont].descricao);
writeln('Data de Cadastro: ',cadastro[cont].dataCadastro);
writeln('Ultima saida: ',cadastro[cont].ultimaSaida);
writeln('Saldo em estoque: ',cadastro[cont].saldoEstoque);
writeln(' ----- ');
end;

readln;
for cont:=1 to 2 do
if(m
5.Faça um programa para criar um cadastro de dados bancários e a seguir escreva o nome a idade e o saldo do cliente mais novo e mais velho.
Obs.: O programa deve ser feito para cadastrar 10000 clientes. Os dados dos clientes a serem cadastrados são: Conta corrente, agencia, banco, nome, endereço, telefone, e-mail, idade e saldo bancário.


Program Pzim ;

type dodos = record
contaCorrente:integer;
agencia:integer;
banco:string;
nome:string;
idade:integer;
endereco:string;
tel:integer;
email:string;
saldoBanc:real;
end;

var
cad: array[1..3] of dodos; //1000
i:integer;

procedure cadastro;
begin
for i:=1 to 3 do
begin
writeln(' ::CADASTRO DE CLIENTE::');
writeln;
write('Conta Corrente: ');
readln(cad[i].contaCorrente);
write('Agencia: ');
read(cad[i].agencia);
write('Banco: ');
read(cad[i].banco);
write('Nome: ');
read(cad[i].nome);
write('Idade: ');
read(cad[i].idade);
write('Endereco: ');
read(cad[i].endereco);
write('Telefone: ');
read(cad[i].tel);
write('E-mail: ');
read(cad[i].email);
write('Saldo bancario: ');
read(cad[i].saldoBanc);
clrscr;
end;
end;

procedure clienteMaisVelho;
var
maior:integer;
maiorNome:string;
maiorSaldo:real;
begin
maior:=1;

for i:=1 to 3 do
begin
if (cad[i].idade > maior) then
begin
maior:=cad[i].idade;
maiorNome:=cad[i].nome;
maiorSaldo:=cad[i].saldoBanc;
end;
end;

writeln('>>Pessoa com maior idade:');
writeln('Nome: ',maiorNome);
writeln('Idade: ',maior);
writeln('Saldo bancario: ',maiorSaldo:2:2);
end;

procedure clienteMaisNovo;
var
menor:integer;
menorNome:string;
menorSaldo:real;
begin
menor:=150;

for i:=1 to 3 do
begin
if (cad[i].idade <>>Pessoa com menor idade:');
writeln('Nome: ',menorNome);
writeln('Idade: ',menor);
writeln('Saldo bancario: ',menorSaldo:2:2);
end;

Begin
cadastro;
clienteMaisVelho;
clienteMaisNovo;
End.

6.Faça um programa que leia nome do jogador, camisa, time e saldo de 22 jogadores. Escreva o time que contém mais jogadores na lista, o nome do jogador com salário mais alto e mais baixo

Program Pzim ;
type dados=record
nome:string;
camisa:integer;
time:char;
salario:real;
end;

var
jog:array[1..5] of dados; //22
i:integer;

procedure cadastro;
begin
for i:=1 to 5 do
begin
writeln('::CADASTRO DE JOGADORES::');
writeln;
writeln('TIMES DESPONIVEIS: A e B');
writeln(i,' - Faca o cadastro:');
writeln('_________________________');
writeln;
write('Nome: ');
read(jog[i].nome);
write('Camisa: ');
read(jog[i].camisa);
write('Time: ');
read(jog[i].time);
write('Salario: ');
read(jog[i].salario);
clrscr;
end;
end;

procedure maisJogadores;
var
TA,TB,maisJ: integer;
timeM:char;

begin
maisJ:=1;

for i:=1 to 5 do
begin
case jog[i].time of
'A': TA:=TA+1;
'B': TB:=TB+1;
end;
end;

if (TA>maisJ)then
timeM:= 'A'
else
timeM:= 'B';

writeln('>>O time com mais joadores e o time: ',timeM);
end;

procedure maiorSalario;
var
maior:real;
maiorNome:string;
begin
maior:=1;

for i:=1 to 5 do
begin
if (jog[i].salario > maior) then
begin
maior:=jog[i].salario;
maiorNome:=jog[i].nome;
end;
end;

writeln;
writeln('>>O jogador com maior salario:');
writeln('Nome: ',maiorNome);
writeln('Salario: ',maior:2:2);
end;

procedure menorSalario;
var
menor:real;
menorNome:string;
begin
menor:=999999999;

for i:=1 to 5 do
begin
if (jog[i].salario <>>O jogador com menor salario:');
writeln('Nome: ',menorNome);
writeln('Salario: ',menor:2:2);
end;


Begin
cadastro;
maisJogadores;
maiorSalario;
menorSalario;
End.

7.Faça um programa que leia nome, turma, matricula, sexo, e as três notas de um aluno e a seguir escreva a média de cada aluno, a maior e a menor nota daturma.

Program Pzim ;
type dados=record
nome:string;
turma:string;
matricula:integer;
sexo:char;
nota: array[1..3] of real;
end;
var
aluno:array[1..4] of dados;
i,j:integer;
media:array[1..4] of real;

procedure informaDados;
begin
for i:=1 to 4 do
begin
writeln('::DADOS DOS ALUNOS::');
WRITELN;
write('Nome:');
read(aluno[i].nome);
write('Turma:');
read(aluno[i].turma);
write('Matricula:');
read(aluno[i].matricula);
write('Sexo:');
read(aluno[i].sexo);

for j:=1 to 3 do
begin
write('Nota ',j,'= ');
read(aluno[i].nota[j]);
end;

clrscr;
end;
end;

procedure funcaoMadia;
var
soma:real;
begin
for i:=1 to 4 do
begin
soma:=0;
for j:=1 to 3 do
begin
soma:= soma + aluno[i].nota[j];
end;

media[i]:=soma/3;

writeln('A media do(a) aluno(a) ',aluno[i].nome,' e: ',media[i]:2:2);
end;
end;

procedure maiorNota;
var
maiorNota:real;

begin
maiorNota:=1;

for i:=1 to 4 do
if (media[i] > maiorNota) then
maiorNota:=media[i];

writeln;
writeln(' ---------------------------------------------');
writeln;
writeln('>>A maior media da turma e: ',maiorNota:2:2);
end;

procedure menorNota;
var
menorNota:real;

begin
menorNota:=1200;

for i:=1 to 4 do
if (media[i] <>>A menor media da turma e: ',menorNota:2:2);
end;

Begin
informaDados;
funcaoMadia;
maiorNota;
menorNota;
End.

questão 1

Matriz e Registro

{1 - Faça um programa que leia o nome de dez alunos e respectivas
1ª, 2ª, 3ª e 4ª notas, a seguir calcule a média. Escreva o nome
do aluno e a sua média. }

program aluno_nota;

var
aluno: array[1..10,1..4] of integer;
nome: array[1..10] of string;
soma, media: array [1..4] of real;
linha, coluna: integer;

begin
for linha := 1 to 10 do

begin

writeln ('Digite o nome do aluno: ');
readln (nome[linha]);

for coluna := 1 to 4 do

begin

writeln ('Digite a nota da ', coluna, ' ª prova do aluno, nome[linha]);
readln (aluno[linha,coluna]);

soma [linha] := soma [linha] + aluno[linha,coluna];
end;
end;

for linha := 1 to 10 do

begin

media [linha] := (soma[linha])/4;
writeln ('A media do aluno ', nome[linha], '', 'foi: ',media[linha]:2:2);

end;
end.

Questão 3

Faca um programa para apontar os resultados de uma pesquisa eleitoral para presidente da republica de Kneippopolis, o mais novo pais da America do Sul. Os candidatos são: Zico, Ricardo Kneipp, Obina e Geninho. Escreva o total e o percentual de votos de cada candidato. A seguir escreva o nome do novo presidente do pais com maior IDH do planeta.


Program Pzim ;
var
voto:char;
cont,somaZ,somaR,somaO,somaG,somaN,maior:integer;
percZ,percR,percO,percG:real;
nomepres:string;
Begin
maior:=0;
writeln('Pesquisa eleitoral para presidente da república de Kneippópolis');
writeln;
writeln('Os candidatos são: Zico, Ricardo Kneipp, Obina e Geninho');
writeln;
for cont:=1 to 10 do
begin
writeln('Dê seu voto:Zico - Z, Ricardo Kneipp - R, Obina - O, Geninho - G');
read(voto);
clrscr;
case voto of
'Z' : somaZ:= somaZ+1;
'R' : somaR:= somaR+1;
'O' : somaO:= somaO+1;
'G' : somaG:= somaG+1;
'z' : somaZ:= somaZ+1;
'r' : somaR:= somaR+1;
'o' : somaO:= somaO+1;
'g' : somaG:= somaG+1;

else
writeln('Seu voto foi invalido');
end;


if (somaZ>maior) then
begin
maior:=somaZ;
nomepres:='Zico';
end;

if (somaR>maior) then
begin
maior:=somaR;
nomepres:='Ricardo Keneipp';
end;

if (somaO>maior) then
begin
maior:=somaO;
nomepres:='Obina';
end;

if (somaG>maior) then
begin
maior:=somaG;
nomepres:='Geninho';
end;

end;

percZ:=(somaZ/10)*100;
percR:=(somaR/10)*100;
percO:=(somaO/10)*100;
percG:=(somaG/10)*100;
clrscr;
writeln('O percentual de fotos recebidos pelo candidato Zico foi:',percZ:2:2,'% e o total de votos foi:',somaZ);
writeln;
writeln('O percentual de fotos recebidos pelo candidato Ricardo Kneipp foi:',percR:2:2,'% e o total de votos foi:',somaR);
writeln;
writeln('O percentual de fotos recebidos pelo candidato Obina foi:',percO:2:2,'% e o total de votos foi:',somaO);
writeln;
writeln('O percentual de fotos recebidos pelo candidato Geninho foi:',percG:2:2,'% e o total de votos foi:',somaG);
writeln;
Writeln('O presidente com mais votos foi o ',nomepres,', com ',maior,' votos.');


End.

Questão 2

No programa acima, inclua a posição do maior e do menor valor encontrado.

Program ;
var
maior, menor, soma, cont,con: integer;
media :real;
vetor: array[1..50] of integer;
pmaior

Begin
maior:=0;
menor:=101;
soma:=0;
cont:=0;

for cont:=1 to 50 do
begin
randomize;
vetor[cont] := random(99)+1;

if(vetor[cont] > maior)then
maior := vetor[cont];

if(vetor[cont] < menor)then
menor := vetor[cont];

soma:= soma + vetor[cont];
end;

media:= soma/50;

for con:=1 to 50 do
write(' [',vetor[con],'] ');

writeln('');
writeln('');
writeln('A media dos numeros e ',media);
writeln('O maior numero e ',maior);
writeln('O menor numero e ',menor);


End.

Questão 1

Para o primeiro exercício inclua quantos valores estão acima e abaixo da média

Program ;
var
maior, menor, soma, cont, con, cot : integer;
media :real;
vetor: array[1..50] of integer;
pmaior, pmenor, qacima, qabaixo: integer;

Begin
maior:=0;
menor:=101;
soma:=0;
cont:=0;

for cont:=1 to 50 do
begin
randomize;
vetor[cont] := (random(99)+1);

if(vetor[cont] > maior)then
begin
maior:= vetor[cont];
pmaior:= cont;
end;

if(vetor[cont] < menor)then
begin
menor := vetor[cont];
pmenor:= cont;
end;

soma:= soma + vetor[cont];
end;

media:= soma/50;
for cot:=1 to 50 do
begin
if(vetor[cot]> media) then qacima:= qacima +1;
if(vetor[cot]
end;
for con:=1 to 50 do
write(' [',vetor[con],'] ');

writeln('');
writeln('');
writeln('A media dos numeros e ',media);
writeln('O maior numero e ',maior,' e esta na posicao ',pmaior);
writeln('O menor numero e ',menor,' e esta na posicao ',pmenor);
writeln(qacima,' numero estao acima da media');
writeln(qabaixo,' numero estao abaixo da media');

Lista de exercicios - Array - Vetor

Escreva um que leia um vetor G de 20 elementos caractere que representa o gabarito de uma prova. A seguir, para cada um dos 50 alunos da turma, leia o vetor de respostas (R) do aluno e conte o numero de acertos. Mostre o nº de acertos do aluno e uma mensagemAPROVADO, se a nota for maior ou igual a 6; e mostre uma mensagem de REPROVADO, caso contrário.


Program Pzim ;
VAR
certa,soma, cont, cont1,alunos : integer;

G:array[1..20]of char;
R:array[1..20]of char;

Begin
soma:=0;
for cont1:=1 to 5 do
begin
writeln ('digite a resposta da questao ', cont1);
readln (G[cont1]);
end;
writeln ('Gabaritoinserido');
writeln;


for alunos:=1 to 3 do
begin

for cont:=1 to 5 do
begin
writeln ('ALUNO [ ',alunos,' ]Digite a resposta ',cont);
readln (R[cont]);

if (R[cont] = G[cont]) then
soma:=soma+1;
end;
if (soma>=3) then
Writeln ('Aluno ',alunos,' aprovado')
else
Writeln('Aluno ',alunos,' reprovado');
Writeln;
Writeln;
soma:=0;
Writeln('------------------------------------');
end;

End.

Lista de exercicios - Array - Vetor

6 - Escreva um algoritimo que leia um vetor inteiro de 30 posições e crie um segundo vetor, substituindo os valores nulos por 1. mostre os 2 vetores.

ProgramPzim ;
var
num,nulos: array[1..5]ofinteger;
cont:integer;
Begin
for cont:= 1 to 5 do
begin
Writeln('Digite um número:',cont,':');
read(num[cont]);

if num[cont]=0 then
nulos[cont]:=1

else
nulos[cont]:=num[cont];
end;

for cont:=1 to 5 do
writeln('num: [',num[cont],']');

for cont:=1 to 5 do
writeln('nulos: [',nulos[cont],']');


End.

Lista de exercicios - Array - Vetor

5 - Excreva um algoritimo que leia um vetor de 80 elementos inteiros. encontre e mostre o menos elemento e sua posição no vetor.

Program Pzim ;
var
num:array[1..5]of integer;
cont, menor:integer;
Begin
menor:=1000;
for cont:=1 to 5 do
begin
writeln('Informe um número:');
readln(num[cont]);
end;
if num
writeln('O menor número é', num[cont]);

Lista de exercicios - Array - Vetor

4 - Escreva um algoritimo que leia um vetor de 50 posições de numeros inteiros e mostre somente os positivos.

Program Pzim ;
var
num:array[1..5]of integer;
cont, i:integer;
positivo:array[1..5]of integer;
Begin
i:= 0;
for cont:=1 to 5 do
begin
writeln('Informe um número:');
readln(num[cont]);
if num[cont]>0 then
begin
i:= i + 1;
positivo[i] := num[cont];
end;
end;
for cont:=1 to i do
writeln('Os números positivos sao:',positivo[cont]);

End.

Lista de exercicios - Array - Vetor

3 - Prepare um programa para calcular as notas da P1, P2 e P3 de 10 alunos, escreva a media final de cada aluno e escreva o total de pessoas aprovadas e reprovadas.

Program Pzim ;
var
P1: array[1..10]of real;
P2: array[1..10]of real;
P3: array[1..10]of real;
media,soma:real;
cont:integer;
Begin
for cont:= 1 to 10 do
begin
writeln('1ª nota:');
read(P1[cont]);
writeln('2ª nota:');
read(P2[cont]);
writeln('3ª nota:');
read(P3[cont]);
soma:=(P1[cont]+P2[cont]+P3[cont]);
media[cont]:=soma/3;
writeln('A media do aluno é:',media);

end;

End.

Lista de exercicios - Array - Vetor

2 - Faça um programa para ler 20 números, calculas a media o maior e o menor número.

Program exercicio2 ;
var
numeros: array[1..20] of integer;
maior,menor,cont,soma: integer;
media: real;
Begin
for cont := 1 to 3 do
begin
writeln('Digite o numero', cont, ':');
readln(numeros[cont]);
if cont = 1
then begin
maior := numeros[1];
menor := numeros[1];
end;
if numeros[cont] > maior
then maior := numeros[cont];
if numeros[cont] < menor
then menor := numeros[cont];
soma := soma + numeros[cont];
end;
media := soma/3;
writeln('O maior número é:', maior);
writeln('O menor número é:', menor);
writeln('A média dos 20 números digitados por você meu camarada é:', media);
End.

Lista de exercicios - Array - Vetor

Faça um programa para ler 10 números e escrever a soma.

Program Pzim ;
var
numeros: array[1..10] of integer;
soma, cont: integer;
Begin
for cont := 1 to 10 do
begin
writeln('Digite o numero -->', cont,':');
readln(numeros[cont]);
end;
for cont := 1 to 10 do
soma := soma + numeros[cont];
writeln('A soma dos 10 números é:', soma);
End.

Questão 2 (Array - Vetor)

Faça um programa para ler 20 numeros, calcular a media o maior e o menor número.

Program Questao2 ;
Var
num, maior, menor, cont, soma : integer;
media : real;

vetor:array[1..20]of integer;


Begin
cont:=0;
for cont:=1 to 3 do
begin
Writeln ('Escreva o numero');
readln (vetor[cont]);
soma:=vetor[cont]+soma;
if (vetor[cont] >= maior) then
maior:=vetor[cont];
if (vetor[cont]<= menor) then
menor:=vetor[cont];
end;
media:=soma/3;
Writeln ('O maior numero e ', maior);
writeln ('O menor numero e ', menor);
writeln ('A media é ', media);

End.

Questão 1 (Array - Vetor)

Faça um programa para ler 10 numeros e escrever a soma.

Program Questao2 ;
Var
num, cont, soma : integer;

vetor:array[1..10]of integer;


Begin
cont:=0;
for cont:=1 to 10 do
begin
Writeln ('Escreva o numero');
readln (vetor[cont]);
soma:=vetor[cont]+soma;
end;
writeln ('A soma é ', soma);

End.

Questão 2 (Para - For)

Questão 2 - Faça um programa para apontar os resultados de uma pesquisa eleitoral para Presidente da república de Kneippópolis, o mais novo país da América do Sul. Os candidatos são:

Program Pzim ;
VAR
voto, zico, kneipp, obina, geninho, perentual : real;
v : integer;
Begin
zico:=0;
kneipp:=0;
obina:=0;
geninho:=0;

Writeln ('tecle 1 para Zico');
writeln ('tecle 2 para Kneipp');
writeln ('tecle 3 para obina');
writeln ('tecle 4 para geninho');
for v := 1 to 10 do
begin
Writeln (' Escreva seu voto');
readln (voto);
end;

if (voto = 1) then
zico := zico +1;
Writeln ('O total de votos para Zico é');
Writeln (zico);

if (voto = 2) then
kneipp := kneipp +1;
Writeln ('O total de votos para Kneipp é');
Writeln (kneipp);

if (voto = 3) then
obina := obina +1;
Writeln ('O total de votos para Obina é');
Writeln (Obina);

if (voto = 4) then
geninho := geninho +1;
Writeln ('O total de votos para Geninho é');
Writeln (geninho);

percentual := geninho + obina + kneipp + zico / 100;
Writeln ('o percentual é' percentual);

End.

Questão 1 (Para - For)

Questão 1 - Faça um algoritmo e a seguir passe-o para pascal que leia o nome e peso de 10 pessoas e a seguir calcule o maior peso, o mais leve, e a média de peso. Escreva o nome da pessoa com maior peso.

Program Pzim ;
VAR
nome, nmaior, nmenor, f : integer;
peso, pmaior, pmenor, pmedia : real;

Begin
for f := 1 to 10 do
begin
Writeln ('Escreva seu nome');
readln (nome);
Writeln ('Escreva seu peso');
readln (peso);
end;

pmenor := peso;
if (pmenor <= peso) then
writeln ('o menor peso é,');
writeln (pmenor);
Writeln ('o nome é');
writeln (nome);
if (pmaior >= peso) then
writeln ('o maior peso é');
writeln (pmaior);
writeln ('o nome é');
writeln (nome);

pmedia := (peso + peso) / 10;
writeln ('a media é,');
writeln (pmedia);
End.

Questão 19

• Faça um algoritmo que leia nome do aluno, e as três notas. O algoritmo deverá calcular a média final deste aluno e escrever na tela a média encontrada. A seguir deverá exibir o resultado mediante as seguintes informações:

->Media menor ou igual a 40.Aluno reprovado.

->Média maior que 40 e menor que 60.Aluno em prova final.

->Média maior ou igual a 60. Aluno aprovado.

Algoritmo “Resultado de notas”
VAR
Nome: Texto;
N1,N2, N3, Média : Real;
Início
Escreva(“digite seu nome”);
Leia (nome);
Escreva(“digite três notas”);
Leia (N1,N2, N3);
Média<-( N1+N2+N3)/3;
Se (Média<=40)Então escreva “aluno reprovado”;
Se (Média>=40) e (Média<=60)Então escreva “aluno em prova final”;
Se (Média>=60)Então escreva “aluno aprovado”;
Fim Se;

Fim Algoritmo

Questão 18

• Faça um Algoritmo que leia o nome e a idade de três pessoas.Pressupunha-se que as idades não podem ser iguais.Escreva a média de idade destas pessoas, a maior idade , e a menor idade.

Algoritmo “Média de Idade”
VAR
Média, Idade (I1, I2, I3): Real;
Nome (N1, N2, N3): Texto;
Início
Escreva(“digite três nomes”);
Leia(N1,N2, N3);
Escreva (“digite três idades”);
Leia (I1, I2, I3);
Média <-( I1+I2+I3)/3;
Se(I1>I2) e (I1>I3)Então escreva(“a maior idade é”,I1);
Se(I2>I1) e (I2>I3)Então escreva (“a maior idade é”,I2);
Se (I3>I1) e (I3>I2)Então escreva (“a maior idade é”,I3);
Se(I1Se(I2Se (I3
FimSe;

Fim Algoritimo.

Questão 17

• Escolha

Algoritmo “Calculo Percentual”
VAR
VC, SM, VP: real;
Escolha (“digite seu SM);
Leia (SM);
Escolha Valor;
Caso (SM>0) e (SM<=200) Categoria <-“nenhum crédito”;
Caso (SM>=201) e (SM<=400) VC<-(SM*0,2);
Caso (SM>=401) e (SM<=600) Categoria<-“SM*0,3;
Outro caso (categoria<-“inválido”;
FimEscolha;

Fim Algoritmo.

Questão 16

• Escolha

Algoritmo 'Classificação de Aleta'
VAR
Idade: Real;
Início
Escreva ('Digite sua idade');
Leia (Idade);
Escolha Idade;
Caso (5,6,7)Categoria <-'Infantil A';
Caso (8,9,10)Categoria <-'Infantil B';
Caso (11,12,13)Categoria <-'Juvenil A';
Caso (14,15,16,17 )Categoria <-'Juvenil B';
Outro caso Categoria <-'inválido';
FimEscolha;
Escreva('categoria'= categoria);

Fim Algoritmo.

Questão 15

• Escolha

Algoritmo 'classificação de atletas'
VAR
Nome, Curso: Texto;
Nota: Real;
Início
Escreva ('Digite seu nome');
Leia (nome);
Escreva ('Digite sua idade');
Leia (idade);
Escolha Idade;
Caso (Média <=40) Categoria <-'reprovado';
Caso (Média >=40) e (Média<[60)Categoria <-'prova final';
Caso (Média>=60) Categoria <-'aprovado';
Fim Escolha;
Escreva('categoria' =categoria);

Fim Algoritmo.

Questão 14

• Um banco concederá um crédito especial aos seus clientes,variável com o saúdo médio do último ano. Faça um algoritmo que leia o saldo médio de um cliente e calcule o valor do credito de acordo com a tabela abaixo. Mostre uma mensagem informando o saldo médio e o valor do credito.

Saldo Médio Percentual

0 a 200 Nenhum credito

201 a 400 20% do valor do saldo médio

401 a 600 30% do valor do saldo médio

Acima de 601 40% do valor do saldo médio

Algoritmo 'banco'
VAR
Saldo médio , valor do credito: real;
Inicio
Escreva ('Digite o saldo médio');
Leia (saldo médio);
Se (SM > =0) e (SM<=200) Então escreva ( nenhum credito);
Se (SM>=201) e (SM<=400) Então credito <-(SM *0,2);
Escreva ('o seu limite de credito é', credito);
Se (SM>=401) e (SM<=600) Então credito <- (SM *0,3);
Escreva ('o seu limite de credito é', credito);
Se (SM>=601) Então credito recebe (SM *0,4);
Escreva ('o seu limite de credito é', credito);
FimSe;

Fim Algoritmo

Questão 13

• Elabore um Algoritmo que dada a idade de um nadador classifica-o em umas das seguintes categorias:

->Infantil A = 5 - 7anos / Infantil B = 8 – 10anos

->Juvenil A = 11 -13 anos / Juvenil B = 14 -17 anos

->Adulto = maiores de 18 anos

Algoritmo 'Natação'
VAR
Idade: real;
Início

Escreva ('Digite a idade do nadador');
Leia (Idade);
Se (idade> = 5) e (idade < = 7) Então escreva (Infantil A);

Fim Se;

Se (idade> = 8) e (idade < = 10) Então escreva (Infantil B);

Fim Se

Se (idade> = 11) e (idade < = 13) Então escreva (juvenil A);

Fim Se;

Se (idade> = 14) e (idade < = 17) Então escreva (juvenil B); FimSe;

Fim Algoritmo.

Questão 12

• Faça um Algoritmo que leia o nome do aluno, o curso e as três notas deste aluno.a seguir escreva a media final e o resultado a partir das seguintes informações:

->Media menor ou igual a 40.Aluno reprovado.
->Média maior que 40 e menor que 60.Aluno em prova final.
->Média maior ou igual a 60. Aluno aprovado.

Algoritmo
VAR
Nome, Curso: texto;
N1, N2, N3: real;
Início
Escreva ('Digite o nome');
Leia (Nome);
Escreva ('Digite o curso');
Leia (Curso);
Escreva ('Digite a primeira nota');
Leia (N1);
Escreva ('Digite a segunda nota');
Leia (N2);
Escreva ('digite a terceira nota');
Leia (N3);
Média<-(N1+N2+N3)/3; Se (Média< = 40) Então escreva (aluno reprovado); Se (Média> = 40) e (Média <60)>= 60) Então escreva (aluno aprovado);
Fim Se;

Fim Algoritmo.

Questão 11

• Faça um algoritmo para ler três numero e escreva o maior.

Algoritmo “maior numero”
VAR
A, B, C :real;
Início
Escreva ('Digite o primeiro numero');
Leia (A);
Escreva ('Digite o segundo numero');
Leia (B);
Escreva ('Digite o terceiro numero');
Leia (C);
Se (A>B) e (A>C) Então escreva ( 'o maior numero é', A);

Fim Se
Se (B>A) e (B>C) Então escreva ('o maior numero é ', B);

Fim Se
Se (C >A) e (C >B)Então escreva ('o maior numero é',C);

Fim Se

Fim Algoritmo.

Questão 10

• Estrutura Condicional

ALGORITIMO “Estrutura Condicional”
VAR
A, B: real;
Início
Escreva ('Digite o primeiro numero);
Leia (A);
Escreva ('Digite o segundo numero');
Leia (B);
Se (A>B);
Então escreva ('O primeiro numero é > que o segundo');
Senão escreva ('O segundo numero é> que o primeiro');
Fim Se

Fim Algoritmo.

Questão 9

Um grupo de cinqüenta alunos chegou a um restaurante para fazer uma confraternização. Foram consumidos os seguintes produtos:
Cerveja: 48 garrafas.
Refrigerante: 20 litros.
Bebidas quentes: 5 garrafas.
Suco: 10 jarras.
Pizzas: 20 unidades.
Porções de batata frita: 15 porções.

A partir dos preços apresentados abaixo, faça o calculo do valor a ser pago. Sabendo-se que deverá ser acrescido 10% a ser destinado ao garçom. O algoritmo deverá calcular o valor total da conta e quanto será pago por cada aluno.

Cerveja: R$ 3,50 - Refrigerante: R$ 3,00 - Bebida quente: R$ 8,00 - Suco: R$ 6,00 - Pizza: R$ 30,00 - Porção de batata frita: R$ R$ 8,00

Algoritmo
Var
C, R, B, S, Pi, Po, Ct, P, G: Real;
Inicio
C <- 3.50*48;
R <- 3.00*20;
B <- 8.00*5;
S <- 60.00*10;
Pi <- 30.00*20;
Po <- 8.99*15;
Ct <- (C)+(R)+(B)+(S)+(Pi)+(Po);
G <- (Ct)*0.10;
P <- Ct+G;
Cd <- P/50;
Escreva ('O total da conta incluindo os dez porcento do garçon e já dividindo para os cinquenta alunos é:', Cd);
Escreva ('O total da conta é:', P);

Questão 8

• Faça um algoritmo para informar ao proprietário de um veículo o valor a ser pago para que se possa encher o seu tangue de combustível. Sabe-se que o preço do combustível é R$ 2,54. Você deverá perguntar ao usuário a quantidade de litros que ele deseja que seja colocado em seu veículo. A seguir, informe a ele qual é o valor a ser pago.

Algoritmo ("preço do combustivel")

VAR

let, vol : real

Inicio

Escreva ("quantos litros de combustivel voce deseja colocar?")

Leia (lit)

Val <- 2,54 * lit

Escreva ("o total a pagar é " : real)

Fim

Questão 7

• O curso de nutrição da FAMINAS, solicitou que fizéssemos um programa para calcular IMC (Índice de massa Corpórea). A fórmula para este calculo é: o Peso dividido pela altura elevado ao quadrado. O seu algoritmo deverá solicitar o nome do paciente, o seu peso e a sua altura. A seguir deverá calcular o IMC e apresentar o nome do paciente e o IMC.

Algoritmo (IMC)

VAR

nome : texto

peso, alt, imc : real

Inicio

Escreva ("digite seu nome")

Leia (nome)

Escreva ('digite sua altura")

Leia (altura)

Escreva ("digite seu peso")

Leia (peso)

IMC <- peso / falt * alt

Escreva ("nome" : nome)

Escreva ("o seu IMC é " : IMC)

Fim

Questão 6

• O custo ao consumidor de um carro novo é a soma do custo de fábrica com a percentagem do distribuidor e dos impostos (aplicados ao custo de fábrica). Supondo que a percentagem do distribuidor seja de 28% e os impostos de 45%, escrever um algoritmo que leia o custo de fábrica de um carro e escreva o custo ao consumidor.

Algoritmo ("custo do carro")

VAR

custf, custc : real

Inicio

Escreva ("digite o custo de fabrica do carro")

Leia (custf)

Custc <- custf + 28% + 45%

Escreva ("o custo do carro ao consumidor é " : custo)

Fim

Questão 5

• Uma pessoa foi ao supermercado e comprou cinco produtos. Entre com o nome dos produtos e seu respectivo preço e no final escreva o total gasto.

Algoritmo (total gasto no supermercado)

VAR

Pro1, Pro2, Pro4, Pro5 : Texto

Preço1, Preço2, Preço3, Preço4, Preço5, Soma : numero

Inicio

Escreva ("nome do primeiro produto");

Leia (Pro1);

Escreva ("preço do primeiro produto");

Leia (Preço1);

Escreva ("nome do segundo produto");

Leia (Pro2);

Escreva ("preço do segundo produto");

Leia (Preço2);

Escreva ("nome do terceiro produto");

Leia (Pro3);

Escreva ("preço do terceiro produto");

Leia (Preço3);

Escreva ("nome do quarto produto");

Leia (Pro4);

Escreva ("preço do quarto produto");

Leia (Preço4);

Escreva ("nome do quinto produto");

Leia (Pro5);

Escreva ("preço do quinto produto");

Leia (Preço5);

Soma <- (Preço1+Preço2+Preço3+Preço4+Preço5);

Escreva ("total gato na compra é "Soma)

Fim

Questão 4

• Faça um algoritmo que leia o número de horas utilizadas para se realizar determinada tarefa a seguir faça a conversão de horas para minutos. Para finalizar escreva na tela o número de minutos gastos para realizar esta tarefa.

Algoritmo (converter horas em minutos)

VAR

Horas, Minutos, Media : Numeros

Inicio

Escreva ("numero de horas gasto para fazer determinada tarefa");

Leia (Horas);

Media <- (Horas * 60);

Escreva ("o total de minutos gastos para fazer a tarefa é"Media);

Fim

Questão 3

• Faça um algoritmo que leia quatro números e a seguir escreva a sua média.

Algoritmo (Media entre quatro numeros)

VAR

A, B, C, D, Media : Real

Inicio

Escreva ("Digite o primeiro numero");

Leia (A);

Escreva ("Digite o segundo numero");

Leia (B);

Escreva ("Digite o terceiro numero");

Leia (C);

Escreva ("Digite o quarto numero");

Leia (D);

Media <- (A+B+C+D)/4;

Escreva ("a media entre os quatro numeros é"Media)

Fim

Questão 2

• Faça um algoritmo que leia um dois números e apresente o seu somatório.

Algoritmo (Soma de dois numeros)

VAR

A, B, Media : Real

Inicio

Escreva ("digite o primeiro numero")

Leia (A)

Escreva ("digite o segundo numero")

Leia (B)

Media <- (A+B)

Escreva ("O valor da soma de A+B é" Media)

Fim