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.