Çalışma zamanında, kullanıcı (boş bir yeni satır dışında) bir şey girinceye kadar bir giriş satırı istemeye devam edin, yani sadece Enterveya tuşuna basmaz OK. Çıktı veya sonuç gerekli değildir ve yasaktır.

Sözde kod 1

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

Sözde kod 2

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

örnek 1

Program çalışır ve hemen tek bir metin alanı ve bir OKdüğme ile bir form açılır .
Kullanıcı OKdüğmeyi tıklar .
Hiçbir şey olmuyor.
Kullanıcı "merhaba dünyayı" metin alanına yapıştırır ve OKdüğmeyi tıklatır .
Program sonlandırılıyor.

Örnek 2

İşlev çağrılır ve hemen boş bir satır ve yanıp sönen bir imleç görüntüler.
Kullanıcı basar Enter.
İmleç bir satır aşağı hareket eder.
Kullanıcı basar Enter.
İmleç bir satır aşağı hareket eder.
Kullanıcı basar PPCGEnter
İşlev döner.

TI-BASIC, 2 bayt

:Prompt X

TI-BASIC bunu otomatik olarak yapar. Giriş verildikten sonra, sonlandırılacak.

İşte bir GIF:

enterTuşa Basma Geçmişindeki tuştaki sayımı izleyin . Oluşturulan TI-SmartView CE ve ezgif.com .

Python 3 , 18 bayt

while''==input():0

Çevrimiçi deneyin!

sed, 4

/./q

1 veya daha fazla karakter içeren bir giriş satırı bekler, sonra çıkar.

Çevrimiçi deneyin . Ancak canlı bir kabukta daha iyi çalışır:

sed '/./q'

JavaScript, 37 22 17 bayt

while(!prompt());

while(!prompt());

açıklama

whileAnahtar kelime başlar whiledöngü. Döngü durumunda !prompt()girdi ister ve verilip verilmediğini kontrol eder. Eğer verilmezse, bizim durumumuzda boş olan döngünün gövdesi çalıştırılır, sonra yorumlayıcı döngü durumuna geri döner. Aynı işlem, kullanıcı girişi yapana kadar tekrar tekrar gerçekleşir.

Java, 55 bayt

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

Doğru hatırlıyorsam (PPCG'de aktif olduğumdan bu yana bir süre geçti), programım sadece bir işlev olabilir.

Bu sisteme özgüdür; sadece satır sonu karakterinin tek bir yeni satır olduğu sistemlerde çalışır. Sonu hattı karakteri yerine satırbaşı ise, yerini 10ile 13. Windows'ta bu, Windows'ta satır sonu olduğu gibi çalışmaz \r\n.

Bu doğrudan okuyabildiğim gerçeğini kullanıyor System.in.

HTML5, 33 22 bayt

<form><input required>

<form><input required>

açıklama

requiredÜzerinde özellik <input>kullanıcıya bir değer girmezseniz, -Sıralama-of-mesajının "bu alan gereklidir" bilgilendirmek tarayıcı neden olur. Ancak, bir değer girdiklerinde değer, (açıkça bizim için bir değer belirtmediğimiz için, bizim durumumuzda mevcut dosyanın kendisidir) actionözniteliğinin URL'sine gönderilir <form>.

Bu, Google Chrome'un en son sürümünde (sürüm 55.0) test edildi. Diğer tarayıcılarda ve sürümlerde çalışabilir.

Jöle , 3 bayt

ɠṆ¿

TIO'ya bakacak çok şey yok, korkarım.

Çevrimiçi deneyin!

Nasıl çalışır

Bu, niladik bir programdır, yani giriş argümanları almaz. Örtük argüman ve dönüş değeri bu durumda hem 0'dır .

¿(while), bağlantı yığından iki bağlantı açan hızlı bir işlemdir: bir koşul ( Ṇ) ve bir gövde.

Ṇmonadik bir atomdur: düz mantıksal NOT. Önceki dönüş değeri sahte ise (burada, 0 veya boş bir dize), 1 döndürür ve gövde çağrılır.

ɠbir niladik atomdur; STDIN'den ham bir satır okur ve sonucu döndürür.

Bir kez ɠ, boş olmayan bir satır okur Ṇdöner 0 ve biz döngünün patlak.

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.