×
Ir ao conteúdo
  • Cadastre-se

Pedroso90

Membro Júnior
  • Posts

    5
  • Cadastrado em

  • Última visita

  • Qualificações

    0%
  1. @Simon Viegas Muito obrigado meu amigo! Eu até tinha pensado nessa ideia de usar uma variável boolean, mas não estava conseguindo encaixar direito, sua ajuda foi muito esclarecedora, me ajudou muito! Obrigado mesmo!
  2. Boa tarde amigos tudo bem? Estou precisando de ajuda em uma parte de um exercício sobre Pascal que estou fazendo, uma das partes desse exercício pede para eu cadastrar o número do carro, mas tem um porém, não pode haver dois números iguais, e eu estou com muita dificuldade em achar um jeito para fazer o programa exibir uma mensagem falando que o número já foi digitado e fazer essa mensagem não sair até o usúario digitar um número diferente, pode parecer uma dúvida meio boba, mas estou quebrando a cabeça com isso, se alguém puder me dar uma luz agradeço, o exercício pede mais coisa, mas só preciso de ajuda nisso mesmo, o resto estou conseguindo fazer. exercício: Uma empresa patrocinadora de corridas deseja ter controle preciso sobre os participantes e os resultados, a fim de realizar adequadamente o pagamento dos prêmios. Dessa maneira, precisa cadastrar algumas informações, conforme apresentado a seguir: Corrida (número da corrida, data, hora de início, código do carro vencedor) Carro/Corrida (número da corrida, número do carro participante, hora de chegada) Carro (número do carro, nome do carro, ano de fabricação) Crie um programa em Pascal (utilizando registros – records) que realize as seguintes rotinas: • Cadastrar os carros, não permitindo dois carros com o mesmo número (deve ser definido espaço para seis carros); o que eu estou tentando fazer: program EX1; type registroCorrida = record num_corrida: integer; data_corrida: string; horain_corrida: string; codigo_vencedor: integer; end; registroCarroCorrida = record num_corrida: integer; num_carro: integer; hora_chegada: string; end; registroCarro = record num_carro: integer; nome_carro: string; ano_fab: integer; end; var carros_cadastro: array[1..6] of registroCarro; i,cont: integer; corrida_cadastro: array[1..3] of registroCorrida; begin //cadastrando os carros; for i:= 1 to 6 do begin write('Digite o número do ' ,i, 'º carro: '); readln(carros_cadastro[i].num_carro); if (carros_cadastro[i].num_carro) = (carros_cadastro[i+1].num_carro) then begin cont:=cont+1; if cont > 0 then begin while cont <> 0 do begin writeln('Digite outro numero tonto!'); end; end; end; write('Digite o nome do ', i, 'º carro: '); readln(carros_cadastro[i].nome_carro); write('Digite o ano de fabricaçao do ', i, 'º carro: '); readln(carros_cadastro[i].ano_fab); end; //cadastrando as corridas; // for i:=1 to 3 do end.
  3. Faça um programa em Pascal que receba um valor inteiro x, maior que 0 e menor que 20, e crie uma matriz quadrada preenchida da seguinte maneira: Comecei a desenvolver esse exercício, mas eu não entendi a lógica dele, por isso acabei travando no início mesmo, eu to quebrando a cabeça aqui, se alguém puder me ajudar, agradeço muito. Program EX1; var mat:array[1..7,1..7] of integer; i,j: integer; Begin while (mat[i,j] > 0) and (mat[i,j] < 20) do if (mat[i,j] < 0) and (mat[i,j] > 20) then writeln('Digite um valor maior que 0 e menor que 20!'); for i:=1 to 7 do begin for j:=1 to 7 do begin writeln('Digite o valor',i,'-',j,' '); readln(mat[i,j]); End.
  4. Boa tarde amigos, tudo bem? Primeiramente, obrigado pela ajuda no outro tópico sobre as estruturas de repetição, agradeço muito! Mas enfim, hoje estava fazendo esse exercício para faculdade utilizando a estrutura for, pois não aprendi sobre vetores ainda e etc: Faça um programa em Pascal que receba um valor (inteiro) N. Após isso, devem ser inseridos os nomes de N pessoas e seus respectivos pesos e idades. Ao final seu algoritmo deve mostrar: O nome e peso da pessoa mais pesada. O nome e peso da pessoa mais leve. O nome e idade da pessoa mais velha. O nome e idade da pessoa mais nova. e me deparei com o seguinte erro: Meu programa só moistra a pessoa mais velha e a mais pesada, ele simplesmente ignora a mais nova e a mais leve, alguém poderia me mostrar onde estou errando por favor? Preciso entregar esse exercicio hoje. meu código: Program EX4; var idade,pessoas,maisvelho,idademenor,cont,cont2: integer; peso,maispesado,pesoleve: Real; nome,nome1,nome2,nome3,nome4: string; Begin writeln('Digite a quantidade de pessoas'); readln(pessoas); clrscr; for cont:=1 to pessoas do begin; writeln('Digite o ',cont,'º nome:'); readln(nome); writeln(''); writeln('Digite a ',cont,'ª idade:'); readln(idade); writeln(''); writeln('Digite o ',cont, 'º peso em kg:'); readln(peso); if(peso>maispesado) then begin; maispesado:=peso; nome1:=nome end; if(peso<pesoleve) then begin; pesoleve:=peso; nome2:=nome; end; if(idade>maisvelho) then begin; maisvelho:=idade; nome3:=nome; end else if(idade<idademenor) then begin idademenor:=idade; nome4:=nome; end; end; writeln('A pessoa mais pesada é: ',nome1,' pesando: ',maispesado,'kg'); writeln('A pessoa mais leve é: ',nome2,' pesando: ',pesoleve,'kg'); writeln('A pessoa mais velha é: ',nome3,' com a idade: ',maisvelho,' anos '); writeln('A pessoa mais nova é: ',nome4,' com a idade: ',idademenor,' anos '); readkey; End.
  5. Bom dia galera, tudo bem? Comecei faz pouco tempo a estudar Pascal, até agora entendi bastante coisa já, mas o que estou com muita dificuldade são nas estruturas de repetição (for, while, repeat) e em relação aos contadores também, comecei a fazer esse exercício: Utilizando as estruturas de repetição estudadas em sala de aula, faça um programa em Pascal que receba dez idades, pesos e alturas, calcule e mostre: A média das idades das dez pessoas; A quantidade de pessoas com peso superior a 90 quilos e altura inferior a 1,50 metros; A percentagem de pessoas com idade entre 10 e 30 anos entre as pessoas que medem mais de 1,90 metros. Consegui fazer somente a primeira exigência, as duas últimas eu travei, se alguém puder me ajudar, segue abaixo o que já fiz: program EX2; {$CODEPAGE UTF8} //para permitir acentos nas string em alguns compiladores [Não necessário no PascalZim, mas pode deixar] var cont, cont2, cont3, cont90, cont150, idade, somaidade: integer; pesoalt, altura, somaalt150, alt150, peso90, peso, somapeso90, media: real; begin for cont := 1 to 10 do begin; writeln('Digite a idade'); readln(idade); writeln('Digite a altura em metros'); readln(altura); writeln('Digite o peso'); readln(peso); somaidade := somaidade+idade; media := somaidade/10; clrscr end; writeln('A média das idades é: ', media:10:2); if (peso>90) then begin cont90 := cont90+1; somapeso90 := cont90; end; //begin; if (altura<1.50) then begin cont150 := cont150+1; somaalt150 := cont150; end; pesoalt := somapeso90+somaalt150; writeln('A quamtidade de pessoas com mais de 90kg e menores que 1.50m é de:', pesoalt:10:2); E se alguém conseguir me ajudar com esse outro que é quase o mesmo estilo: Faça um programa em Pascal que receba um valor (inteiro) N. Após isso, devem ser inseridos os nomes de N pessoas e seus respectivos pesos e idades. Ao final seu algoritmo deve mostrar: O nome e peso da pessoa mais pesada. O nome e peso da pessoa mais leve. O nome e idade da pessoa mais velha. O nome e idade da pessoa mais nova. Creio que com isso vou conseguir entender melhor essas questões

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

Curso de Hacker Ético

LANÇAMENTO!

CLIQUE AQUI E CONFIRA!

* Este curso não é ministrado pela equipe do Clube do Hardware.