User input/Text: Difference between revisions
→{{header|BabyCobol}}: conform to the task definition
Alextretyak (talk | contribs) (Added 11l) |
Grammarware (talk | contribs) (→{{header|BabyCobol}}: conform to the task definition) |
||
(34 intermediate revisions by 26 users not shown) | |||
Line 1:
{{task|Text processing}}
{{selection|Short Circuit|Console Program Basics}}
[[Category:Basic language learning]]
[[Category:Keyboard input]]
[[Category:Simple]]
;Task:
Input a string and the integer '''75000''' from the text console.
See also: [[User input/Graphical]]
<br><br>
=={{header|11l}}==
<
V number = Float(input(‘Input a number: ’))</
=={{header|AArch64 Assembly}}==
{{works with|as|Raspberry Pi 3B/4 version Buster 64 bits}}
<syntaxhighlight lang="aarch64 assembly">
//Consts
.equ BUFFERSIZE, 100
.equ STDIN, 0 // linux input console
.equ STDOUT, 1 // linux output console
.equ READ, 63
.equ WRITE, 64
.equ EXIT, 93
.data
//Read Buffer
.bss
.text
.global
quadEnterText: .quad enterText
quadBuffer: .quad buffer
quadCarriageReturn: .quad carriageReturn
writeMessage:
mov x2,0 // reset size counter to 0
checkSize: // get size of input
ldrb w1,[x0,x2] // load char with offset of x2
add x2,x2,#1 // add 1 char read legnth
cbz w1,output // if char found
b checkSize // loop
output:
mov x1,x0 // move string address into system call func parm
mov x0,STDOUT
mov x8,WRITE
svc 0 // trigger system write
ret
_start:
//Output enter text
ldr x0,quadEnterText // load enter message
bl writeMessage // output enter message
//Read User Input
mov x0,STDIN // linux input console
ldr x1,quadBuffer // load buffer address
mov x2,BUFFERSIZE // load buffer size
mov x8,READ // request to read data
svc 0 // trigger system read input
//Output User Message
mov x2, #0 // prep end of string
ldr x1,quadBuffer // load buffer address
strb w2,[x1, x0] // store x2 0 byte at the end of input string, offset x0
ldr x0,quadBuffer // load buffer address
bl writeMessage
//Output newline
ldr x0,quadCarriageReturn
bl writeMessage
//End Program
mov x0, #0 // return code
mov x8, #EXIT // request to exit program
svc 0 // trigger end of program
</syntaxhighlight>
=={{header|Action!}}==
{{libheader|Action! Tool Kit}}
{{libheader|Action! Real Math}}
<syntaxhighlight lang="action!">INCLUDE "H6:REALMATH.ACT"
PROC Main()
CHAR ARRAY sUser(255)
REAL r75000,rUser
Put(125) PutE() ;clear the screen
ValR("75000",r75000)
Print("Please enter a text: ")
InputS(sUser)
DO
Print("Please enter number ")
PrintR(r75000) Print(": ")
InputR(rUser)
UNTIL RealEqual(rUser,r75000)
OD
PutE()
Print("Text: ") PrintE(sUser)
Print("Number: ") PrintRE(rUser)
RETURN</syntaxhighlight>
{{out}}
[https://gitlab.com/amarok8bit/action-rosetta-code/-/raw/master/images/User_input_Text.png Screenshot from Atari 8-bit computer]
<pre>
Please enter a text: Atari 130XE
Please enter number 75000: 123
Please enter number 75000: 76000
Please enter number 75000: 75000
Text: Atari 130XE
Number: 75000
</pre>
=={{header|Ada}}==
{{works with|GCC|4.1.2}}
<
Line : String (1 .. 1_000);
Last : Natural;
Line 101 ⟶ 142:
-- may raise exception Constraint_Error if value entered is not a well-formed integer
end Get_Integer;
</syntaxhighlight>
The functions above may be called as shown below
<
My_Integer : Integer := Get_Integer;</
Another:
<
procedure User_Input is
Line 123 ⟶ 164:
Ada.Text_IO.Put_Line (Integer'Image(I));
end User_Input;
</syntaxhighlight>
Unbounded IO:
<
Ada.Text_IO,
Ada.Integer_Text_IO,
Line 144 ⟶ 185:
Ada.Text_IO.Put_Line(Integer'Image(I));
end User_Input2;
</syntaxhighlight>
=={{header|ALGOL 68}}==
<
STRING s := read string;
print("Enter a number: ");
INT i := read int;
~</
=={{header|ALGOL W}}==
<
string(80) s;
integer n;
Line 161 ⟶ 202:
write( "Enter an integer> " );
read( n )
end.</
=={{header|Amazing Hopper}}==
Version: hopper-FLOW!
<syntaxhighlight lang="amazing hopper">
#include <flow.h>
#import lib/input.bas.lib
#include include/flow-input.h
DEF-MAIN(argv,argc)
CLR-SCR
MSET( número, cadena )
LOCATE(2,2), PRNL( "Input an string : "), LOC-COL(20), LET( cadena := READ-STRING( cadena ) )
LOCATE(3,2), PRNL( "Input an integer: "), LOC-COL(20), LET( número := INT( VAL(READ-NUMBER( número )) ) )
LOCATE(5,2), PRNL( cadena, "\n ",número )
END
</syntaxhighlight>
{{out}}
<pre>
Input an string : Juanita Pérez
Input an integer: 75000.789
Juanita Pérez
75000
</pre>
=={{header|APL}}==
<
int←⎕</
=={{header|ARM Assembly}}==
{{works with|as|Raspberry Pi}}
<syntaxhighlight lang="arm assembly">
/* ARM assembly Raspberry PI */
Line 321 ⟶ 387:
szMessErrDep: .asciz "Too large: overflow 32 bits.\n"
</syntaxhighlight>
=={{header|Arturo}}==
<
num: to :integer input "Enter an integer: "
print ["Got:" str "," num]</
{{out}}
Line 338 ⟶ 404:
=={{header|AutoHotkey}}==
===Windows console===
<
FileAppend, please type something`n, CONOUT$
FileReadLine, line, CONIN$, 1
Line 344 ⟶ 410:
FileAppend, please type '75000'`n, CONOUT$
FileReadLine, line, CONIN$, 1
msgbox % line</
===Input Command===
this one takes input regardless of which application has focus.
<
Input(String)
TrayTip, Input:, Type an int:
Line 370 ⟶ 436:
TrayTip, Input:, %Output%
}
}</
=={{header|AWK}}==
This demo shows a same-line prompt, and that the integer i becomes 0 if the line did not parse as an integer.
<
enter a string: hello world
ok,hello world/0
75000
ok,75000/75000</
=={{header|Axe}}==
Line 387 ⟶ 453:
Also, in the string entry, the data is a string of tokens, not a string of characters. Thankfully, the most common ASCII symbols (A-Z, 0-9, and some symbols) have the same values as their token counterparts. This means that this example will work for those symbols, but other tokens (especially multi-byte tokens) will cause problems. See [http://tibasicdev.wikidot.com/one-byte-tokens this table] of tokens and their codes for reference.
<
input→A
length(A)→L
Line 421 ⟶ 487:
If C≠7500
Disp "That isn't 7500"
End</
=={{header|BabyCobol}}==
<syntaxhighlight lang="cobol">
* NB: whitespace insignificance and case insensitivity
* are used in the field name.
IDENTIFICATION DIVISION.
PROGRAM-ID. USER INPUT.
DATA DIVISION.
01 HUNDRED CHAR STRING PICTURE IS X(100).
01 FIVE DIGIT NUMBER PICTURE IS 9(5).
PROCEDURE DIVISION.
DISPLAY "Enter a string of appropriate length: " WITH NO ADVANCING
ACCEPT HundredChar String.
DISPLAY "Enter a number (preferably 75000): " WITH NO ADVANCING
ACCEPT FiveDigit Number.
</syntaxhighlight>
=={{header|BASIC}}==
Line 430 ⟶ 512:
This isn't a hard-and-fast rule -- for example, [[Chipmunk Basic]] ''never'' appends a question mark.
<
INPUT "Enter a number: ", i%</
Output ([[QBasic]]):
Line 437 ⟶ 519:
Enter a number: 1
==={{header|Applesoft BASIC}}===
<
20 INPUT "ENTER A NUMBER: "; I : I = INT(I)</
==={{header|Commodore BASIC}}===
Line 445 ⟶ 527:
Also, when a numeric variable is provided for input, the computer will make repeated attempts to obtain valid input from the user until the input can be clearly interpreted as a numeric value.
<
10 input "what is a word i should remember";a$
20 print "thank you."
30 input "will you please type the number 75000";nn
40 if nn<>75000 then print "i'm sorry, that's not right.":goto 30
50 print "thank you."
60 print a$
70 print nn
80 end
</syntaxhighlight>
'''Output'''
Line 475 ⟶ 557:
█
</pre>
==={{header|IS-BASIC}}===
<
110 INPUT PROMPT "Enter a string: ":ST$</
==={{header|QB64}}===
The use of a Long int (l&) is required as the Int variable type is only 2 bytes and even if _UNSIGNED can only hold values up to 65535. If no value is entered for either input value, it will continue to hold whatever value it did previously.
<
Print s$
Print l&
</syntaxhighlight>
==={{header|BASIC256}}===
<syntaxhighlight lang="freebasic">input string "Please enter a string: ", s
do
input "Please enter 75000 : ", i
until i = 75000
print
print s, i</syntaxhighlight>
==={{header|Run BASIC}}===
<syntaxhighlight lang="runbasic">input "Please enter a string: "; s$
while i <> 75000
input "Please enter 75000 : "; i
wend
print
print s$; chr$(9); i</syntaxhighlight>
==={{header|True BASIC}}===
{{works with|QBasic}}
<syntaxhighlight lang="qbasic">PRINT "Please enter a string";
INPUT s$
DO
PRINT "Please enter 75000 ";
INPUT i
LOOP Until i = 75000
PRINT
PRINT s$, i
END</syntaxhighlight>
==={{header|Yabasic}}===
<syntaxhighlight lang="freebasic">input "Please enter a string: " s$
repeat
input "Please enter 75000 : " i
until i = 75000
print
print s$, chr$(9), i</syntaxhighlight>
==={{header|Sinclair ZX81 BASIC}}===
<
20 INPUT S$
30 PRINT "YOU ENTERED: ";S$
Line 496 ⟶ 613:
60 IF N=75000 THEN STOP
70 PRINT "NO, ";
80 GOTO 40</
=={{header|Batch File}}==
<
set /p var=
echo %var% 75000</
=={{header|BBC BASIC}}==
<
INPUT "Enter a number: " number
PRINT "String = """ string$ """"
PRINT "Number = " ; number</
=={{header|Befunge}}==
This prompts for a string and pushes it to the stack a character at a time ('''~''') until end of input (-1).
<
^,_ >~:1+v
^ _@</
Numeric input is easier, using the '''&''' command.
<
^,_ & @</
=={{header|Bracmat}}==
<
= out'"Enter a string"
& get':?mystring
Line 532 ⟶ 649:
)
& out$(mystring is !mystring \nmynumber is !mynumber \n)
);</
<pre>{?} !doit
Enter a string
Line 545 ⟶ 662:
=={{header|C}}==
<
#include <stdlib.h>
Line 566 ⟶ 683:
return EXIT_SUCCESS;
}</
==={{libheader|Gadget}}===
<syntaxhighlight lang="c">
#include <gadget/gadget.h>
LIB_GADGET_START
Main
Cls;
String text;
int number=0;
At 5,5; Print "Enter text : ";
Atrow 7; Print "Enter ‘75000’: ";
Atcol 20;
Atrow 5; Fn_let(text, Input ( text, 30 ) );
Free secure text;
Atrow 7; Stack{
while (number!=75000 )
/*into stack, Input() not need var*/
number = Str2int( Input ( NULL, 6 ) );
}Stack_off;
Prnl;
End
</syntaxhighlight>
{{out}}
<pre>
$ ./tests/input_cons
Enter text : Juanita la mañosa
Enter ‘75000’: 75000
$
</pre>
=={{header|C sharp|C#}}==
<
namespace C_Sharp_Console {
Line 585 ⟶ 743:
}
}
}</
=={{header|C++}}==
{{works with|g++}}
<
#include <string>
using namespace std;
Line 604 ⟶ 762:
cin >> string_input;
return 0;
}</
Note: The program as written above only reads the string up to the first whitespace character. To get a complete line into the string, replace
<syntaxhighlight lang
with
<syntaxhighlight lang
Note: if a numeric input operation fails, the value is not stored for that operation, plus the ''fail bit'' is set, which causes all future stream operations to be ignored (e.g. if a non-integer is entered for the first input above, then nothing will be stored in either the integer and the string). A more complete program would test for an error in the input (with <code>if (!cin) // handle error</code>) after the first input, and then clear the error (with <code>cin.clear()</code>) if we want to get further input.
Line 616 ⟶ 774:
=={{header|Ceylon}}==
<
print("enter any text here");
value text = process.readLine();
Line 627 ⟶ 785:
print("That was not a number per se.");
}
}</
=={{header|Clojure}}==
<
(def scan (Scanner. *in*))
(def s (.nextLine scan))
(def n (.nextInt scan))</
=={{header|COBOL}}==
{{works with|OpenCOBOL}}
<
PROGRAM-ID. Get-Input.
Line 653 ⟶ 811:
GOBACK
.</
=={{header|Common Lisp}}==
<
(let ((s (read-line)))
(format t "You entered ~s~%" s))
Line 664 ⟶ 822:
(if (numberp n)
(format t "You entered ~d.~%" n)
(format t "That was not a number.")))</
=={{header|Crystal}}==
<
begin
Line 674 ⟶ 832:
rescue ex
puts ex
end</
Example with valid input:
Line 693 ⟶ 851:
=={{header|D}}==
<
void main() {
Line 705 ⟶ 863:
writeln("Read in '", number, "' and '", str, "'");
}</
=={{header|Dart}}==
<
main() {
Line 735 ⟶ 893:
}
</syntaxhighlight>
=={{header|Delphi}}==
<
{$APPTYPE CONSOLE}
Line 759 ⟶ 917:
Writeln('Invalid entry: ' + s);
until lIntegerValue = 75000;
end.</
=={{header|Déjà Vu}}==
<
!print\ s
!decode!utf-8 !read-line!stdin
Line 772 ⟶ 930:
/= 75000
catch value-error:
true</
=={{header|EasyLang}}==
<syntaxhighlight lang="text">write "Enter a string: "
a$ = input
print ""
Line 785 ⟶ 943:
until h = 75000
.
print a$ & " " & h</
=={{header|Elena}}==
ELENA
<
public program()
{
var num := new Integer();
console.write
var word := console.write
}</
=={{header|Elixir}}==
<syntaxhighlight lang="elixir">
a = IO.gets("Enter a string: ") |> String.strip
b = IO.gets("Enter an integer: ") |> String.strip |> String.to_integer
Line 807 ⟶ 965:
IO.puts "Integer = #{b}"
IO.puts "Float = #{f}"
</syntaxhighlight>
=={{header|Erlang}}==
<
{ok, [Number]} = io:fread("Enter a number: ","~d").</
Alternatively, you could use io:get_line to get a string:
<
=={{header|Euphoria}}==
<
sequence s
Line 825 ⟶ 983:
puts(1, s & '\n')
n = prompt_number("Enter a number:",{})
printf(1, "%d", n)</
=={{header|F_Sharp|F#}}==
<
let ask_for_input s =
Line 838 ⟶ 996:
ask_for_input "Input a string" |> ignore
ask_for_input "Enter the number 75000" |> ignore
0</
=={{header|Factor}}==
<
readln
"Enter a number: " write
readln string>number</
=={{header|Falcon}}==
<
str = input()
printl("Enter a number:")
n = int(input())</
=={{header|FALSE}}==
FALSE has neither a string type nor numeric input. Shown instead are routines to parse and echo a word and to parse and interpret a number using the character input command (^).
<
[0[^'0-$$9>0@>|~][\10*+]#%]d:
w;! d;!.</
=={{header|Fantom}}==
Line 862 ⟶ 1,020:
The 'toInt' method on an input string will throw an exception if the input is not a number.
<
class Main
{
Line 881 ⟶ 1,039:
}
}
</syntaxhighlight>
=={{header|Forth}}==
===Input a string===
<
PAD SWAP ACCEPT
PAD SWAP ;</
===Input a number===
The only ANS standard number interpretation word is >NUMBER ( ud str len -- ud str len ), which is meant to be the base factor for more convenient (but non-standard) parsing words.
<
0. 16 INPUT$ DUP >R
>NUMBER NIP NIP
R> <> DUP 0= IF NIP THEN ;</
{{works with|GNU Forth}}
<
16 INPUT$ SNUMBER? ;</
{{works with|Win32Forth}}
<
16 INPUT$ NUMBER? NIP
DUP 0= IF NIP THEN ;</
Note that NUMBER? always leaves a double result on the stack.
Line 910 ⟶ 1,068:
{{works with|4tH}}
<
begin
refill drop bl parse-word ( a n)
Line 917 ⟶ 1,075:
drop ( --)
repeat ( n)
;</
Here is an example that puts it all together:
<
." Enter your name: " 80 INPUT$ CR
." Hello there, " TYPE CR
." Enter a number: " INPUT# CR
IF ." Your number is " .
ELSE ." That's not a number!" THEN CR ;</
=={{header|Fortran}}==
{{works with|Fortran|90 and later}}
<
integer :: i
Line 936 ⟶ 1,094:
read*, s
print*, "Enter the integer 75000"
read*, i</
=={{header|FreeBASIC}}==
<
Dim s As String
Line 949 ⟶ 1,107:
Print
Print s, i
Sleep</
Sample input/output
{{out}}
Line 961 ⟶ 1,119:
=={{header|Frink}}==
<
s = input["Enter a string: "]
i = parseInt[input["Enter an integer: "]]
</syntaxhighlight>
=={{header|GDScript}}==
{{works with|Godot|4.0}}
Run with <code>godot --headless --script <file></code>
<syntaxhighlight lang="gdscript">
extends MainLoop
func _process(_delta: float) -> bool:
printraw("Input a string: ")
var read_line := OS.read_string_from_stdin() # Mote that this retains the newline.
printraw("Input an integer: ")
var read_integer := int(OS.read_string_from_stdin())
print("read_line = %s" % read_line.trim_suffix("\n"))
print("read_integer = %d" % read_integer)
return true # Exit instead of looping
</syntaxhighlight>
=={{header|Go}}==
Go has C-like Scan and Scanf functions for quick and dirty input:
<
import "fmt"
Line 980 ⟶ 1,159:
fmt.Println("wrong")
}
}</
Code below allows much more control over interaction and error checking.
<syntaxhighlight lang="go">
package main
Line 1,021 ⟶ 1,200:
fmt.Println("Good")
}
</syntaxhighlight>
=={{header|Groovy}}==
<
num = System.in.readLine().toInteger()</
=={{header|Haskell}}==
<
main = do
putStr "Enter a string: "
Line 1,036 ⟶ 1,215:
hFlush stdout
num <- readLn :: IO Int
putStrLn $ str ++ (show num)</
Note: <tt>:: IO Int</tt> is only there to disambiguate what type we wanted from <tt>read</tt>. If <tt>num</tt> were used in a numerical context, its type would have been inferred by the interpreter/compiler.
Note also: Haskell doesn't automatically flush stdout when doing input, so explicit flushes are necessary.
=={{header|hexiscript}}==
<
let s scan str
print "Enter a number: "
let n scan int</
=={{header|HolyC}}==
<
s = GetStr("Enter a string: ");
Line 1,056 ⟶ 1,235:
Print("Your string: %s\n", s);
Print("75000: %d\n", Str2I64(n));</
=={{header|Icon}} and {{header|Unicon}}==
Line 1,062 ⟶ 1,241:
The following works in both Icon and Unicon:
<
procedure main ()
writes ("Enter something: ")
Line 1,073 ⟶ 1,252:
else write ("you must enter a number")
end
</syntaxhighlight>
=={{header|Io}}==
<
integer := File clone standardInput readLine("Enter 75000: ") asNumber</
=={{header|J}}==
'''Solution'''
<
prompt 'Enter string: '
0".prompt 'Enter an integer: '</
Note that <code>require'misc'</code> is old - efforts to optimize by loading misc utilities in a fine grained fashion mean that currently (J 805) that should be <code>require'general/misc/prompt'</code> and the older form fails with an error to call attention to this issue.
'''Example Usage'''
<
Enter string: Hello World
Hello World
Line 1,102 ⟶ 1,281:
│Hello Rosetta Code│75000│
└──────────────────┴─────┘
</syntaxhighlight>
=={{header|Java}}==
<
import java.util.Scanner;
Line 1,117 ⟶ 1,296:
int i = Integer.parseInt(s.next());
}
}</
or
{{works with|Java|1.5/5.0+}}
<
public class GetInput {
Line 1,130 ⟶ 1,309:
int number = stdin.nextInt();
}
}</
=={{header|JavaScript}}==
{{works with|JScript}} and only with <code>cscript.exe</code>
<
var str = WScript.StdIn.ReadLine();
Line 1,141 ⟶ 1,320:
WScript.Echo("Enter the integer 75000");
val = parseInt( WScript.StdIn.ReadLine() );
}</
{{works with|SpiderMonkey}}
<
var str = readline();
Line 1,151 ⟶ 1,330:
print("Enter the integer 75000");
val = parseInt( readline() );
}</
=={{header|Joy}}==
<syntaxhighlight lang="joy">
"Enter a string: " putchars
stdin fgets
"Enter a number: " putchars
stdin fgets 10 strtol.
</syntaxhighlight>
=={{header|jq}}==
Line 1,171 ⟶ 1,350:
encountered, then the following program could be used on the assumption that
the inputs are all valid JSON.
<
null | until( . == int; "Expecting \(int)" | stderr | input);
Line 1,178 ⟶ 1,357:
(read_string | "I see the string: \(.)"),
(read(75000) | "I see the expected integer: \(.)")</
{{out}}
The following is a transcript showing the prompts (on stderr), responses (on stdin) and output (on stdout):
<
"Please enter a string"
1
Line 1,193 ⟶ 1,372:
"Expecting 75000"
75000
I see the expected integer: 75000</
=={{header|Julia}}==
{{works with|Julia|0.6}}
<syntaxhighlight lang="julia">
print("String? ")
y = readline()
Line 1,209 ⟶ 1,388:
println("Sorry, but \"", y, "\" does not compute as an integer.")
end
</syntaxhighlight>
{{out}}
Line 1,228 ⟶ 1,407:
=={{header|Kite}}==
<syntaxhighlight lang="kite">
System.file.stdout|write("Enter a String ");
string = System.file.stdin|readline();
</syntaxhighlight>
=={{header|Kotlin}}==
<
fun main(args: Array<String>) {
Line 1,244 ⟶ 1,423:
val number = readLine()!!.toInt()
} while (number != 75000)
}</
=={{header|Lambdatalk}}==
<syntaxhighlight lang="scheme">
{input
{@ type="text"
placeholder="Please enter a string and dblclick"
ondblclick="alert( 'You wrote « ' +
this.value +
' » and it is ' +
((isNaN(this.value)) ? 'not' : '') +
' a number.' )"
}}
Please enter a string and dblclick
Input: Hello World
Output: You wrote « Hello World » and it is not a number.
Input: 123
Output: You wrote « 123 » and it is a number.
</syntaxhighlight>
=={{header|Lasso}}==
<
define read_input(prompt::string) => {
Line 1,277 ⟶ 1,478:
// deliver the result
stdoutnl(#string + ' (' + #string -> type + ') | ' + #number + ' (' + #number -> type + ')')</
Output:
Line 1,284 ⟶ 1,485:
Hello (string) | 1234 (integer)
</pre>
=={{header|LDPL}}==
<syntaxhighlight lang="ldpl">data:
myText is text
myNumber is number
procedure:
display "Enter some text: "
accept myText
display "Enter a number: "
accept myNumber
</syntaxhighlight>
=={{header|Liberty BASIC}}==
<
Input "Enter the value 75000.";num</
=={{header|LIL}}==
<
write "Enter a string: "
set text [readline]
Line 1,301 ⟶ 1,514:
print $text
print $num</
=={{header|Logo}}==
Logo literals may be read from a line of input from stdin as either a list or a single word.
<
show map "number? :input ; [false true]
Line 1,311 ⟶ 1,524:
show :input + 123 ; 75123
make "input readword ; in: string 75000
show :input ; string 75000</
=={{header|Logtalk}}==
Using an atom representation for strings and type-check failure-driven loops:
<
:- object(user_input).
Line 1,332 ⟶ 1,545:
:- end_object.
</syntaxhighlight>
Output:
<
| ?- user_input::test.
Enter an integer: 75000.
Enter an atom: 'Hello world!'.
yes
</syntaxhighlight>
=={{header|LOLCODE}}==
<
I HAS A string
GIMMEH string
Line 1,350 ⟶ 1,563:
MAEK number A NUMBR
KTHXBYE
</syntaxhighlight>
=={{header|Lua}}==
<
s = io.stdin:read()
print('Enter a number: ')
i = tonumber(io.stdin:read())
</syntaxhighlight>
=={{header|M2000 Interpreter}}==
<syntaxhighlight lang="m2000 interpreter">
Module CheckIt {
Keyboard "75000"+chr$(13)
Line 1,370 ⟶ 1,583:
}
CheckIt
</syntaxhighlight>
=={{header|MACRO-10}}==
<syntaxhighlight lang="macro-10">
TITLE User Input
COMMENT !
User Input ** PDP-10 assembly language (kjx, 2022)
Assembler: MACRO-10 Operating system: TOPS-20
This program reads a string (maximum of 80 characters) and
a decimal number. The number is checked to be 75000. Invalid
input (like entering characters instead of a decimal number)
is detected, and an error message is printed in that case.
!
SEARCH MONSYM,MACSYM
.REQUIRE SYS:MACREL
STDAC. ;Set standard register names.
STRING: BLOCK 20 ;20 octal words = 80 characters.
NUMBER: BLOCK 1 ;1 word for number.
;;
;; Execution starts here:
;;
GO:: RESET% ;Initialize process.
;; Print prompt:
HRROI T1,[ASCIZ /Please type a string, 80 chars max.: /]
PSOUT%
;; Read string from terminal:
HRROI T1,STRING ;Pointer to string-buffer.
MOVEI T2,^D80 ;80 characters max.
SETZ T3 ;No special ctrl-r prompt.
RDTTY% ;Read from terminal.
ERJMP ERROR ; On error, go to ERROR.
;; Print second prompt:
NUMI: HRROI T1,[ASCIZ /Please type the decimal number 75000: /]
PSOUT%
;; Input number from terminal:
MOVEI T1,.PRIIN ;Read from terminal.
MOVEI T3,^D10 ;Decimal input.
NIN% ;Input number.
ERJMP ERROR ; On error, go to ERROR.
;; Make sure number is actually 75000.
CAIE T2,^D75000 ;Compare number...
JRST [ HRROI T1,[ASCIZ /Number is not 75000! /]
PSOUT% ; ...complain and
JRST NUMI ] ; try again.
MOVEM T2,NUMBER ;Store number if correct.
;; Now print out string and number:
HRROI T1,STRING ;String ptr into T1.
PSOUT% ;Print string.
MOVEI T1,.PRIOU ;Print on standard output.
MOVE T2,NUMBER ;Load number into T2.
MOVEI T3,^D10 ;Decimal output.
NOUT% ;And print the number.
ERJMP ERROR ; On error, go to ERROR.
;; End program:
HALTF% ;Halt program.
JRST GO ;Allow for 'continue'-command.
;;
;; The following routine prints out an error message,
;; similar to perror() in C:
;;
ERROR: MOVEI T1,.PRIOU ;Standard output.
MOVE T2,[.FHSLF,,-1] ;Own program, last error.
SETZ T3, ;No size-limit on message.
ERSTR% ;Print error-message.
JFCL ; Ignore errors from ERSTR.
JFCL ; dito.
HALTF% ;Halt program.
JRST GO ;Allow for 'continue'-command.
END GO
</syntaxhighlight>
Example output:
<pre>
@ exec uinput
MACRO: User
LINK: Loading
[LNKXCT USER execution]
Please type a string, 80 chars max.: This is a test.
Please type the decimal number 75000: 74998
Number is not 75000! Please type the decimal number 75000: 74999
Number is not 75000! Please type the decimal number 75000: 75000
This is a test.
75000
@ _
</pre>
=={{header|Maple}}==
<
printf("Integer: "); int_value := parse(readline());</
=={{header|Mathematica}} / {{header|Wolfram Language}}==
<
myinteger = Input["give me an integer please"];</
=={{header|MATLAB}}==
Line 1,384 ⟶ 1,705:
Sample usage:
<
Input string: 'Hello'
Line 1,403 ⟶ 1,724:
ans =
75000</
=={{header|Maxima}}==
<syntaxhighlight lang="maxima">
/* String routine */
block(
s:read("enter a string"),
if stringp(s) then print(s,"is an actual string") else "that is not a string")$
/* Number routine */
block(
n:read("enter a number"),
if numberp(n) then print(n,"is an actual number") else "that is not a number")$
</syntaxhighlight>
=={{header|Metafont}}==
<
message "write a string: ";
s := readstring;
Line 1,418 ⟶ 1,753:
message "Sorry..."
fi;
end</
If we do not provide a number in the second input, Metafont will complain. (The number 75000 was reduced to 750 since Metafont biggest number is near 4096).
Line 1,424 ⟶ 1,759:
=={{header|min}}==
{{works with|min|0.19.3}}
<
"Enter an integer" ask int</
=={{header|Mirah}}==
<
puts s</
=={{header|mIRC Scripting Language}}==
<
echo -a You answered: $input(What's your name?, e)
}</
=={{header|Modula-3}}==
<
IMPORT IO, Fmt;
Line 1,451 ⟶ 1,786:
number := IO.GetInt();
IO.Put("You entered: " & string & " and " & Fmt.Int(number) & "\n");
END Input.</
=={{header|MUMPS}}==
<
NEW S,N
WRITE "Enter a string: "
Line 1,461 ⟶ 1,796:
READ N,!
KILL S,N
QUIT</
=={{header|Nanoquery}}==
<
integer = int(input("Enter an integer: "))</
=={{header|Neko}}==
<syntaxhighlight lang="actionscript">/**
User input/Text, in Neko
Tectonics:
Line 1,502 ⟶ 1,837:
if num == 75000 $print("Rosetta Code 75000, for the win!\n")
else $print("Sorry, need 75000\n")
} catch problem $print("Exception: ", problem, "\n")</
{{out}}
Line 1,514 ⟶ 1,849:
=={{header|Nemerle}}==
<
using System.Console;
Line 1,533 ⟶ 1,868:
} while ((!numeric) || (entry != 75000))
}
}</
=={{header|NetRexx}}==
<
options replace format comments java crossref symbols nobinary
Line 1,553 ⟶ 1,888:
end
return
</syntaxhighlight>
=={{header|newLISP}}==
{{works with|newLISP|9.0}}
<
(set 'x (read-line))
(print "Enter a string: ")
(set 'y (read-line))</
=={{header|Nim}}==
<
let str = readLineFromStdin "Input a string: "
let num = parseInt(readLineFromStdin "Input
=={{header|NS-HUBASIC}}==
<
20 PRINT "YOU ENTERED ";STRING$;"."
30 INPUT "ENTER AN INTEGER: ",INTEGER
40 PRINT "YOU ENTERED";INTEGER;"."</
=={{header|Nu}}==
<syntaxhighlight lang="nu">
{
String: (input "Enter a string: ")
Number: (input "Enter an integer: ")
}
</syntaxhighlight>
{{out}}
<pre>
Enter a string: Hello world!
Enter an integer: 75000
╭────────┬──────────────╮
│ String │ Hello world! │
│ Number │ 75000 │
╰────────┴──────────────╯
</pre>
=={{header|Oberon-2}}==
{{works with|oo2c}}
<
MODULE InputText;
IMPORT
Line 1,588 ⟶ 1,940:
Out.String("Enter a string: ");Out.Flush();In.String(str);
END InputText.
</syntaxhighlight>
=={{header|Objeck}}==
<
use IO;
Line 1,605 ⟶ 1,957:
}
}
</syntaxhighlight>
=={{header|OCaml}}==
<
let str = read_line () in
print_string "Enter an integer: ";
let num = read_int () in
Printf.printf "%s%d\n" str num</
=={{header|Octave}}==
<
s = input("Enter a string: ", "s");
Line 1,630 ⟶ 1,982:
disp(s);
disp(i);
disp(ri);</
=={{header|Oforth}}==
<
: testInput{
Line 1,641 ⟶ 1,993:
while (System.Console askln asInteger dup ->n isNull) [ "Not an integer" println ]
System.Out "Received : " << s << " and " << n << cr ;</
=={{header|Oz}}==
<
StdIn = {New class $ from Open.file Open.text end init(name:stdin)}
StringInput
Line 1,657 ⟶ 2,009:
in
Num := try {String.toInt Line} catch _ then 0 end
end</
=={{header|PARI/GP}}==
<
n=eval(input());</
=={{header|Pascal}}==
<
var i : Integer;
s : String;
Line 1,673 ⟶ 2,025:
write('Enter a string: ');
readln(s)
end.</
=={{header|Perl}}==
<
my $string = <>;
print "Enter an integer: ";
my $integer = <>;</
=={{header|Phix}}==
<!--<
<span style="color: #0000FF;">?</span><span style="color: #7060A8;">prompt_string</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"Enter any string:"</span><span style="color: #0000FF;">)</span>
<span style="color: #0000FF;">?</span><span style="color: #7060A8;">prompt_number</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"Enter the number 75000:"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">75000</span><span style="color: #0000FF;">,</span><span style="color: #000000;">75000</span><span style="color: #0000FF;">})</span>
<!--</
{{out}}
<pre>
Line 1,695 ⟶ 2,047:
75000
</pre>
=={{header|Phixmonti}}==
<syntaxhighlight lang="Phixmonti">/# Rosetta Code problem: https://rosettacode.org/wiki/User_input/Text
by Galileo, 10/2022 #/
"Enter any string: " input nl
true while
75000 "Enter the number " over tostr chain ": " chain input
nl tonum over == not
endwhile
drop pstack</syntaxhighlight>
{{out}}
<pre>Enter any string: Hello
Enter the number 75000: 1000
Enter the number 75000: 75000
["Hello", 75000]
=== Press any key to exit ===</pre>
=={{header|PHP}}==
{{works with|CLI SAPI}}
<
<?php
$string = fgets(STDIN);
$integer = (int) fgets(STDIN);</
=={{header|Picat}}==
<syntaxhighlight lang="picat">main =>
print("Enter a string: "),
String = read_line(),
print("Enter a number: "),
Number = read_int(),
println([string=String,number=Number]).</syntaxhighlight>
=={{header|PicoLisp}}==
<
(let (Str (read) Num (read))
(prinl "The string is: \"" Str "\"")
(prinl "The number is: " Num) ) )</
=={{header|Pike}}==
<
write("Enter a String: ");
string str = Stdio.stdin->gets();
write("Enter 75000: ");
int num = Stdio.stdin->gets();
}</
=={{header|PL/I}}==
<
declare k fixed decimal (15);
Line 1,728 ⟶ 2,107:
get list (k);
put skip list (k);
put skip list ('Thanks');</
=={{header|Plain English}}==
<
Start up.
Demonstrate input.
Line 1,744 ⟶ 2,123:
\Now show the input values
Write "The string: " then the string to the console.
Write "The number: " then the number to the console.</
A sample run of the program:
{{out}}
Line 1,755 ⟶ 2,134:
=={{header|Pop11}}==
<
lvars itemrep = incharitem(charin);
lvars s, c, j = 0;
Line 1,763 ⟶ 2,142:
consstring(j) -> s;
;;; read the integer
lvars i = itemrep();</
=={{header|PostScript}}==
{{works with|PostScript|level-2}}
<
/kbd (%stdin) (r) file def
%make ten-char buffer to read string into:
/buf (..........) def
%read string into buffer:
kbd buf readline</
At this point there will be two items on the stack: a boolean which is "true" if the read was successful and the string that was read from the kbd (input terminates on a <return>). If the length of the string exceeds the buffer length, an error condition occurs (rangecheck). For the second part, the above could be followed by this:
<
{cvi} if</
which will read the conversion operator 'cvi' (convert to integer) and the boolean and execute the former if the latter is true.
Line 1,783 ⟶ 2,162:
=={{header|PowerShell}}==
<
[int]$number = Read-Host "Input a number"</
=={{header|PureBasic}}==
<
; Declare a string and a integer to be used
Define txt.s, num.i
Line 1,803 ⟶ 2,182:
Print("You made it!")
Delay(3000): CloseConsole()
EndIf</
=={{header|Python}}==
===Input a string===
<
In Python 3.0, raw_input will be renamed to input(). The Python 3.0 equivalent would be
<
===Input a number===
While input() gets a string in Python 3.0, in 2.x it is the equivalent of eval(raw_input(...)). Because this runs arbitrary code, and just isn't nice, it is being removed in Python 3.0. raw_input() is being changed to input() because there will be no other kind of input function in Python 3.0.
<
Python 3.0 equivalent:
<
The preferred way of getting numbers from the user is to take the input as a string, and pass it to any one of the numeric types to create an instance of the appropriate number.
<
Python 3.0 equivalent:
<
float may be replaced by any numeric type, such as int, complex, or decimal.Decimal. Each one varies in expected input.
Line 1,825 ⟶ 2,204:
The word <code>$->n</code> attempts to convert a string to an integer, and returns an integer and a success flag. Validating the input is not part of the task, but since the flag is there we might as well use it. Similarly, might as well trim leading and trailing spaces, because ''users'', eh.
<
say 'You entered: "' echo$ say '"' cr cr
Line 1,834 ⟶ 2,213:
else
[ say "That was not an integer." cr
drop ]</
{{out}}
Line 1,848 ⟶ 2,227:
{{works with|R|2.81}}
<
intval <- as.integer(readline("Integer: "))</
=={{header|Racket}}==
<syntaxhighlight lang="racket">
#lang racket
(printf "Input a string: ")
Line 1,869 ⟶ 2,248:
(unless (number? n) (error "I said a number!"))
(printf "You entered: ~a\n" n)
</syntaxhighlight>
=={{header|Raku}}==
(formerly Perl 6)
<syntaxhighlight lang="raku"
my $int = prompt("Enter a integer: ");</
=={{header|Rascal}}==
It is possible to use the eclipse IDE to create consoles. However, just as with the graphical input, this will always return a string. This string can subsequently be evaluated. A very simple example would be:
<
public void InputConsole(){
x = "";
Line 1,885 ⟶ 2,264:
str (str inp) {x = "<inp == "75000" ? "You entered 75000" : "You entered a string">";
return "<x>\n<inp>\nInput\>";});
}</
Which has as output:
Line 1,893 ⟶ 2,272:
=={{header|Raven}}==
<
'Input an integer: ' print expect 0 prefer as num</
=={{header|REBOL}}==
<
Title: "Textual User Input"
URL: http://rosettacode.org/wiki/User_Input_-_text
Line 1,923 ⟶ 2,302:
; It always pays to be polite...
print rejoin [ "Thank you. Your string was '" s "'."]</
Output:
Line 1,939 ⟶ 2,318:
=={{header|Red}}==
<
=={{header|Retro}}==
<
'Enter_a_string:_ s:put s:get s:keep
[ 'Enter_75000:_ s:put s:get-word s:to-number nl #75000 eq? ] until
'Your_string_was:_'%s'\n s:format s:put ;</
=={{header|REXX}}==
Line 1,960 ⟶ 2,339:
do until userNumber==75000
<
say 'Please enter a string:' /*issue a prompt message to the term. */
parse pull userString /*the (char) string can be any length. */
Line 1,969 ⟶ 2,348:
parse pull userNumber /*obtain the user text from terminal. */
end /*until*/ /*check if the response is legitimate. */
/*stick a fork in it, we're all done. */</
=={{header|Ring}}==
<
see "Enter a string : " give s
see "Enter an integer : " give i
see "String = " + s + nl
see "Integer = " + i + nl
</syntaxhighlight>
=={{header|Robotic}}==
<
input string "Enter string:"
set "$str" to "input"
Line 1,989 ⟶ 2,368:
[ "&number&"
end
</syntaxhighlight>
To ensure that a specific number must be entered, just create a loop around the second input function:
<
input string "Enter string:"
set "$str" to "input"
Line 2,003 ⟶ 2,382:
[ "&number&"
end
</syntaxhighlight>
=={{header|RPL}}==
≪ <span style="color:red">"Enter text" { "" 𝛼 }</span> INPUT <span style="color:grey">@ Set keyboard alpha mode</span>
<span style="color:red">75000</span> → string n75000
≪ '''DO'''
<span style="color:red">"Enter number "</span> n + <span style="color:red">""</span> INPUT
'''UNTIL''' n →STR == '''END'''
string number
≫ ≫ '<span style="color:blue">TASK</span>' STO
=={{header|Ruby}}==
{{works with|Ruby|1.8.4}}
<
s = gets
printf "Enter an integer: "
Line 2,015 ⟶ 2,403:
puts "String = #{s}"
puts "Integer = #{i}"
puts "Float = #{f}"</
=={{header|Rust}}==
This program shows all the proper error handling.
<
use std::fmt::Display;
use std::process;
Line 2,050 ⟶ 2,438:
let _ = writeln!(&mut io::stderr(), "Error: {}", msg);
process::exit(code)
}</
=={{header|Scala}}==
<
val i=Console.readLong // Task says to enter 75000
print("Enter a string: ")
val s=Console.readLine</
=={{header|Scheme}}==
The <tt>read</tt> procedure is R5RS standard, inputs a scheme representation so, in order to read a string, one must enter <tt>"hello world"</tt>
<
(define num (read))
(display "String = ") (display str)
(display "Integer = ") (display num)</
=={{header|Seed7}}==
<
const proc: main is func
Line 2,077 ⟶ 2,465:
write("Enter a string: ");
readln(string_input);
end func;</
=={{header|Sidef}}==
Using the '''read(Type)''' built-in function:
<
var i = read(Number); # auto-conversion to a number</
or using the '''Sys.readln(msg)''' method:
<
var i = Sys.readln("Enter a number: ").to_i;</
=={{header|Slate}}==
<
[| n |
n: (Integer readFrom: (query: 'Enter an Integer: ')).
Line 2,095 ⟶ 2,483:
ifTrue: [print: n]
ifFalse: [inform: 'Not an integer: ' ; n printString]
] do.</
=={{header|Smalltalk}}==
<
a := stdin nextLine asInteger.
'Enter a string: ' display.
b := stdin nextLine.</
=={{header|smart BASIC}}==
Line 2,108 ⟶ 2,496:
'''NOTE:''' The INPUT command uses a colon (:) as opposed to a comma (,) or semi-conlon (;) like other forms of BASIC.
<
INPUT "Enter the value 75000.":n</
=={{header|SNOBOL4}}==
<
str = trim(input)
output = "Enter an integer:"
int = trim(input)
output = "String: " str " Integer: " int
end</
=={{header|SPL}}==
In SPL all console input is text, so number should be converted from text using #.val function.
<
number = #.val(#.input("Input a number"))</
=={{header|SparForte}}==
As a structured script.
<syntaxhighlight lang="ada">#!/usr/local/bin/spar
pragma annotate( summary, "get_string" )
@( description, "Input a string and the integer 75000 from the text console." )
@( see_also, "https://rosettacode.org/wiki/User_input/Text" )
@( author, "Ken O. Burtch" );
pragma license( unrestricted );
pragma restriction( no_external_commands );
procedure get_string is
s : unbounded_string;
i : integer;
begin
s := get_line;
i := integer( numerics.value( get_line ) );
? s @ i;
exception when others =>
put_line( standard_error, "the value is not valid" );
end get_string;</syntaxhighlight>
As a unstructured script and no exception handling.
<syntaxhighlight lang="ada">
s := get_line;
i := numerics.value( get_line );
? s @ i;</syntaxhighlight>
=={{header|Standard ML}}==
<
let val str = valOf (TextIO.inputLine TextIO.stdIn) in (* note: this keeps the trailing newline *)
print "Enter an integer: ";
Line 2,131 ⟶ 2,547:
print (str ^ Int.toString num ^ "\n")
end
end</
=={{header|Swift}}==
{{works with|Swift|2.x+}}
<
if let str = readLine() {
print(str)
}</
{{works with|Swift|5.x+}}
<
guard let str = readLine() else {
fatalError("Nothing read!")
Line 2,149 ⟶ 2,565:
fatalError("Not a number!")
}
print(num)</
=={{header|Tcl}}==
Like LISP, there is no concept of a "number" in Tcl - the only real variable type is a string (whether a string might represent a number is a matter of interpretation of the string in a mathematical expression at some later time). Thus the input is the same for both tasks:
<
set num [gets stdin]</
possibly followed by something like
<
If the requirement is to prompt until the user enters the integer 75000, then:
<
while {$input != 75000} {
puts -nonewline "enter the number '75000': "
flush stdout
set input [gets stdin]
}</
Of course, it's nicer to wrap the primitives in a procedure:
<
upvar 1 $var v
puts -nonewline "$message: "
Line 2,175 ⟶ 2,591:
question name "What is your name"
question task "What is your quest"
question doom "What is the air-speed velocity of an unladen swallow"</
=={{header|TI-83 BASIC}}==
Line 2,181 ⟶ 2,597:
This program leaves the string in String1, and the integer in variable "i".
<
:Input "Enter a string:",Str1
:Prompt i
Line 2,188 ⟶ 2,604:
:Else
:Stop
</syntaxhighlight>
=={{header|TI-89 BASIC}}==
Line 2,194 ⟶ 2,610:
This program leaves the requested values in the global variables ''s'' and ''integer''.
<
InputStr "Enter a string", s
Loop
Line 2,204 ⟶ 2,620:
EndIf
EndLoop
EndPrgm</
=={{header|Toka}}==
<
." Enter a string: " readline is-data the-string
." Enter a number: " readline >number [ ." Not a number!" drop 0 ] ifFalse is-data the-number
the-string type cr
the-number . cr</
=={{header|TUSCRIPT}}==
<
$$ MODE TUSCRIPT
LOOP
Line 2,228 ⟶ 2,644:
ENDIF
ENDLOOP
</syntaxhighlight>
Output:
<pre>
Line 2,241 ⟶ 2,657:
=={{header|UNIX Shell}}==
{{works with|Bourne Shell}}
<
read string
read integer
read -p 'Enter a number: ' number
echo "The number is $number"</
=={{header|Ursa}}==
<
# user input
#
Line 2,262 ⟶ 2,678:
set i (in int console)
out "you entered " str " and " i endl console</
=={{header|VBA}}==
<
Debug.Print InputBox("Input a string")
Debug.Print InputBox("Input the integer 75000", "Input an integer", 75000, Context = "Long")
End Sub</
=={{header|Vedit macro language}}==
<
#2 = Get_Num("Enter a number: ")</
=={{header|Visual Basic .NET}}==
Line 2,280 ⟶ 2,696:
===Input an Integer===
<
Console.WriteLine("Enter an Integer")
i = Console.ReadLine()</
===Input an Integer With Error Handling===
<
Dim iString As String
Console.WriteLine("Enter an Integer")
Line 2,293 ⟶ 2,709:
Catch ex As Exception
Console.WriteLine("This is not an Integer")
End Try</
===Input a String===
<
Console.WriteLine("Enter a String")
i = Console.ReadLine()</
=={{header|V (Vlang)}}==
<syntaxhighlight lang="v (vlang)">import os
fn main() {
s := os.input('Enter string').int()
if s == 75000 {
println('good')
} else {
println('bad')
}
}</syntaxhighlight>
==Input conversion with Error Handling==
<syntaxhighlight lang="text">import os
import strconv
fn main() {
s := strconv.atoi(os.input('Enter string')) ?
if s == 75000 {
println('good')
} else {
println('bad $s')
}
}</syntaxhighlight>
=={{header|Wee Basic}}==
<syntaxhighlight lang="text">print 1 "Enter a string."
input string$
print 1 "Enter an integer."
input integer</
=={{header|Wren}}==
<
var string
Line 2,335 ⟶ 2,776:
System.print("\nYou entered:")
System.print(" string: %(string)")
System.print(" number: %(number)")</
{{out}}
Line 2,349 ⟶ 2,790:
=={{header|XLISP}}==
<tt>READ-LINE</tt> reads a line of input as a string; <tt>READ</tt> reads an expression, of arbitrary complexity.
<
(define s (read-line))
(display "Yes, ")
Line 2,364 ⟶ 2,805:
"That is not the integer 75000." )
(t
"Yes, that is the integer 75000." ) ) )</
{{out}}
<pre>Enter a string: Rosetta Code
Line 2,379 ⟶ 2,820:
place of the Enter key to mark the end of the string.
<
include c:\cxpl\codes;
int I;
Line 2,393 ⟶ 2,834:
Text(0, "Howdy "); Text(0, Name); Text(0, "! Now please enter ^"75000^": ");
IntOut(0, IntIn(0)); CrLf(0); \echo the number
]</
Example output:
Line 2,403 ⟶ 2,844:
=={{header|zkl}}==
<
n:=ask("Type 75000: ").toInt();</
=={{header|ZX Spectrum Basic}}==
<
20 INPUT "Enter a number: "; n</
{{omit from|GUISS|We need an application that asks for these}}
{{omit from|SQL PL|It does not handle user interaction, only the clients to access database done that}}
----
|