Pada saat runtime, tetap meminta baris input sampai pengguna memasukkan sesuatu (selain baris baru yang kosong), yaitu tidak hanya menekan Enteratau OK. Output atau hasil tidak diperlukan atau dilarang.

Kode semu 1

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

Kode semu 2

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

Contoh 1

Program berjalan dan segera memunculkan formulir dengan bidang teks tunggal dan OKtombol.
Pengguna mengklik OKtombol.
Tidak ada yang terjadi.
Pasta pengguna "halo dunia" ke dalam bidang teks dan klik OKtombol.
Program berakhir.

Contoh 2

Fungsi dipanggil dan segera menampilkan garis kosong dan kursor yang berkedip.
Pengguna menekan Enter.
Kursor bergerak ke bawah satu baris.
Pengguna menekan Enter.
Kursor bergerak ke bawah satu baris.
Pengguna menekan PPCGEnter
Fungsi kembali.

TI-BASIC, 2 byte

:Prompt X

TI-BASIC melakukan ini secara otomatis. Setelah input diberikan, itu akan berhenti.

Ini GIF:

Tonton hitungan pada entertombol di Key Press History. Dibuat dengan TI-SmartView CE dan ezgif.com .

Python 3 , 18 byte

while''==input():0

Cobalah online!

sed, 4

/./q

Menunggu baris input yang memiliki 1 atau lebih karakter, lalu berhenti.

Cobalah online . Tetapi ini bekerja lebih baik pada shell langsung:

sed '/./q'

JavaScript, 37 22 17 byte

while(!prompt());

while(!prompt());

Penjelasan

Kata whilekunci memulai whileperulangan. Dalam kondisi loop, !prompt()meminta input dan memeriksa apakah itu diberikan atau tidak. Jika tidak diberikan, tubuh loop dijalankan, yang dalam kasus kami kosong, maka penerjemah kembali ke kondisi loop. Proses yang sama terjadi berulang-ulang sampai pengguna memberikan input.

Java, 55 byte

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

Jika saya ingat dengan benar (sudah lama sejak saya aktif di PPCG), program saya bisa saja berfungsi.

Ini spesifik sistem; ini hanya bekerja pada sistem di mana karakter end-of-line adalah satu baris baru. Jika karakter end-of-line bukan carriage return, ganti 10dengan 13. Di Windows, ini tidak berfungsi, seperti end-of-line di windows\r\n .

Ini memanfaatkan fakta bahwa saya dapat membaca langsung dari System.in.

HTML5, 33 22 byte

<form><input required>

<form><input required>

Penjelasan

The requiredatribut pada <input>menyebabkan browser untuk menginformasikan pengguna "bidang ini diperlukan" -sort-of-pesan, jika mereka tidak memasukkan nilai. Namun, ketika mereka memasukkan nilai, nilai tersebut dikirim ke URL actionatribut<form> (yang dalam kasus kami adalah file saat ini, karena kami belum menentukan nilai apa pun secara eksplisit).

Ini diuji pada versi terbaru Google Chrome (versi 55.0). Dapat bekerja di browser dan versi lain.

Jelly , 3 byte

ɠṆ¿

Tidak banyak yang terlihat di TIO, saya khawatir.

Cobalah online!

Bagaimana itu bekerja

Ini adalah program niladik, artinya tidak memerlukan argumen input. Argumen implisit dan nilai pengembalian keduanya 0 dalam kasus ini.

¿(while) adalah quick yang memunculkan dua tautan dari tumpukan tautan: condition ( Ṇ) dan body.

Ṇadalah atom monadik: logika datar TIDAK. Jika nilai pengembalian sebelumnya falsy (di sini, 0 atau string kosong), itu mengembalikan 1 dan tubuh dipanggil.

ɠadalah atom niladik; itu membaca garis mentah dari STDIN dan mengembalikan hasilnya.

Setelah ɠmembaca baris yang tidak kosong, Ṇmengembalikan 0 dan kami keluar dari loop.

Pyth, 3 bytes

W!w

Try it online!

Translated to Python:

while Pnot(input()):
 pass

brainfuck, 26 bytes

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

Try it 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

read a value, negate it (!; implicitly casting to a boolean), and mirror horizontally if the value is truthy (|).

!
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 [non-competing]

1[{?:+|]

Non competing because {, which reads input from STDIN, was added to braingolf after this challenge's post date.

Explanation:

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

Charcoal, 4 bytes

Ｗ¬Ｓω

Explanation

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

05AB1E, 5 bytes

[IõÊ#

Explanation:

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

Try it online!

PowerShell, 20 Bytes

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

runs a for loop,

read-host prompts for input

if read-host returns nothing it evals to false, so we invert that !(...) and use that as the loop end check.

much shorter than any do{$a=read-host}while($a-eq"") type solution involving variables.

Swift, 22 bytes

while readLine()==""{}

CJam, 5 bytes

{l!}g

Try it online! (TIO doesn't really show the proper behaviour)

Explanation

{      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.