iGodD

Esse o ponto eu não aprendi muita coisa ainda o que estou aprendendo estou tentando aplicar para resolver as listas de exercicios mas meu professor é tão ruim que ele não responde e-mail que mando para ele para tirar dúvidas, ai fico perdido estou tentando aprender, por isso estou entrando em fóruns e pedindo ajuda, para saber se o que estou fazendo está certo entende, eu não cheguei a ver REPEAT nem WHILE ainda. esse if que coloquei ai fiz que nem um que aprendi com você em outro algorítimo que fiz que antes verificava se os números eram iguais ai já pulava pro fim, mas como esse tem repetição não está funcionando 100% porque não sei 100% ainda entende.

Olá amigo, acontece que sou novo estou pegando aula e indo para cada um desses por vez, o professor pediu em for então no caso, minha duvida é somente essa, como faço para parar as repetições ou se desse jeito ai mesmo pode passar, ainda não vi o repeat ele pediu com for entende.

- Fazer um algoritmo para calcular a média aritmética de um conjunto de valores inteiros, positivos e maiores que zero. (considere o valor zero como finalizador do programa). Eu fiz desse jeito gostaria de saber se está certo. Program Lista3_9; //Agora vou declarar as variáveis Var D,numero1,media:integer; //Área de lógica Begin Writeln('Escola Técnica de Brasília - ETB'); Writeln('Técnico em Informática'); Writeln('Lógica de Programação'); Writeln('Professor: Pedro'); Writeln('Autor: Denis Alves'); Writeln('Data: 15/09/2017'); Writeln (' _________________________________________________'); Writeln ('| |'); Writeln ('| Números inteiros e mostrar a média aritimética |'); Writeln ('|_________________________________________________|'); Writeln(' '); Writeln(' '); Writeln(' '); numero1 := 1; for d := 1 to 4 do begin if (numero1 <= 0)then writeln ('Zero digitado saindo!') else begin write ('Digite o ',d,'o número: '); readln (numero1); media := media+numero1; writeln (' '); end; end; writeln ('A media aritimética dos números informados é: ',media/4:0:2); End.

Mas justamente isso que não estou conseguindo fazer usando for, sou novato não estou sabendo aplicar a ordem crescente e decrescente usando for. E eu fiz esse ai de cima usei um antigo que fiz usando if agora com for não estou conseguindo.

Program Lista3_5; //Agora vou declarar as variáveis Var D,n1,n2,n3,n4,grupo1:integer; //Área de lógica Begin Writeln('Escola Técnica de Brasília - ETB'); Writeln('Técnico em Informática'); Writeln('Lógica de Programação'); Writeln('Professor: Pedro'); Writeln('Autor: Denis Alves'); Writeln('Data: 15/09/2017'); Writeln(' '); Writeln(' '); Writeln('Mostrar números na ordem crescente e decrescente'); Writeln(' '); for d := 1 to 5 do begin write ('Digite o primeiro número: '); readln (n1); write ('Digite o segundo número: '); readln (n2); write ('Digite o terceiro número: '); readln (n3); write ('Digite o quarto número: '); readln (n4); writeln (' '); if (n1 = n2) or (n1 = n3) or (n1 = n4)or (n2 = n3) or (n2 = n4) or (n3 = n4) then begin writeln ('Números iguais.'); writeln (' '); end else begin for grupo1 := 1 to 1 do writeln (' '); writeln ('O ',d,'o Grupo =',n1,n2,n3,n4); writeln (' '); if (n1 < n2) and (n2 < n3) and (n3 < n4) then writeln ('Os números em ordem crescente são: ', n1,' , ',n2,' , ',n3, ' , ',n4); if (n1 < n2) and (n2 < n4) and (n4 < n3) then writeln ('Os números em ordem crescente são: ', n1,' , ',n2,' , ',n4, ' , ',n3); if (n1 < n3) and (n3 < n2) and (n2 < n4) then writeln ('Os números em ordem crescente são: ', n1,' , ',n3,' , ',n2, ' , ',n4); if (n1 < n3) and (n3 < n2) and (n4 < n2) then writeln ('Os números em ordem crescente são: ', n1,' , ',n3,' , ',n4, ' , ',n2); if (n1 < n4) and (n4 < n2) and (n2 < n3) then writeln ('Os números em ordem crescente são: ', n1,' , ',n4,' , ',n2, ' , ',n3); if (n1 < n4) and (n4 < n3) and (n3 < n2) then writeln ('Os números em ordem crescente são: ', n1,' , ',n4,' , ',n3, ' , ',n2); if (n2 < n1) and (n1 < n3) and (n3 < n4) then writeln ('Os números em ordem crescente são: ', n2,' , ',n1,' , ',n3, ' , ',n4); if (n2 < n1) and (n1 < n4) and (n4 < n3) then writeln ('Os números em ordem crescente são: ', n2,' , ',n1,' , ',n4, ' , ',n3); if (n2 < n3) and (n3 < n1) and (n1 < n4) then writeln ('Os números em ordem crescente são: ', n2,' , ',n3,' , ',n1, ' , ',n4); if (n2 < n3) and (n3 < n4) and (n4 < n1) then writeln ('Os números em ordem crescente são: ', n2,' , ',n3,' , ',n4, ' , ',n1); if (n2 < n4) and (n4 < n1) and (n1 < n3) then writeln ('Os números em ordem crescente são: ', n2,' , ',n4,' , ',n1, ' , ',n3); if (n2 < n4) and (n4 < n3) and (n3 < n1) then writeln ('Os números em ordem crescente são: ', n2,' , ',n4,' , ',n3, ' , ',n1); if (n3 < n1) and (n1 < n2) and (n2 < n4) then writeln ('Os números em ordem crescente são: ', n3,' , ',n1,' , ',n2, ' , ',n4); if (n3 < n1) and (n1 < n4) and (n4 < n2) then writeln ('Os números em ordem crescente são: ', n3,' , ',n1,' , ',n4, ' , ',n2); if (n3 < n2) and (n2 < n1) and (n1 < n4) then writeln ('Os números em ordem crescente são: ', n3,' , ',n2,' , ',n1, ' , ',n4); if (n3 < n2) and (n2 < n4) and (n4 < n1) then writeln ('Os números em ordem crescente são: ', n3,' , ',n2,' , ',n4, ' , ',n1); if (n3 < n4) and (n4 < n1) and (n1 < n2) then writeln ('Os números em ordem crescente são: ', n3,' , ',n4,' , ',n1, ' , ',n2); if (n3 < n4) and (n4 < n2) and (n2 < n1) then writeln ('Os números em ordem crescente são: ', n3,' , ',n4,' , ',n2, ' , ',n1); if (n4 < n1) and (n1 < n2) and (n2 < n3) then writeln ('Os números em ordem crescente são: ', n4,' , ',n1,' , ',n2, ' , ',n3); if (n4 < n1) and (n1 < n3) and (n3 < n2) then writeln ('Os números em ordem crescente são: ', n4,' , ',n1,' , ',n3, ' , ',n2); if (n4 < n2) and (n2 < n1) and (n1 < n3) then writeln ('Os números em ordem crescente são: ', n4,' , ',n2,' , ',n1, ' , ',n3); if (n4 < n2) and (n2 < n3) and (n3 < n1) then writeln ('Os números em ordem crescente são: ', n4,' , ',n2,' , ',n3, ' , ',n1); if (n4 < n3) and (n3 < n1) and (n1 < n2) then writeln ('Os números em ordem crescente são: ', n4,' , ',n3,' , ',n1, ' , ',n2); if (n4 < n3) and (n3 < n2) and (n2 < n1) then writeln ('Os números em ordem crescente são: ', n4,' , ',n3,' , ',n2, ' , ',n1); writeln (' '); end; end; End. Não estou conseguindo usar o for só consigo desenvolver com if e ainda só na ordem crescente. essa é a questão: 1. Faça um programa que leia cinco grupos de quatro valores (A, B, C, D) e mostre-os na ordem lida. Em seguida, organize-os em ordem crescente e decrescente.