Braga03

@Simon Viegas Olá Simon, então eu estava usando aquela matriz onde tem o ponto de sela no 10 como a matriz fixa para testar. Agora com a sua explicação acho que achei o erro, no caso eu tenho que procurar o menor elemento da linha e o maior da coluna, eu estava fazendo o menor elemento da matriz e o maior... Obrigado pela explicação, tentarei fazer novamente seguindo os passos!

@Simon Viegas Esse é meu código, a minha dúvida é saber porque não está mostrando o ponto de sela, fiz refiz esse código e não vejo erro algum, sabe me dizer se é algum erro de lógica? Program Pzim; var m: array [1..5, 1..7] of integer; i, j, menor, maior, linha, coluna, cont: integer; Begin for i:=1 to 5 do begin for j:= 1 to 7 do begin write ('Preencha a linha/coluna [',i,',',j,']:'); readln (m[i,j]); end; end; //Descobrir a linha de menor valor menor:= m[1,1]; linha:= 1; for i:= 1 to 5 do begin for j:= 1 to 7 do begin if m[i,j] < menor then begin menor:= m[i,j]; linha:= i; end; end; end; writeln (menor); //descobrir a coluna de maior valor maior:= m[1,1]; coluna:= 1; for i:= 1 to 7 do begin for j:= 1 to 5 do begin if m[j,i] > maior then begin maior:= m[j,i]; coluna:= i; end; end; end; writeln (maior); cont:= 0 ; for i:= 1 to 5 do begin for j:= 1 to 7 do begin if menor = maior then writeln ('Linha ', linha, ' coluna ', coluna,' numero ', menor); cont := cont + 1; end; end; if cont = 0 then writeln ('não há ponto de sela'); readkey; End.

@Simon Viegas Boa noite, Simon. Então... eu procurei praticamente a tarde inteira hoje sobre esse assunto no google e não consegui resolver o exercicio. Testei uma matriz que era pra dar um ponto de sela: 1 2 3 4 5 6 7 2 3 4 5 6 7 8 13 14 15 10 15 14 13 4 5 6 7 8 9 10 5 6 7 8 9 10 11 O ponto de sela deveria estar na linha 3, coluna 4. Vi algumas resoluções em C, estavam bem parecida com essa que eu fiz em pascal. Porém não consegui, tem alguma dica onde posso estar errando?

Olá pessoal, alguém poderia dar uma ajuda nesse exercicio? Preciso fazer um programa que carrega uma matriz 5x7 e mostrar o ponto de sela. Eu fiz esse código, porém sem resultado. Program Pzim; var m: array [1..5, 1..7] of integer; i, j, menor, maior, linha, coluna: integer ; Begin for i:=1 to 5 do begin for j:= 1 to 7 do begin write ('Preencha a linha/coluna [',i,',',j,']:'); read (m[i,j]); end; end; //Descobrir a coluna de menor valor menor:= m[1,1]; coluna:= 1; for j:= 1 to 7 do begin if m[i,j] < menor then begin menor:= m[i,j]; coluna:= j; end; end; writeln (menor); //descobrir a linha de maior valor maior:= m[1,coluna]; linha:= 1; for i:= 1 to 5 do begin for j:= 1 to 7 do begin if m [i,coluna] > maior then begin maior:= m[i,coluna]; linha:= i; end; end; end; writeln (maior); writeln ('Matriz resultante: '); for i:= 1 to 5 do begin for j:= 1 to 7 do begin write(m[i,j], ' '); end; writeln; end; if maior = menor then writeln (' O ponto de sela está na posição [' ,linha, coluna,']') else writeln (' Não há ponto de sela '); readkey; End.

Obrigado, esqueci de agradecer antes, me desculpe. O problema era esse mesmo.

ola pessoal, estou com um problema em um codigo, o que deve ser feito no programa é o seguinte: Receber 10 numeros inteiros e mostrar a quantidade de numeros primos. Bom, eu fiz esse codigo e infelizmente nao funcionou e nao faço a menor ideia do porque. Se alguem puder me ajudar, ficarei grato! Program Pzim; var n, i, j, qtd, qtdprimo: integer; Begin for i:= 1 to 10 do begin writeln ('digite um numero'); readln (n); for j:= 1 to n do begin if (n mod j = 0) then qtd:= qtd + 1; end; if qtd = 2 then qtdprimo:= qtdprimo+1; end; writeln('a quantidade de numeros primos ',qtdprimo); readkey; End.

Obrigado amigo, assim que terminar eu venho novamente aqui!

Obrigado pela ajuda, vou pesquisar mais sobre o assunto. É que foi assim que o meu professor me explicou.

Bom eu sei que numero amigavel é quando a soma dos divisores de um numero X é um numero Y, exemplo o numero 10 é amigavel do numero 8, pois os divisores de 10 (com exceção dele mesmo) são 1+2+5= 8.

Eu fiz esse codigo aqui, porém sem sucesso, no que estou errando? desde ja obrigado. Program Exercicio1 ; var num1, num2, divi, somadiv: integer; Begin divi:= 1; Writeln('Digite um numero'); readln(num1); writeln('digite outro numero'); readln(num2); While (divi <= num1/2) do begin begin if (num1 mod divi=0) then; somadiv:= somadiv + divi; end; divi:= divi+1; end; While (divi <= num2/2) do begin begin if (num2 mod divi=0) then; somadiv:= somadiv + divi; end; divi:= divi+1; end; begin if (num1=somadiv) and (num1 <> num2) then writeln(num1,' é amigavel de ',num2) else writeln ('nao sao amigaveis'); end; readkey; End. >

Alguém pode me ajudar a desenvolver esse programa? Sou bem iniciante e meu professor passou esse exercicio pra resolver mas n estou conseguindo entender. Ps: eu sei o que são os numeros amigaveis, só nao sei como eu começo o programa. Exercicio 1: Criar um programa em Pascal que receba dois números inteiros quaisquer e determine se são amigáveis ou não.

@roblox_gamer ja testei em todos e todos estão com o problema, nao entra nos sites

Boa noite, recentemente eu tive problemas em entrar em alguns sites, quando eu vou entrar na solução de problemas do windows aparece essa mensagem: ''O dispositivo ou o recurso (wpad.domain.name) não está configurado para aceitar conexões na porta "O serviço World Wide Web (HTTP)". Alguem pode me informar se esse problema é com o roteador ou em algum outro lugar? Tem alguma maneira de resolver sem chamar um tecnico? Desde ja agradeço