Citando comentário:
[...] input sample (onde o usuário coloca os valores) está alinhado um ao lado do outro.
Quero saber o comando para deixar meu código dessa forma.
Como esclarecido pelo Luiz Augusto, nativamente, não é possível ler mais de uma variável na mesma linha de uma vez só, ou seja, se usar algo como:
leia(x1, y1, x2, y2)
Será necessário digitar cada número seguido do ENTER. É o mesmo que:
leia(x1)
leia(y1)
leia(x2)
leia(y2)
Como o quer ler tudo de uma vez só, seria possível lendo a linha como texto (caractere) e posteriormente extrair os valores. Exemplo:
algoritmo "stackoverflow"
var
entradaTeclado : caractere
x1, y1, x2, y2, r: real
funcao remover (str: caractere; indice, quantidade: inteiro): Caractere
inicio
retorne copia(str, 1, indice-1) + copia(str, indice+quantidade, compr(str))
fimFuncao
funcao pegarProximoNumero (var entradaTeclado:caractere) : real
var
posicaoEspaco : inteiro
inicio
posicaoEspaco <- Pos(" ", entradaTeclado)
se (posicaoEspaco = 0) entao
posicaoEspaco <- Compr(entradaTeclado)+1
fimSe
retorne caracPNUm(copia(entradaTeclado, 1, posicaoEspaco-1))
entradaTeclado <- remover(entradaTeclado, 1, posicaoEspaco))
fimFuncao
inicio
leia(entradaTeclado)
x1 <- pegarProximoNumero(entradaTeclado)
y1 <- pegarProximoNumero(entradaTeclado)
x2 <- pegarProximoNumero(entradaTeclado)
y2 <- pegarProximoNumero(entradaTeclado)
r <- raizQ((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1))
escrevaL("x1:", x1)
escrevaL("y1:", y1)
escrevaL("x2:", x2)
escrevaL("y2:", y2)
escrevaL("R :", r)
fimAlgoritmo
Credito da função de remover() aqui: