Loops Infinity

Muito Obrigado @Simon Viegas, pela complementação, devido a faculdade e semana de provas, só tive tempo agora de visualizar sua resposta com mais tranquilidade, gostei da sua colocação, realmente o início seria isso aqui. Boa noite @Simon Viegas, até a próxima, abraços! Obs: não sei como funciona o fechamento do tópico, se alguém puder fazer isso, o problema foi resolvido juntos com meu amigo @KXSY e @Simon Viegas

É realmente se você parar um tempinho complica, tem que estar sempre praticando.Nesse site URI Online Judge você encontra vários exercícios. Falando em exercícios já vou eu fazer mais exercícios . Boa noite @KXSY, até a próxima, abraços!

@KXSY não minha internet é NET, não é perfeita,mas aqui na minha região é a "melhorzinha". Sim também utiliza o teorema de pitágoras, falando em matemática também estou enferrujado, vou vê se consigo um tempo para estudar novamente algumas partes da matemática que deixei passar em branco. No URI Online Judge - Posição: 96.859º comecei agora no mês de fevereiro, estava praticando no Visualg antes e agora estou colocando em sintaxe Pascal lá na ferramenta, futuramente quero aprender outras linguagens também, você também possui uma conta lá, qual rank você está?

@KXSY Estou muito feliz, consegui resolver o problema, muito obrigado @KXSY , eu fiquei até 2h da manhã resolvendo a questão do URI Online Judge. Sobre o link http:// https://www.freepascal.org/docs-html/rtl/system/sqrt.html ele continua aqui para mim, com erro. adicionado 43 minutos depois É o seguinte, realmente o que você falou sobre raiz quadrada não pode ser negativa, mas tive que ir passo a passo e testando. Fiz da seguinte forma como exercício é a distancia entre dois pontos, coloquei mais duas variáveis p1 / p2. Passo a passo (Lembrando 3º Exemplo - Ponto 1 (p1) -> x1 = 2.5 / y1 = -0.4 e Ponto 2 (p2) -> x2 = -12.2 / y2 = 7.0. 1ª Substração p1 := (x2-x1); p2 := (y2-y1); 2º Fazer a Potenciação (Aqui foi o erro) estava colocando exp(y*ln(x)), como você tinha falado o (ln) não pode se x é negativo mas não tinha lembrado, matamos a charada kkkkkk, realmente não pode. Em anexo o do site GDB Online e do Pascalzim. exp(2*ln(x2-x1)) exp(2*ln(y2-y1)) Agora sabendo da existência onde começava o erro, tirei a função (Exp). Fiz assim: p1 := abs(p1*p1); p2 := abs(p2*p2); com a função (Abs), claro a multiplicação duas vezes tanto no ponto 1 e ponto 2, foi resolvido, pois lembrando o valor que de ponto 1 ou ponto 2 fosse negativo, retornaria com a função (Abs) o valor absoluto real (positivo). Finalmente o último passo 3º a raiz quadrada, antes de tudo somando o dois pontos (p1 e p2). Tenho dois códigos diferentes mas com a mesma resolução : Program URI_1015 ; var x1, x2, y1, y2, p1, p2, d : real ; Begin readln (x1, y1); readln (x2, y2); p1 := (x2-x1); p2 := (y2-y1); writeln (p1); writeln (p2); writeln (''); p1 := abs(p1*p1); p2 := abs(p2*p2); writeln (p1); writeln (p2); writeln (''); d := sqrt(p1+p2); writeln (d); End. ou o mais curto: Program URI_1015 ; var x1, x2, y1, y2, d : real ; Begin readln (x1, y1); readln (x2, y2); d := sqrt(abs((x2-x1)*(x2-x1))+abs((y2-y1)*(y2-y1))); Writeln (d:0:4); End. @KXSY Muito obrigado mesmo, estou muito feliz, até a próxima, abraços!

@KXSY Olá Bom dia, então não entendi muito bem sobre a raiz quadrada não pode ser negativa , eu tentei acessar o link que enviou está dando erro 404 Not Found, vou tentar novamente mais tarde deve ser o servidor, sobre o compilador eu não instalei o FPC (Free Pascal Compiler), vou instalar também, joguei o meu código nesse link (https://www.onlinegdb.com/) também deu erro , é estranho porque nesse link do problema do exercício (URI Online Judge) eu tentei esse 1 e 2º Exemplo de Entrada e Saída (onde o 2º Ex. Entrada tem número negativo (x1 = -2.5 , y1 = 0.4 , x2 = 12.1 , y2 = 7.3 , logo o Ex. Saída '16.1484') funcionou nessa minha linha de código que fiz no Pascalzim. O meu código é esse: Program URI_1015 ; var x1, x2, y1, y2, d : real ; Begin readln (x1, y1); readln (x2, y2); d := sqrt(exp(2*ln(x2-x1))+exp(2*ln(y2-y1))); Writeln (d:0:4); End.

Olá Pessoal, Boa noite, Estou iniciando agora na programação, fazendo um curso de algoritmo no Gustavo Guanabara e também nas horas livres aplicando na linguagem Pascal alguns comandos verificando pouco a pouco a estrutura, praticando no URI Online Judge os problemas iniciantes, nesse ponto chegou num exercício da plataforma que não estou entendendo muito bem, vou anexar aqui uma imagem do problema que está ocorrendo no Pascalzim. Mas antes vou dizer, consegui fazer o exemplo na descrição, somente o 3º Exemplo de Entrada e Saída, fiquei travado com o erro. Link do problema no URI Online Judge : URI Online Judge Anexo Contém Janela do Windows dividida com a visualização do meu código ao lado esquerdo no Pascalzim, e no lado direito ao executar e colocar o 3º Exemplo do Problema URI Online Judge, na parte inferior do lado direito Log: DOMAIN error e na parte superior Exp: OVERFLOW error . Ficarei no aguardo de alguém me ajudar! Abraços!