Program Primeiro;
var NOME:string;
i:integer;
Begin
write('Digite o seu nome:');
readln(NOME);
for i:=1 to 10 do
writeln('Olá ',NOME);
readln;
End.
Program Segundo;
var n:integer;
Begin
repeat
write('Digite um número entre 10 e 100:');
readln(n);
until (n>10) and (n<100);
writeln('Valor correto.');
readln;
End.
Program Terceiro;
var s,i:integer;
Begin
s:=0;
for i:=1 to 100 do
s:=s+i;
writeln('O valor do somatório de 1 a 100 é: ',s);
readln;
End.
Program Quarto;
var fat,i,n:integer;
Begin
repeat
write('Digite um número maior que zero:');
readln(n);
until n>0;
fat:=1;
for i:=1 to n do
fat:=fat*i;
writeln(n,'! = ',fat);
readln;
End.
Program Quinto;
var i,n:integer;
nota,soma,media,maior,menor:real;
Begin
repeat
write('Digite o número de alunos da turma(maior ou igual a 1):');
readln(n);
until n>=1;
repeat
write('Digite a nota do aluno 1:');
readln(nota);
until (nota>=0) and (nota<=10);
maior:=nota;
menor:=nota;
soma:=nota;
for i:=2 to n do
begin
repeat
write('Digite a nota do aluno ',i,':');
readln(nota);
until (nota>=0) and (nota<=10);
soma:=soma+nota;
if nota>maior then
maior:=nota;
if nota<menor then
menor:=nota;
end;
media:=soma/n;
writeln('Média da turma: ',media:1:2);
writeln('Maior nota: ',maior:1:2);
writeln('Menor nota: ',menor:1:2);
readln;
End.
Program Sexto;
var i,n:integer;
preco,total,lucro,custo:real;
Begin
write('Digite o preço da unidade do Tablet:');
readln(preco);
while preco<0 do
begin
write('Erro. Digite um valor válido para o preço:');
readln(preco);
end;
write('Digite a quantidade de Tablets vendidos:');
readln(n);
total:=preco*n;
custo:=300*n;
lucro:=total-custo;
if lucro>0 then
writeln('Lucro de R$ ',lucro:1:2);
if lucro=0 then
writeln('Não houve lucro.');
if lucro<0 then
writeln('Déficit de R$ ',abs(lucro):1:2);
readln;
End.
Program Setimo;
var i,n,nvezes,ntotal,nh,nm,nv:integer;
sexo:char;
Begin
write('Digite o número de alunos que prestaram vestibular:');
readln(n);
ntotal:=0;
nh:=0;
nm:=0;
nv:=0;
repeat
write('Digite o sexo do aluno que passou no vestibular:');
readln(sexo);
if sexo<>'x' then
begin
write('Digite o número de vezes que o aluno prestou vestibular:');
readln(nvezes);
ntotal:=ntotal+1;
if sexo='m' then
nh:=nh+1;
if sexo='f' then
nm:=nm+1;
if nvezes>3 then
nv:=nv+1;
end;
until (sexo='x') or (ntotal=n);
writeln('A porcentagem de alunos que passaram no vestibular: ',(ntotal/n)*100:1:0,'%');
writeln('A porcentagem de alunos do sexo masculino que passaram no vestibular:
',(nh/n)*100:1:0,'%');
writeln('A porcentagem de alunos do sexo feminino que passaram no vestibular:
',(nm/n)*100:1:0,'%');
writeln('A porcentagem de alunos que prestou o vestibular mais de 3 vezes:
',(nv/n)*100:1:0,'%');
readln;
End.
Program Oitavo;
var n,i,sinal:integer;
x,y,s,num,den,termo:real;
Begin
repeat
write('Digite o valor de N [2,20]:');
readln(n);
until (n>=2) and (n<=20);
repeat
write('Digite um valor para X:');
readln(x);
until (x>=-1) and (x<=1);
repeat
write('Digite um valor pra Y:');
readln(y)
until (y>0) and (y<1);
s:=x/sqr(1-y);
sinal:=-1;
for i:=2 to n do
begin
num:=x*x;
den:=exp((2*i)*ln(1-y));
termo:=(num/den)*sinal;
s:=s+termo;
sinal:=sinal*(-1);
end;
writeln('O valor de S é: ',s);
readln;
End.
Program Nono;
var n,fat,i,j,sinal:integer;
x,y,s,num,den,termo:real;
Begin
repeat
write('Digite o valor de N [2,20]:');
readln(n);
until (n>=2) and (n<=20);
repeat
write('Digite um valor para X:');
readln(x);
until (x>=-1) and (x<=1);
repeat
write('Digite um valor pra Y:');
readln(y)
until (y>0) and (y<1);
if n=2 then
s:=1+x;
if n>2 then
s:=1+x-y;
sinal:=1;
fat:=1;
for i:=4 to n do
begin
num:=sqrt(exp((i-2)*ln(x+y)));
fat:=1;
for j:=1 to i-2 do
fat:=fat*j;
den:=(x-y)*fat;
termo:=(num/den)*sinal;
s:=s+termo;
sinal:=sinal*(-1);
end;
writeln('O valor de S é: ',s);
readln;
End.
Program Decimo;
var peso,alt,imc,imcmax:real;
nome,resp,nmax:string;
begin
write('Digite o nome de um aluno:');
readln(nome);
write('Digite o seu peso e a sua altura:');
readln(peso,alt);
imc:=peso/sqr(alt);
imcmax:=imc;
nmax:=nome;
repeat
write('Deseja digitar os dados de um novo aluno?(Digite fim para encerrar)');
readln(resp);
resp:=upcase(resp);
if resp<>'FIM' then
begin
write('Digite o nome do novo aluno:');
readln(nome);
write('Digite o seu peso e a sua altura:');
readln(peso,alt);
imc:=peso/sqr(alt);
if imc>imcmax then
begin
nmax:=nome;
imcmax:=imc;
end;
end;
until resp='FIM';
writeln('Nome: ',nome, '. IMC Máximo:',imcmax);
readln;
End.
Program DecimoPrimeiro;
var i,j,n,id,somaid,idmenor,somapeso:integer;
mediaalt,somaalt,alt,peso,p:real;
begin
write('Informe a quantidade de times que participam do campeonato:');
readln(n);
somaalt:=0;
for i:=1 to n do
begin
somaid:=0;
for j:=1 to 11 do
begin
write('Digite a idade, altura e peso do jogador ,',j,' do time ',i,':');
readln(id,alt,peso);
somaid:=somaid+id;
somaalt:=somaalt+alt;
if peso>80 then
somapeso:=somapeso+1;
end;
writeln('A média de idade do time ',i,' é:',somaid div 11,' anos.');
end;
mediaalt:=somaalt/(n*11);
p:=(somapeso/(n*11))*100;
writeln('A média de altura de todos os jogadores do campeonato é:',mediaalt:0:2);
writeln('O percentual de jogadores do campeonato com mais de 80 quilos é:',p:0:2,'%');
end.
program DecimoSegundo;
var a, b, x, y, yr: real;
nac, nab, nsr: integer;
begin
write('Digite os valores de a e , coeficientes da reta Y=a.x+b :') ;
readln(a,b);
if (a<> 0) or (b <> 0) then
begin
write('x = ?(digite 999 para sair)');
readln(x);
while x <> 999 do
begin
write('y = ? ');
readln(y);
yr:= a*x + b;
if y > yr then nac:= nac + 1 else
if y < yr then nab:= nab + 1
else nsr:= nsr + 1;
write('x = ?'); read(x);
end;
clrscr;
writeln('número de pontos acima da reta:',nac);
writeln('número de pontos abaixo da reta:',nab);
writeln('número de pontos sobre a reta:',nsr);
end else write('valores errados');
readln;
end.
Program DecimoTerceiro;
var nome: array[1..5] of string;
i:integer;
Begin
for i:=1 to 5 do
begin
write('Digite o ',i,'º nome:');
readln(nome[i]);
end;
for i:=1 to 5 do
writeln(i,'- ',nome[i]);
readln;
End.
Program DecimoQuarto;
var vet: array[1..10] of integer;
i,soma:integer;
Begin
soma:=0;
for i:=1 to 10 do
begin
write('Digite o valor da posicao',i,' do vetor: ');
readln(vet[i]);
soma:=soma+vet[i];
vet[i]:=2*vet[i];
end;
clrscr;
writeln('O valor da média aritmética dos elementos do vetor é: ',soma/10:2:2);
writeln(' Vetor atualizado com o dobro do seu valor:');
for i:=1 to 10 do
write(vet[i],' ');
readln;
End.
Program DecimoQuinto;
var A,B,S: array[1..5] of real;
i,j,k:integer;
Begin
for i:=1 to 5 do
begin
write('Digite o valor de A[',i,'] e B[',i,']: ');
readln(A[i], B[i]);
end;
k:=0;
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
if A[i] = B[j] then
begin
k:=k+1;
S[k]:=A[i];
end;
end;
end;
clrscr;
writeln('Vetor A:');
for i:=1 to 5 do
write(A[i]:0:2,' ');
writeln;
writeln('Vetor B:');
for i:=1 to 5 do
write(B[i]:0:2,' ');
writeln;
writeln('Vetor S:');
for i:=1 to k do
write(S[i]:0:2,' ');
readln;
End.
Program DecimoSexto;
var peso: array[1..1000] of real;
i,n:integer;
soma,total,maior,menor:real;
Begin
repeat
write('Digite o número de vendas(entre 10 e 1000): ');
readln(n);
until (n>=10) and (n<=1000);
write('Digite o valor do peso da venda 1: ');
readln(peso[1]);
maior:=peso[1];
menor:=peso[1];
soma:=peso[1];
for i:=2 to n do
begin
write('Digite o valor do peso da venda ',i,': ');
readln(peso[i]);
if peso[i]>maior then
maior:=peso[i];
if peso[i]<menor then
menor:=peso[i];
soma:=soma+peso[i];
end;
clrscr;
writeln('O peso médio das vendas é: ',soma/n:0:2);
writeln('O maior peso vendido foi: ',maior:0:2,' g');
writeln('O maior peso vendido foi: ',menor:0:2,' g');
total:=(soma/1000)*4.35;
writeln('A arrecadação total foi de R$: ',total:0:2);
readln;
End.
Program DecimoSetimo;
var mat: array[1..3,1..3] of integer;
i,j,k:integer;
Begin
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
write('Digite o valor da posicção ',i,',',j,' da matriz: ');
readln(mat[i,j]);
end;
end;
for i:=1 to 3 do
begin
for j:=1 to 3 do
write(mat[i,j],' ');
writeln;
end;
write('Digite um valor k para multiplicar os elemento da matriz:');
readln(k);
writeln('O valor da matriz atualizada é:');
for i:=1 to 3 do
begin
for j:=1 to 3 do
write(k*mat[i,j],' ');
writeln;
end;
readln;
End.
Program DecimoOitavo;
var mat: array[1..10,1..10] of real;
i,j,n:integer;
somadiagonal:real;
Begin
repeat
write('N = ?');
readln(n);
until (n>=3) and (n<=10);
somadiagonal:=0;
for i:=1 to n do
begin
for j:=1 to n do
begin
write('Digite o valor da posicção ',i,',',j,' da matriz: ');
readln(mat[i,j]);
if mat[i,j]<0 then
mat[i,j]:=0;
if i=j then
somadiagonal:=somadiagonal+mat[i,j];
end;
end;
clrscr;
writeln('A soma da diagonal principal da matriz é: ',somadiagonal:0:2);
writeln;
for i:=1 to n do
begin
for j:=1 to n do
write(mat[i,j]:0:2,' ');
writeln;
end;
readln;
End.
-
Program DecimoNono;
var COD, QUANT:array[1..5] of integer;
VALOR: array[1..5] of real;
i:integer;
s:real;
Begin
s:=0;
for i:=1 to 5 do
begin
write('Digite o código, a quantidade e o valor do produto ',i,': ');
readln(COD[i],QUANT[i],VALOR[i]);
s:=QUANT[i]*VALOR[i];
end;
for i:=1 to 5 do
writeln('Código: ',COD[i],'. Valor Patrimonial: ',s:0:2);
readln;
End.
Program Vinte;
var cidades:array[1..5] of string;
distancia: array[1..5,1..5] of real;
i,j:integer;
Begin
for i:=1 to 5 do
begin
write('Informe o nome da cidade ',i,': ');
readln(cidades[i]);
end;
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
if i=j then
distancia[i,j]:=0;
if j>i then
begin
write('Digite a distância de ',cidades[i],' para ',cidades[j],': ');
readln(distancia[i,j]);
distancia[j,i]:=distancia[i,j];
end;
end;
end;
for i:=1 to 5 do
begin
write(cidades[i],' ');
for j:=1 to 5 do
write(distancia[i,j]:0:2,' ');
writeln;
end;
readln;
End.
Program Vinteeum;
var CA:array[1..4] of integer;
CC,NP:array[1..6] of integer;
i,DV,DC,SP:integer;
Begin
NP[1]:=1;
NP[2]:=2;
NP[3]:=3;
nP[4]:=5;
NP[5]:=7;
NP[6]:=11;
SP:=0;
for i:=1 to 4 do
begin
write('Digite o algarismo ',i,' do Código de Agência: ');
readln(CA[i]);
SP:=SP+CA[i]*NP[i];
end;
writeln('Digite o Dígito Verificador do Código de Agência: ');
readln(DV);
DC:=SP mod 9;
if DC = DV then
begin
SP:=0;
for i:=1 to 6 do
begin
write('Digite o algarismo ',i,' do Código de Conta: ');
readln(CC[i]);
SP:=SP+CC[i]*NP[i];
end;
DC:=SP mod 9;
write('Digite o Dígito Verificador do Código de Conta: ');
readln(DV);
if DC = DV then
writeln('Foram digitados corretamente.')
else
writeln('Código de Conta e Dígito Verificador incompatíveis.');
end
else
write('Código de Agência e Digito Verificador incompatíveis.');
readln;
End.
Program Vinteedois;
var M: array[1..20,1..3] of real;
nome: array[1..20] of char;
t,i,j,k,cont:integer;
limite,menor:real;
Begin
{letra a}
repeat
writeln('Informe o número de participantes(entre 2 e 20): ');
readln(t);
until (t>=2) and (t<=20);
{letra b}
for i:=1 to t do
begin
write('Informe o nome do participante ',i,': ');
readln(nome[i]);
end;
{letra c}
write('Informe o tempo máximo para a classificação para os jogos olímpicos: ');
readln(limite);
{letra d}
for i:=1 to t do
begin
for j:=1 to 3 do
begin
write(nome[i],'. Tempo ',j,': ');
readln(M[i,j]);
end;
end;
{letra a}
cont:=0;
writeln('Lista de Classificados - Tempo limite: ',limite:1:0,' segundos.');
for i:=1 to t do
begin
for j:=1 to 3 do
begin
if m[i,j]<limite then
begin
cont:=cont+1;
menor:=m[i,1];
for k:=2 to 3 do
begin
if menor>m[i,k] then
menor:=m[i,k];
end;
writeln(nome[i],' com o tempo de ',trunc(menor),' segundos e ',frac(menor)*100,'
milésimos de segundo.');
end;
end;
end;
{letra b}
if cont = 0 then
writeln('Não há nenhum classificado.');
readln;
End.
Program Vinteetres;
var NOTAP,NOTAM,NOTACG,MEDIA: array[1..1000] of real;
NOME,CLAS: array[1..1000] of String;
N,i,j:integer;
med,s:real;
Begin
repeat
write('Digite um valor para N: ');
readln(N);
until (N>=10) and (N<=1000);
j:=0;
for i:=1 to N do
begin
write('Digite o nome do candidato ',i,': ');
readln(NOME[i]);
write('Digite as notas de Português, Matemática e Conhecimentos Gerais desse aluno,
respectivamente: ');
readln(NOTAP[i],NOTAM[i],NOTACG[i]);
med:=(2*NOTAP[i]+3*NOTAM[i]+NOTACG[i])/6;
if med>=7 then
begin
j:=j+1;
CLAS[j]:=NOME[i];
MEDIA[j]:=med;
end;
end;
if j=0 then
writeln('Não houve nenhum candidato classificado.')
else
begin
s:=0;
for i:=1 to j do
s:=s+MEDIA[i];
writeln('Média dos candidatos classificados: ',s/j:0:2);
for i:=1 to j do
writeln(NOME[i],' Média: ',MEDIA[i]:0:2);
end;
readln;
End.
-
Program Vinteequatro;
var Cidades: array[1..10] of string;
Distancias: array[1..10,1..10] of real;
m,i,j,k:integer;
consumo,c:real;
begin
repeat
write('Digite a quantidade de cidades: ');
readln(m);
until (m>=2) and (m<=10);
for i:=1 to m do
begin
write('Digite o nome da cidade ',i,': ');
readln(Cidades[i]);
end;
for i:=1 to m do
begin
for j:=1 to m do
begin
if i=j then
Distancias[i,j]:=0
else
begin
write('Informe a distência entre ',Cidades[i],' e ',Cidades[j],': ');
readln(Distancias[i,j]);
end;
end;
end;
write('Digite um valor para o consumo médio do veículo:');
readln(consumo);
clrscr;
writeln('Distâncias menores ou iguais à 250 Km: ');
for i:=1 to m do
begin
for j:=1 to m do
begin
if (i<>j) and (Distancias[i,j]<=250) then
writeln('De ',Cidades[i],' para ',Cidades[j]);
end;
end;
writeln;
for i:=1 to m do
begin
for j:=1 to m do
begin
if (i<>j) then
begin
c:=Distancias[i,j]/Consumo;
writeln('Distância: ',Distancias[i,j]:0:2,'Km entre ',Cidades[i],' e ',Cidades[j]);
writeln('Consumo entre ',Cidades[i],' e ',Cidades[j],': ',c:0:0,'L.');
writeln;
end;
end;
end;
readln;
End.
program Vinteecinco;
var PAIS : array[1..800] of String[3];
NOME : array[1..800] of String[15];
ALT : array[1..800] of real;
altura, media : real;
j, i : integer;
begin
PAIS[1] := 'xxx';
i := 1;
altura := 0;
while (PAIS[i] <> 'ZZZ') do
begin
write('Entre o pais: ');
readln(PAIS[i]);
if (PAIS[i] <> 'ZZZ') then
begin
write('Entre o nome: ');
readln(NOME[i]);
write('Entre a altura: ');
readln(ALT[i]);
altura := altura + ALT[i];
i := i + 1;
end;
end;
media := altura / i;
j := 1;
while (j <= i) do
begin
if (ALT[j] > media) and (PAIS[j] = 'BRA') then
begin
writeln(NOME[j]);
end;
j := j + 1;
end;
end.
Download

Gabarito Pascal