Em tempo de execução, continue solicitando uma linha de entrada até que o usuário insira algo (que não seja uma nova linha vazia), ou seja, não apenas pressione Enterou OK. Saída ou resultado não é obrigatório nem proibido.

Pseudo-código 1

myform = new form("GUI")
myform.mytxt = new editfield("")
myform.ok = new button("OK")
repeat
  waitfor(myform.ok,"click")
until myform.mytxt.content <> ""

Pseudo-código 2

LET TEXT = ""
WHILE TEXT = "" DO
  TEXT = PROMPT("")
ENDWHILE

Exemplo 1

O programa é executado e aparece imediatamente um formulário com um único campo de texto e um OKbotão.
O usuário clica no OKbotão.
Nada acontece.
O usuário cola "olá mundo" no campo de texto e clica no OKbotão.
O programa termina.

Exemplo 2

A função é chamada e exibe imediatamente uma linha em branco e um cursor piscando.
O usuário pressiona Enter.
O cursor desce uma linha.
O usuário pressiona Enter.
O cursor desce uma linha.
O usuário pressiona a PPCGEnter
função retorna.

TI-BASIC, 2 bytes

:Prompt X

O TI-BASIC faz isso automaticamente. Uma vez que a entrada é dada, ela será encerrada.

Aqui está um GIF:

Assista a contagem da entertecla no histórico de pressionamentos de teclas. Criado com o TI-SmartView CE e ezgif.com .

Python 3 , 18 bytes

while''==input():0

Experimente online!

sed, 4

/./q

Aguarda uma linha de entrada que tenha 1 ou mais caracteres e sai.

Experimente online . Mas funciona melhor em um shell ativo:

sed '/./q'

JavaScript, 37 22 17 bytes

while(!prompt());

while(!prompt());

Explicação

A whilepalavra-chave inicia o whileloop. Na condição do loop, !prompt()solicita entrada e verifica se é fornecida ou não. Se não for fornecido, o corpo do loop é executado e, no nosso caso, está vazio, o intérprete retorna à condição do loop. O mesmo processo acontece repetidamente até o usuário fornecer a entrada.

Java, 55 bytes

void f()throws Exception{while(System.in.read()==10);}}

Se bem me lembro (já faz um tempo desde que estou ativo no PPCG), meu programa pode ser apenas uma função.

Isso é específico do sistema; funciona apenas em sistemas em que o caractere de fim de linha é uma única nova linha. Se o caractere de fim de linha for um retorno de carro, substitua 10por 13. No Windows, isso não funciona, como é o fim de linha no Windows \r\n.

Isso faz uso do fato de que eu posso ler diretamente System.in.

HTML5, 33 22 bytes

<form><input required>

<form><input required>

Explicação

O requiredatributo no <input>faz com que o navegador informe ao usuário "este campo é obrigatório" - tipo de mensagem, se ele não digitar um valor. No entanto, quando eles inserem um valor, o valor é enviado para a URL do actionatributo do <form>(que no nosso caso é o próprio arquivo atual, pois não especificamos nenhum valor explicitamente).

Isso foi testado na versão mais recente do Google Chrome (versão 55.0). Pode funcionar em outros navegadores e versões.

Gelatina , 3 bytes

ɠṆ¿

Não tenho muito o que ver no TIO, receio.

Experimente online!

Como funciona

Este é um programa niládico, o que significa que ele não aceita argumentos de entrada. O argumento implícito e o valor de retorno são 0 neste caso.

¿(while) é um rápido que exibe dois links da pilha de links: uma condição ( Ṇ) e um corpo.

Ṇé um átomo monádico: NÃO lógico e plano. Se o valor de retorno anterior for falso (aqui, 0 ou uma sequência vazia), ele retornará 1 e o corpo será chamado.

ɠé um átomo niládico; ele lê uma linha bruta de STDIN e retorna o resultado.

Depois de ɠler uma linha não-vazia, Ṇretorna 0 e interrompemos o loop.

Pitão , 3 bytes

W!w

Experimente online!

Traduzido para Python:

while Pnot(input()):
 pass

brainfuck , 26 bytes

+[>,----------[[-]<[-]>]<]

Experimente online!

Perl 5, 8+1 (-p or -n flag) bytes

/./&&die

Takes input from stdin and dies as soon as the regex matches anything except a newline.

C, 52 bytes, 33 bytes, 29 bytes

-19 bytes thanks to Justin

-4 bytes thanks to Christoph

main(){while(getchar()==10);}

10 is equal to '\n' - In case this isn't obvious.

Bash, 51 bytes (39 without "#!/bin/bash")

It's my first time participating in PPCG, so dont be to rude ;D

#!/bin/bash
read a
while [ -z "$a" ]
do
read a
done

Java, 128 126 bytes

2 bytes thanks to Kevin Cruijssen.

import java.util.*;class a{public static void main(String[]a){for(Scanner s=new Scanner(System.in);s.nextLine().isEmpty(););}}

Try it online!

C# (.NET Core), 66 bytes

class C{static void Main(){for(;System.Console.ReadLine()!="";);}}

Try it online!

-6 bytes thanks to raznagul.

QBasic 4.5, 15 bytes

INPUT a$:IF a$=""THEN RUN

Asks for input, then checks if any was given. If not, RUN restarts the program.

Ruby, 13 bytes

gets until/./

I wish gets took a Regexp argument.

R, 27 24 23 22 bytes

while(!sum(scan()^0))t

Takes input from stdin, and repeat as long as input is of length 0. Cut off some bytes due to Jarko Dubbeldam and MickyT. Replaced the {} with t to save another byte.

PHP, 18 bytes

while(!readline())

AWK, 8 11 bytes

NF{exit}

Wait for input. If the number of fields in input is more than 0, exit.

EDIT:

I've just realized that this doesn't work for input containing whitespace characters only. IFS needs to be set to empty string using -F "" command line option. Therefore +3 bytes.

Try it online!

SpecBAS - 34 bytes

1 DO : INPUT a$: LOOP UNTIL a$<>""

Just loops until non-empty string is entered.

Mathematica, 26 20 bytes

For[,Input[]==Null,]

Haskell, 19 17 bytes

f=do""<-getLine;f

Defines a function f that if it reads the empty line calls itself again. When reading a non-empty line an exception is raised and the recursion is stopped.

Edit: @Laikoni replaced the parameter with a pattern match and saved 2 bytes. Thanks!

Aceto , 9 5 4 bytes

rLeia um valor, negue-o ( !; convertendo implicitamente em um booleano) e espelhe horizontalmente se o valor for verdadeiro ( |).

!
r|

Java, 66 64 60 bytes

int a(){return!System.console().readLine().isEmpty()?0:a();}

My first Java answer, would love some tips!

Braingolf , 8 bytes [não concorrente]

1[{?:+|]

Não competir porque { , que lê as informações de STDIN, foi adicionado ao braingolf após a data de publicação deste desafio.

Explicação:

1         Pushes 1 to the stack
 [        Begins while loop
  {       Reads from STDIN, returns -1 if no input given
   ?      Checks if last item in stack is > 0
    :     Else
     +    Adds the last 2 items together, however there is only 1 item, so add it to itself
      |   Endif
       ]  End While, decrement first item in stack, or exit if first item is 0

Carvão , 4 bytes

Ｗ¬Ｓω

Explicação

Ｗ      While
  ¬Ｓ   Logical not of string input
     ω  Print ""

05AB1E , 5 bytes

[IõÊ#

Explicação:

[     Start infinite loop
 I    One line of input
   Ê  Not equal to
  õ   Empty string
    # Break if true

Experimente online!

PowerShell, 20 bytes

for(;!(read-host)){}

executa um loop for,

read-host solicita entrada

se o host de leitura não retornar nada que pareça falso, então invertemos isso !(...) e o usamos como verificação de final do loop.

muito menor do que qualquer do{$a=read-host}while($a-eq"")solução de tipo envolvendo variáveis.

Rápido, 22 bytes

while readLine()==""{}

CJam , 5 bytes

{l!}g

Experimente online! (O TIO realmente não mostra o comportamento adequado)

Explicação

{      e# Do:
 l     e#  Read next line of input
  !    e#  Boolean negate (empty strings are falsy)
   }g  e# Pop the top of stack, if truthy, repeat.