LucasVMonteiro

Boa tarde a todos, como forma de treinamento eu desenvolvi essa calculador básica que calcula a media de 3 notas de 2 participantes e exibe as notas, a média e qual a maior média, e gostaria que avaliassem apontando os erros e o que poderia melhorar ou ate sugerir algo mais, simplesmente para fim didático, segue abaixo. Program calc_med ; var x,b: array [1..2 , 1..3] of real; i,j:integer; Begin writeln('Calculo da média de 3 notas de 2 participantes'); for j:= 1 to 2 do for i:= 1 to 3 do begin write(i,'ª nota do ',j,'º participante: '); readln(x[j][i]); end; clrscr; for j:= 1 to 2 do begin b[j][i]:= (x[j][1] + x[j][2] + x[j][3])/3; (!) end; for j:= 1 to 2 do for i:= 1 to 3 do writeln(i,' ª nota do ',j,' º participante: ',x[j][i]); for j:= 1 to 2 do writeln('Média das notas do ',j,' º participante é: ',b[j][i]); if (b[1][i]) > (b[2][i]) then writeln('O primeiro participante ganhou o concurso!') else writeln('O segundo participante venceu o concurso!'); End. Tive ate uma certa dificuldade para desenvolver, principalmente onde marquei com (!) pois não vi necessidade de adicionar o ''[i']'' na linha do calculo já que não faria sentindo eu por o comando ''for i:= 1 to 3 do'' pois calcularia o mesmo resultado nas 3 repetições... enfim, ainda me restam algumas dúvidas pois ainda não domino o assunto, se algum puder me da uma luz eu agradeço. ps: coloquei como [i'] pois no pré -visualizar não estava aparecendo.

@Simon Viegas Obrigado pela explicação, foi bem didático, eu não sabia o significado de tal comando e muito menos que o pascalzim considerava ele automaticamente, certamente se eu utilizasse outro compilador eu ficaria perdido, valeu

@Simon Viegas valeu, eu ate ia pedir uma sugestão melhor... estou seguindo uma apostila e um canal no yt, ainda não vi ''uses CRT;''... essa linha achei um pouco confusa, mas creio que seja por causa do operador ''not''. já essa eu achei mais simples.

@Math.Pi entendi, obrigado, adicionei " resp:= 'sim'; " antes do 'while' e funcionou!

Boa tarde, estou iniciando na programação e comecei pela linguagem Pascal, sempre pratico criando aplicações simples, por exemplo essa aqui: Program par_ou_impar ; var x :integer; resp :string; Begin while (resp = 'sim') do begin write('Verifique se um número é par ou não: '); readln(x); if (x mod 2 = 0) then writeln('O número é par!') else writeln('O número é impar!'); writeln; writeln; write('Deseja continuar com a aplicação? '); readln(resp); clrscr; end; End. Quando eu executo o programa (F9) no PascalZim ele simplesmente abre o console e fecha rapidamente, não aponta falha em nenhuma linha nem nada, o que pode ser? alguém pode testar o código?.. Ps: antes de adicionar o comando de repetição 'while...do' junto a variável 'resp' ele funcionava, porém no final da operação ele fechava o programa naturalmente.

@Fernando Apratto Acabei de instalar o Synaptics mas não mudou nada. não tinha antes.

Recentemente ganhei um notebook com windows 10, Modelo Asus Z550M. Primeira vez que liguei ele senti um ''peso'' no cursor quando utilizo o touchpad, mas quando uso um mouse comum fica normal, a impressão que da é que tem um atraso\peso no movimento do cursor quando mexo no touchpad, já procurei em configurações mas não encontrei nada que resolva isso. Alguém faz ideia do que seja? é agoniante isso...