それじゃ俺が知っている C からだ。
皆も知ってる言語・スクリプトで続けてくれ！
#include <stdio.h>
int main()
{
printf("Hello World\n");
return (0);
}
いろんな言語で「Hello World」だ。ゴラァ
■ このスレッドは過去ログ倉庫に格納されています
1名無しさん＠お腹いっぱい。
NGNG202zilog inside
NGNG しまった。 >>29 で激しくガイシュツであった…
しかも system-reset で CP/M に戻ってるし。
しかも system-reset で CP/M に戻ってるし。
203login:Penguin
NGNG >>198 の改訂版。
Sub HelloWorld()
Const c As Long = 167478560
Dim a As Long
Dim p As Long
Dim q As Integer
Dim n As Integer
p = 1622817408
n = 112
While p > 0
p = Int(p / 8)
q = p Mod 8
a = c Mod 16 ^ (q + 1)
n = n + (a - c Mod 16 ^ (q - (q = 0))) / 16 ^ q - 8
Debug.Print Chr(n + (((n - 104) Mod 15) = 0) * 32 + (q = 6) * 80);
Wend
End Sub
Sub HelloWorld()
Const c As Long = 167478560
Dim a As Long
Dim p As Long
Dim q As Integer
Dim n As Integer
p = 1622817408
n = 112
While p > 0
p = Int(p / 8)
q = p Mod 8
a = c Mod 16 ^ (q + 1)
n = n + (a - c Mod 16 ^ (q - (q = 0))) / 16 ^ q - 8
Debug.Print Chr(n + (((n - 104) Mod 15) = 0) * 32 + (q = 6) * 80);
Wend
End Sub
204203
NGNG あ，13 行目と 14 行目を
n = n + (c Mod 16 ^ (q + 1) - c Mod 16 ^ (q - (q = 0))) / 16 ^ q - 8
とまとめれば，変数 a は不要でした。
n = n + (c Mod 16 ^ (q + 1) - c Mod 16 ^ (q - (q = 0))) / 16 ^ q - 8
とまとめれば，変数 a は不要でした。
205login:Penguin
NGNG (q - (q = 0)) は Sgn(q + 1) * q にすることも可。
>>203 の (q = 6) は (-Int(q / 6)) にすることも可。
比較演算子っていんちきくさいじゃん。なんとなく。
スレ違いかも。
>>203 の (q = 6) は (-Int(q / 6)) にすることも可。
比較演算子っていんちきくさいじゃん。なんとなく。
スレ違いかも。
207login:Penguin
NGNG PC-8801
VRAMの先頭アドレスってC000Hからで合ってたっけ？
LD HL,0C000H
LD BC,#MSG
LD B,11
LOOP:
LD A,(BC)
LD (HL),A
INC HL
INC BC
DJNZ LOOP
.data
MSG: DC "HELLO WORLD"
VRAMの先頭アドレスってC000Hからで合ってたっけ？
LD HL,0C000H
LD BC,#MSG
LD B,11
LOOP:
LD A,(BC)
LD (HL),A
INC HL
INC BC
DJNZ LOOP
.data
MSG: DC "HELLO WORLD"
208207
NGNG スマソ。LINUX板だった。
210login:Penguin
NGNGNGNG
: MAIN
"Hello World" SPRINT ;
"Hello World" SPRINT ;
NGNG
hello:-write('Hello World'),nl.
213login:Penguin
NGNG >>212
そのProlog、おもいっきりガイシュツです
そのProlog、おもいっきりガイシュツです
214login:Penguin
NGNG to hello
cs hideturtle home penup
lt 90 fd 100 rt 90
pendown fd 40 bk 20
repeat 2 [rt 90 fd 20]
penup lt 90 fd 30 lt 180
pendown fd 20 rt 90 fd 40 repeat 3 [rt 90 fd 20]
penup bk 30 rt 90 bk 20
pendown fd 40
penup rt 90 fd 30 lt 90
pendown bk 40
penup rt 90 fd 30 lt 90
pendown repeat 4 [fd 20 rt 90]
penup rt 90 fd 30 lt 90
pendown repeat 2 [fd 40 bk 40 rt 90 fd 20 lt 90] fd 40 bk 40
penup rt 90 fd 30 lt 90
pendown repeat 4 [fd 20 rt 90]
penup rt 90 fd 30 lt 90
pendown fd 20 rt 90 fd 20
penup fd 30
pendown repeat 4 [fd 20 rt 90] fd 20 lt 90 fd 20
end
cs hideturtle home penup
lt 90 fd 100 rt 90
pendown fd 40 bk 20
repeat 2 [rt 90 fd 20]
penup lt 90 fd 30 lt 180
pendown fd 20 rt 90 fd 40 repeat 3 [rt 90 fd 20]
penup bk 30 rt 90 bk 20
pendown fd 40
penup rt 90 fd 30 lt 90
pendown bk 40
penup rt 90 fd 30 lt 90
pendown repeat 4 [fd 20 rt 90]
penup rt 90 fd 30 lt 90
pendown repeat 2 [fd 40 bk 40 rt 90 fd 20 lt 90] fd 40 bk 40
penup rt 90 fd 30 lt 90
pendown repeat 4 [fd 20 rt 90]
penup rt 90 fd 30 lt 90
pendown fd 20 rt 90 fd 20
penup fd 30
pendown repeat 4 [fd 20 rt 90] fd 20 lt 90 fd 20
end
215login:Penguin
NGNG >>207
Bレジスター破壊しまくり藁
LD DE,0C000H
LD HL,#MSG
LOOP:
LD A,(HL)
OR A
RET Z
LDI
JR LOOP
.data
MSG: DC "HELLO WORLD",0
って感じかな？
Bレジスター破壊しまくり藁
LD DE,0C000H
LD HL,#MSG
LOOP:
LD A,(HL)
OR A
RET Z
LDI
JR LOOP
.data
MSG: DC "HELLO WORLD",0
って感じかな？
216nanashi
NGNG218217
NGNG あ、すまん、使ってたな。しかも不定長に対応だな
一滴マス
一滴マス
219210
NGNG220218
NGNG かえってきました
>>219
あ、なるほど。PASCAL文字列なら(そう、それはPASCAL文字列です)、文字数をBCに入
れてLDIRでおしまい、ですね。
誰か自己書き換えとかスタックポインタいじるとかして処理してーん(とかいってみる)。
また一滴マス。
>>219
あ、なるほど。PASCAL文字列なら(そう、それはPASCAL文字列です)、文字数をBCに入
れてLDIRでおしまい、ですね。
誰か自己書き換えとかスタックポインタいじるとかして処理してーん(とかいってみる)。
また一滴マス。
221名無し
NGNG 変数使ってみました。ちょいインデントが不安。
public class Hello
{
public static void Main(string[]args)
{
string a="Hello World";
System.Console.WriteLine(a);
}
}
public class Hello
{
public static void Main(string[]args)
{
string a="Hello World";
System.Console.WriteLine(a);
}
}
222login:Penguin
NGNG with io;
package body helloworld is
use io;
begin -- main
put("Hello World");
new_line;
end helloworld;
package body helloworld is
use io;
begin -- main
put("Hello World");
new_line;
end helloworld;
223login:Penguin
NGNG >>222
これＰＡＳＣＡＬ？
これＰＡＳＣＡＬ？
224login:Penguin
NGNG set label "Hello World" at screen 0.5,screen 0.5
set border 0
set noxtics
set noytics
set xrange [0:1]
set yrange [0:1]
plot -1 notitle
set border 0
set noxtics
set noytics
set xrange [0:1]
set yrange [0:1]
plot -1 notitle
225login:Penguin
NGNG226login:Penguin
NGNG '# hello.vbs で保存してダブルクリック
dim EXL
set EXL=WScript.CreateObject("Excel.Application")
EXL.Workbooks.Add
EXL.Cells(1,1).Value="Hello World"
EXL.Visible=True
dim EXL
set EXL=WScript.CreateObject("Excel.Application")
EXL.Workbooks.Add
EXL.Cells(1,1).Value="Hello World"
EXL.Visible=True
227225
NGNG 間違えた，スマソ。
>218 は >214 が正解。
>218 は >214 が正解。
228login:Penguin
NGNGNGNG
dialog "Hello world",0,"hogehoge"
230login:Penguin
NGNG Basic09 きぼーーんぬ
231名無しさん＠お腹いっぱい。
NGNG アセンブラでお願いします
232login:Penguin
NGNG >>231
既に出ているが、何か？
既に出ているが、何か？
233login:Penguin
NGNG import com.nttdocomo.ui.*;
public class HelloIJava extends IApplication implements SoftKeyListener
{
private Panel panel;
public HelloIJava(){}
public void start()
{
panel=new Panel();
panel.add(new Label("Hello !!",Label.CENTER));
panel.setSoftLabel(Panel.SOFT_KEY_1,"Quit");
panel.setSoftKeyListener(this);
Display.setCurrent(panel);
}
public void softKeyPressed(int softKey)
{
if (softKey==Frame.SOFT_KEY_1)
{
terminate();
}
}
public void softKeyReleased(int softKey){}
}
第1のポイントのゴールはイワツバメが彼が行ったことを行ってはならなかったと
単に強調すること次のとおりです:これは受理可能ではありません。なんちゃって
public class HelloIJava extends IApplication implements SoftKeyListener
{
private Panel panel;
public HelloIJava(){}
public void start()
{
panel=new Panel();
panel.add(new Label("Hello !!",Label.CENTER));
panel.setSoftLabel(Panel.SOFT_KEY_1,"Quit");
panel.setSoftKeyListener(this);
Display.setCurrent(panel);
}
public void softKeyPressed(int softKey)
{
if (softKey==Frame.SOFT_KEY_1)
{
terminate();
}
}
public void softKeyReleased(int softKey){}
}
第1のポイントのゴールはイワツバメが彼が行ったことを行ってはならなかったと
単に強調すること次のとおりです:これは受理可能ではありません。なんちゃって
234login:Penguin
NGNG 10 "Hellow world" /
20 #=10
20 #=10
235login:Penguin
NGNG $ cat Hello\ World
echo $0
色々問題があるが。
echo $0
色々問題があるが。
236Modula-2
NGNG MODULE Hello;
FROM InOut IMPORT WriteString, WriteLn;
BEGIN
WriteString('Hello, world.');
WriteLn();
END Hello.
FROM InOut IMPORT WriteString, WriteLn;
BEGIN
WriteString('Hello, world.');
WriteLn();
END Hello.
237Basic-09 >>230
NGNG PROCEDURE Hello
(* This is a sample of Basic09 *)
(* usage: RunB("Hello") *)
print #1, "Hello, world"
end
(* This is a sample of Basic09 *)
(* usage: RunB("Hello") *)
print #1, "Hello, world"
end
238hello.tcl
NGNG wm title . "Hello, world"
label .l -relief sunken -border 2 -text "Hello, world."
button .b -text "Bye, world." -command {exit}
pack .l -side top -padx 10 -pady 5
pack .b -side right
label .l -relief sunken -border 2 -text "Hello, world."
button .b -text "Bye, world." -command {exit}
pack .l -side top -padx 10 -pady 5
pack .b -side right
239hello.vl
NGNG module main();
initial begin
$display("Hello,world");
$finish;
end
endmodule
initial begin
$display("Hello,world");
$finish;
end
endmodule
240login:Penguin
NGNG 倉庫入りしそうじゃねーか、ゴルァ age
NGNG
倉庫入りは下げでﾚｽしても阻止できるぞ
242login:Penguin
NGNG age
243login:Penguin
NGNG >>11
これのどこがまずいの？
これのどこがまずいの？
244login:Penguin
NGNG program Project2;
{$APPTYPE CONSOLE}
uses SysUtils;
begin
write('Hello,World!');
end.
{$APPTYPE CONSOLE}
uses SysUtils;
begin
write('Hello,World!');
end.
245login:Penguin
NGNG <HTML>
<B>Hello,world</B>
</HTML>
<B>Hello,world</B>
</HTML>
246login:Penguin
NGNG #include <stdio.h>
long lMsg[ 6][ 2] = {
0x00012024L, 0x00420015L,
0x00712724L, 0x0072D395L,
0x00892fBCL, 0x004A3455L,
0x068920A4L, 0x004A1455L,
0x02712724L, 0x0072138AL,
0x00000000L, 0x00000000L
};
int main( void)
{
int iLine;
int iBank;
int iBit;
long lTest = 0;
for(iLine = 0;iLine < 5;iLine++){
for(iBank = 0;iBank < 2;iBank++){
for(iBit = 0;iBit < 32;iBit++){
lTest = 1 << iBit;
if( (lMsg[iLine][iBank] & lTest) != 0){
printf( "*");
}
else{
printf( " ");
}
}
}
printf( "\n");
}
getchar();
return 0;
}
long lMsg[ 6][ 2] = {
0x00012024L, 0x00420015L,
0x00712724L, 0x0072D395L,
0x00892fBCL, 0x004A3455L,
0x068920A4L, 0x004A1455L,
0x02712724L, 0x0072138AL,
0x00000000L, 0x00000000L
};
int main( void)
{
int iLine;
int iBank;
int iBit;
long lTest = 0;
for(iLine = 0;iLine < 5;iLine++){
for(iBank = 0;iBank < 2;iBank++){
for(iBit = 0;iBit < 32;iBit++){
lTest = 1 << iBit;
if( (lMsg[iLine][iBank] & lTest) != 0){
printf( "*");
}
else{
printf( " ");
}
}
}
printf( "\n");
}
getchar();
return 0;
}
01/08/28 12:50ID:1oArpc0c
age
01/08/28 16:13ID:jaPRCAI6
ぼんじゅーる。るもんど。
249login:Penguin
01/08/29 01:24ID:ZjU6i9ug long lMsg[ 6][ 2] = {
0x00012024L, 0x00420015L,
0x00712724L, 0x0072D395L,
0x00892fBCL, 0x004A3455L,
0x068920A4L, 0x004A1455L,
0x02712724L, 0x0072138AL,
0x00000000L, 0x00000000L
};
why2次元。
0x00012024L, 0x00420015L,
0x00712724L, 0x0072D395L,
0x00892fBCL, 0x004A3455L,
0x068920A4L, 0x004A1455L,
0x02712724L, 0x0072138AL,
0x00000000L, 0x00000000L
};
why2次元。
250login:Penguin
01/08/29 01:32ID:ZjU6i9ug (setq msg "Hello World")
(message msg)
echo "既出だったらごめんね"
(message msg)
echo "既出だったらごめんね"
01/08/29 07:02ID:uBl.KZOo
48 65 6C 6C 6F 20 57 6F 72 6C 64
これじゃ駄目？
これじゃ駄目？
252既出か？
01/08/29 07:27ID:c59II4ig \documentstyle[a4j]{jarticle}
\begin{document}
\noindent
Hello World.
\end{document}
\begin{document}
\noindent
Hello World.
\end{document}
253login:Penguin
01/08/29 12:31ID:SDRDaKDc GLOBAL DRAWING MODULE hello();
BEGINMODULE
text (#1, vec (0, 0), 0, "Hello World": tsize=50, tslant=0);
ENDMODULE
BEGINMODULE
text (#1, vec (0, 0), 0, "Hello World": tsize=50, tslant=0);
ENDMODULE
254login:Penguin
01/08/29 12:58ID:fnFRaVHc SNDBRKMSG MSG('HELLO WORLD') TOMSGQ(*ALLWS)
255login:Penguin
01/08/29 13:53ID:SmuEce8k int init_module(void)
{
printk("<1>Hello World\n");
return 0;
}
{
printk("<1>Hello World\n");
return 0;
}
256コブラ
01/08/31 01:33ID:Ihpm/akI (defun hw(msg)
(if (null msg) 'nil
(princ msg)))
(hw '(Hello World))
(defun hw2()
(princ '(Hello World)))
(hw2)
(if (null msg) 'nil
(princ msg)))
(hw '(Hello World))
(defun hw2()
(princ '(Hello World)))
(hw2)
これはもう出た？
Makefile
--------------
all:Hello
Hello:
echo "HelloWorld"
-------------
make
Makefile
--------------
all:Hello
Hello:
echo "HelloWorld"
-------------
make
258login:Penguin
01/08/31 02:28ID:kzmx.r22 module hello;
initial $display("Hello, World!!");
endmodule
initial $display("Hello, World!!");
endmodule
259日本語
01/08/31 03:21ID:k4XBpcQ6 こんにちは世界
261既出ならすんまそん。
01/08/31 06:43ID:200uXQHQ DECLARE
/*オラクルのPL/SQLだ。*/
BEGIN
DBMS_OUTPUT.PUTLINE("Hello World !!");
END;
/
/*オラクルのPL/SQLだ。*/
BEGIN
DBMS_OUTPUT.PUTLINE("Hello World !!");
END;
/
262各無しさん＠Ｅｍａｃｓ
01/09/01 00:36ID:/qbYDcAI while true;do E='Hello World.';N=1;while [ $N -le ${#E} ];do echo -n "$(echo $E|cut -b$N)";let N+=1;done;N=1;while [ $N -le ${#E} ];do sleep 1;echo -ne "\b \b";let N+=1;done;sleep 1;done
263各無しさん＠Ｅｍａｃｓ
01/09/02 23:05ID:tNGvVpZM (define (script-fu-hello-world) (let* ((g (car (gimp-image-new 512 128 0)))
(r (car (gimp-layer-new g 512 128 0 "Hello World" 100 0)))
(w '(#(8 9 30 83 56 71 71 2 79 155 55 85 30 90 28 158)
#(98 94 119 60 84 58 88 140 122 104 103 118 90 62 108 66)
#(136 11 127 144 140 131) #(156 10 150 143 160 129)
#(171 66 170 120 195 137 213 76 177 66 202 89 195 119 178 112)
#(221 -14 226 155 271 70 287 152 343 -29 290 89 276 25 242 108)
#(330 57 310 113 339 133 356 67 330 58 347 81 336 113 324 103)
#(365 35 368 137 379 95 408 64 378 81) #(428 16 397 142 412 128)
#(458 76 422 98 454 115 458 143 478 15 453 105 437 105)
#(495 -20 476 159 472 140 517 -2))) (s (cons-array 32 'double)))
(gimp-image-undo-disable g) (gimp-image-add-layer g r 0) (gimp-edit-fill r 1)
(while (begin (set! c (car w)) (set! l (length c)) (> l 0)) (set! n 0)
(while (< n l) (aset s n (aref c n)) (set! n (+ n 1)))
(gimp-free-select g n s 0 1 1 8) (set! w (cdr w)))
(gimp-edit-fill r 0) (gimp-selection-clear g) (gimp-image-undo-enable g)
(gimp-image-clean-all g) (gimp-display-new g) (gimp-displays-flush)))
(script-fu-register "script-fu-hello-world"
"<Toolbox>/Xtns/Script-Fu/Misc/Hello World" "Beginner's instruction."
"2ch <age>" "2ch" "2001" "")
(r (car (gimp-layer-new g 512 128 0 "Hello World" 100 0)))
(w '(#(8 9 30 83 56 71 71 2 79 155 55 85 30 90 28 158)
#(98 94 119 60 84 58 88 140 122 104 103 118 90 62 108 66)
#(136 11 127 144 140 131) #(156 10 150 143 160 129)
#(171 66 170 120 195 137 213 76 177 66 202 89 195 119 178 112)
#(221 -14 226 155 271 70 287 152 343 -29 290 89 276 25 242 108)
#(330 57 310 113 339 133 356 67 330 58 347 81 336 113 324 103)
#(365 35 368 137 379 95 408 64 378 81) #(428 16 397 142 412 128)
#(458 76 422 98 454 115 458 143 478 15 453 105 437 105)
#(495 -20 476 159 472 140 517 -2))) (s (cons-array 32 'double)))
(gimp-image-undo-disable g) (gimp-image-add-layer g r 0) (gimp-edit-fill r 1)
(while (begin (set! c (car w)) (set! l (length c)) (> l 0)) (set! n 0)
(while (< n l) (aset s n (aref c n)) (set! n (+ n 1)))
(gimp-free-select g n s 0 1 1 8) (set! w (cdr w)))
(gimp-edit-fill r 0) (gimp-selection-clear g) (gimp-image-undo-enable g)
(gimp-image-clean-all g) (gimp-display-new g) (gimp-displays-flush)))
(script-fu-register "script-fu-hello-world"
"<Toolbox>/Xtns/Script-Fu/Misc/Hello World" "Beginner's instruction."
"2ch <age>" "2ch" "2001" "")
264login:Penguin
01/09/03 02:07ID:jDGRRFRM cat <<EOF | mail -s 脅迫 [email protected]
あのことは誰にもいいません。そのかわり、わがままかも
しれませんが、お願いがあるのです。本番中に3回まわって、
「Hello World」
と絶叫していただきたいのです。今月中に実行してください。
ご無理なようでしたら結構です。奥様にすべて打ち明ける
覚悟はしております。
かしこ。
EOF
あのことは誰にもいいません。そのかわり、わがままかも
しれませんが、お願いがあるのです。本番中に3回まわって、
「Hello World」
と絶叫していただきたいのです。今月中に実行してください。
ご無理なようでしたら結構です。奥様にすべて打ち明ける
覚悟はしております。
かしこ。
EOF
265login:Penguin
01/09/03 10:21ID:5UuSjmvg 10 CLS
20 Dim X,Y,Z
30
40 Data 1,0,0,0,1,0,1,1,1,1,1,0,1,0,0,0,0,0,1,0,0,0,0
50 Data 0,0,1,1,1,0,0,0,1,0,0,0,1,0,0,1,1,1,0,0,1,1,1
60 Data 1,0,0,1,0,0,0,0,0,1,1,1,1,0
70 Data 1,0,0,0,1,0,1,0,0,0,0,0,1,0,0,0,0,0,1,0,0,0,0
80 Data 0,1,0,0,0,1,0,0,1,0,0,0,1,0,1,0,0,0,1,0,1,0,0
90 Data 0,1,0,1,0,0,0,0,0,1,0,0,0,1
100 Data 1,1,1,1,1,0,1,1,1,1,1,0,1,0,0,0,0,0,1,0,0,0,0
110 Data 0,1,0,0,0,1,0,0,1,0,1,0,1,0,1,0,0,0,1,0,1,1,1
120 Data 1,0,0,1,0,0,0,0,0,1,0,0,0,1
130 Data 1,0,0,0,1,0,1,0,0,0,0,0,1,0,0,0,0,0,1,0,0,0,0
140 Data 0,1,0,0,0,1,0,0,0,1,0,1,0,0,1,0,0,0,1,0,1,0,0
150 Data 1,0,0,1,0,0,0,0,0,1,0,0,0,1
160 Data 1,0,0,0,1,0,1,1,1,1,1,0,1,1,1,1,1,0,1,1,1,1,1
170 Data 0,0,1,1,1,0,0,0,0,1,0,1,0,0,0,1,1,1,0,0,1,0,0
180 Data 0,1,0,1,1,1,1,1,0,1,1,1,1,0,0
190 FOR Y=1 TO 5
200 FOR X=1 TO 60
210 Read Z
220 PSet(X+100,Y+100),Z
230 NEXT X
240 NEXT Y
かっこ悪いですか？
20 Dim X,Y,Z
30
40 Data 1,0,0,0,1,0,1,1,1,1,1,0,1,0,0,0,0,0,1,0,0,0,0
50 Data 0,0,1,1,1,0,0,0,1,0,0,0,1,0,0,1,1,1,0,0,1,1,1
60 Data 1,0,0,1,0,0,0,0,0,1,1,1,1,0
70 Data 1,0,0,0,1,0,1,0,0,0,0,0,1,0,0,0,0,0,1,0,0,0,0
80 Data 0,1,0,0,0,1,0,0,1,0,0,0,1,0,1,0,0,0,1,0,1,0,0
90 Data 0,1,0,1,0,0,0,0,0,1,0,0,0,1
100 Data 1,1,1,1,1,0,1,1,1,1,1,0,1,0,0,0,0,0,1,0,0,0,0
110 Data 0,1,0,0,0,1,0,0,1,0,1,0,1,0,1,0,0,0,1,0,1,1,1
120 Data 1,0,0,1,0,0,0,0,0,1,0,0,0,1
130 Data 1,0,0,0,1,0,1,0,0,0,0,0,1,0,0,0,0,0,1,0,0,0,0
140 Data 0,1,0,0,0,1,0,0,0,1,0,1,0,0,1,0,0,0,1,0,1,0,0
150 Data 1,0,0,1,0,0,0,0,0,1,0,0,0,1
160 Data 1,0,0,0,1,0,1,1,1,1,1,0,1,1,1,1,1,0,1,1,1,1,1
170 Data 0,0,1,1,1,0,0,0,0,1,0,1,0,0,0,1,1,1,0,0,1,0,0
180 Data 0,1,0,1,1,1,1,1,0,1,1,1,1,0,0
190 FOR Y=1 TO 5
200 FOR X=1 TO 60
210 Read Z
220 PSet(X+100,Y+100),Z
230 NEXT X
240 NEXT Y
かっこ悪いですか？
266ABAP
NGNG REPORT ZSAPEDIT.
write 'Hello, World'.
write 'Hello, World'.
267CASLII
NGNG HELO START
OUT BUF,LEN
BUF DC "Hello World!"
LEN DC 11
RET
END
OUT BUF,LEN
BUF DC "Hello World!"
LEN DC 11
RET
END
268元 TeXnician
NGNG >>252
メタフォントでHello, world!
なる図形を表示させる奴書いてくれよ。
それをネタに日本語によるオリジナルなメタフォントの教科書書いてくれよ。
いま、メタフォントはなあ、
「はろーワールドすら書けないろくでなし言語」として蔑まれているんだよ。
それを救うためにはメタフォントでハローワールドしかないんだよ。
メタフォントでHello, world!
なる図形を表示させる奴書いてくれよ。
それをネタに日本語によるオリジナルなメタフォントの教科書書いてくれよ。
いま、メタフォントはなあ、
「はろーワールドすら書けないろくでなし言語」として蔑まれているんだよ。
それを救うためにはメタフォントでハローワールドしかないんだよ。
01/09/14 12:45ID:kahe/Yro
age
270login:Penguin
01/09/14 12:47ID:hpMFThis sageてもうた。今度こそage
271デフォルトの名無しさん
01/09/14 12:54ID:RxM/qzyg >>40
showpageが抜けとるの
showpageが抜けとるの
01/09/14 21:38ID:DnAyJxV2
$ yes "Hello World"
273login:Penguin
01/09/23 23:52ID:akzhrDq6274Smalltalk-72
01/09/24 12:01ID:R4t.M4XY 'Hello World'!
ってSmalltalk-80以降も同じか (藁
ってSmalltalk-80以降も同じか (藁
01/09/30 21:55ID:Ymabq/h.
276いやー
01/09/30 23:44ID:3EetH5nk PC-9801 NEC Cop
MS-DOS 1987 Ver1.0
A:\>DATE
09-11-1987 11:32
A:\>ECHO Hello!
Hello!
A:\>run word
→あなたは不正な処理をしました。再起動します。
ゴルァ!(`へ /
MS-DOS 1987 Ver1.0
A:\>DATE
09-11-1987 11:32
A:\>ECHO Hello!
Hello!
A:\>run word
→あなたは不正な処理をしました。再起動します。
ゴルァ!(`へ /
277Oracle
01/10/01 01:17ID:7ZxH9NKc $ sqlplus system/manager
SQL*Plus: Release 9.0.1.0.0 - Production on 月 Oct 1 01:17:47 2001
(c) Copyright 2001 Oracle Corporation. All rights reserved.
Oracle9i Enterprise Edition Release 9.0.1.0.0 - Production
With the Partitioning option
JServer Release 9.0.1.0.0 - Production
に接続されました。
SQL> select 'Hello World' from DUAL ;
'HELLOWORLD
-----------
Hello World
SQL> exit
Oracle9i Enterprise Edition Release 9.0.1.0.0 - Production
With the Partitioning option
JServer Release 9.0.1.0.0 - Productionとの接続が切断されました。
$
SQL*Plus: Release 9.0.1.0.0 - Production on 月 Oct 1 01:17:47 2001
(c) Copyright 2001 Oracle Corporation. All rights reserved.
Oracle9i Enterprise Edition Release 9.0.1.0.0 - Production
With the Partitioning option
JServer Release 9.0.1.0.0 - Production
に接続されました。
SQL> select 'Hello World' from DUAL ;
'HELLOWORLD
-----------
Hello World
SQL> exit
Oracle9i Enterprise Edition Release 9.0.1.0.0 - Production
With the Partitioning option
JServer Release 9.0.1.0.0 - Productionとの接続が切断されました。
$
278login:Penguin
01/10/01 01:28ID:GBmwHvVA %mail mark
Hi, Mark.
I need the "Hello world" program.
Please send immediately.
.
%exit
Hi, Mark.
I need the "Hello world" program.
Please send immediately.
.
%exit
279いやー
01/10/01 01:37ID:iFlw4rCA MSX RAM 64kb Panasonic Cop
MSX-BASIC 1989
LOAD "TEST.DAT"
list[RET]
10 CLS
20 LOCATE 10 10
30 PRINT "Hello!"
He...→メインメモリが不足しております。再起動します。
ゴルァ!(`へ /
MSX-BASIC 1989
LOAD "TEST.DAT"
list[RET]
10 CLS
20 LOCATE 10 10
30 PRINT "Hello!"
He...→メインメモリが不足しております。再起動します。
ゴルァ!(`へ /
280login:Penguin
01/10/01 10:12ID:VCOUIYL2281login:Penguin
01/10/01 12:24ID:XVJTd5fU % banner "Hello World"
282login:Penguin
01/10/01 22:59ID:VCOUIYL2 $host 216.92.108.222
01/10/02 03:10ID:Q3YDZ.Ck
284海老塩
01/10/06 00:52ID:Y76.IDOc 「Hello World」と、表示
byひまわり
簡単で悪かったな。でもこれで出来るんだよ。
日本語だぜ。日本人だもん。
byひまわり
簡単で悪かったな。でもこれで出来るんだよ。
日本語だぜ。日本人だもん。
285NASM
01/10/06 18:41ID:ifhTHbDY section .text
global _start
msg db 'hello, world', 0x0A
msglen equ $ - msg
_start:
mov ecx, msg
mov edx, msglen
mov eax, 4
mov ebx, 1
int 0x80
mov eax, 1
mov ebx, 0
int 0x80
global _start
msg db 'hello, world', 0x0A
msglen equ $ - msg
_start:
mov ecx, msg
mov edx, msglen
mov eax, 4
mov ebx, 1
int 0x80
mov eax, 1
mov ebx, 0
int 0x80
286login:Penguin
01/10/08 21:50ID:xEU6d7hs あげ
01/10/08 22:54ID:Pb1MUUyg
i=0
for i=1 to 100
i=i+1
print "Hollow"
next i
stop : end
BASICです。
for i=1 to 100
i=i+1
print "Hollow"
next i
stop : end
BASICです。
288login:Penguin
01/10/27 08:01ID:i+fZmFso age
289login:Penguin
01/10/27 10:16ID:xSKauLzE age:$ cat /etc/lilo.conf
delay = 50
vga = extended
message = /boot/msg.txt
image = /vmlinuz
root = /dev/hda3
label = plamo
read-only
age:$ cat /boot/msg.txt
Hello! World
age:$
delay = 50
vga = extended
message = /boot/msg.txt
image = /vmlinuz
root = /dev/hda3
label = plamo
read-only
age:$ cat /boot/msg.txt
Hello! World
age:$
290login:Penguin
01/10/27 10:19ID:xSKauLzE291login:Penguin
01/10/27 16:18ID:LklSfNVx age
292課長
01/11/04 07:34ID:egcekF+k 在宅勤務とやら、訳がわからんものが始まったとたんにこれだ。
お前らちゃんとコード書けよ！ そのためのネットワークだろが。
ageとくからな。
お前らちゃんとコード書けよ！ そのためのネットワークだろが。
ageとくからな。
01/11/05 13:47ID:xmx282/P
(with-temp-buffer
(insert "Uryyb jbeyq!")
(mule-caesar-region (point-min) (point-max))
(message (buffer-string))
)
(insert "Uryyb jbeyq!")
(mule-caesar-region (point-min) (point-max))
(message (buffer-string))
)
01/11/16 05:01ID:L78f4K5Y
hello!
295各無しさん＠Ｅｍａｃｓ
01/11/16 05:22ID:lb+o8fJv #!/bin/nice sh
TBL='Hello World00112233'
TRL='abcdefghijklmnopqrs'
COL=80; SPD=0; OFF=0
RANDOM=$(date +%s)
LEN=$( echo -n "$TBL" | wc -c | sed 's/ //g' )
ROW=$( I=0; while [ $I -lt $COL ]; do
echo -n $TRL; let I+=$LEN; done | cut -b1-$COL )
STATUS=0; while [ $STATUS -eq 0 ]; do
RND=$[$RANDOM&7]
if [ $RND -eq 0 ]; then let SPD-=1
elif [ $RND -eq 7 ]; then let SPD+=1; fi
if [ $SPD -lt -3 ]; then SPD=-3
elif [ $SPD -gt 3 ]; then SPD=3; fi
let OFF+=$SPD
while [ $OFF -lt 0 ]; do let OFF=+$LEN; done
if [ $OFF -gt $LEN ]; then let OFF=$OFF%$LEN; fi
echo -n $ROW | tr $TRL "$(
echo -n "$TBL$TBL" | cut -b$[$OFF+1]-$[$OFF+$LEN])" |
(if [ $SPD -gt 0 ]; then tr 0-$[$SPD-1] '!'
elif [ $SPD -lt 0 ]; then tr $[4+$SPD]-3 '!'
else cat ;fi) | tr 0-3 ' ' || STATUS=1
echo -ne "\r"
done
TBL='Hello World00112233'
TRL='abcdefghijklmnopqrs'
COL=80; SPD=0; OFF=0
RANDOM=$(date +%s)
LEN=$( echo -n "$TBL" | wc -c | sed 's/ //g' )
ROW=$( I=0; while [ $I -lt $COL ]; do
echo -n $TRL; let I+=$LEN; done | cut -b1-$COL )
STATUS=0; while [ $STATUS -eq 0 ]; do
RND=$[$RANDOM&7]
if [ $RND -eq 0 ]; then let SPD-=1
elif [ $RND -eq 7 ]; then let SPD+=1; fi
if [ $SPD -lt -3 ]; then SPD=-3
elif [ $SPD -gt 3 ]; then SPD=3; fi
let OFF+=$SPD
while [ $OFF -lt 0 ]; do let OFF=+$LEN; done
if [ $OFF -gt $LEN ]; then let OFF=$OFF%$LEN; fi
echo -n $ROW | tr $TRL "$(
echo -n "$TBL$TBL" | cut -b$[$OFF+1]-$[$OFF+$LEN])" |
(if [ $SPD -gt 0 ]; then tr 0-$[$SPD-1] '!'
elif [ $SPD -lt 0 ]; then tr $[4+$SPD]-3 '!'
else cat ;fi) | tr 0-3 ' ' || STATUS=1
echo -ne "\r"
done
296login:Penguin
01/11/16 17:18ID:fWh4bGWW 10 cls 3
20 moji$="Hello World" '全角で書け
30 for i=1 to klen(moji$)
40 put@(16*i,0),,val("&h"+kanji(kmid$(moji$,i,1)))
50 next
N88-BASICで実行すれば多分表示される...と思う。
put@使うの久しぶりだからなー
20 moji$="Hello World" '全角で書け
30 for i=1 to klen(moji$)
40 put@(16*i,0),,val("&h"+kanji(kmid$(moji$,i,1)))
50 next
N88-BASICで実行すれば多分表示される...と思う。
put@使うの久しぶりだからなー
297login:Penguin
01/11/16 23:29ID:1+GjOyGd <<< hello.txt for MS-DOS ( use ish ) [ 8 lines ] >>>
!!C%!!gR!2"DRo-@S'=o!s$o^2;K!'"H:2elC3CD}a!4Hy2o'n!!!!!!!!!!!!!!!!!!!!!!!!m0G=
!!C%!!gR!2"DRo-@S'=o!s$o^2;K!'"H:2elC3CD}a!4Hy2o'n!!!!!!!!!!!!!!!!!!!!!!!!m0G=
!!C%!!gR!2"DRo-@S'=o!s$o^2;K!'"H:2elC3CD}a!4Hy2o'n!!!!!!!!!!!!!!!!!!!!!!!!m0G=
"C7<Ez+la<0c6(PV:)$o$,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!![;I\
aC^I\u/l@Lu|=,Psr8{T!d!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!rjn!
c_cAz84M3e1MF=Ac:AnQoM/x_DO+w/HiYar"}^M;iT>QKI[-8OvZGBexre,w{fnNr@{4m'}W{u9LLG
--- hello.txt (8/8) ---
!!C%!!gR!2"DRo-@S'=o!s$o^2;K!'"H:2elC3CD}a!4Hy2o'n!!!!!!!!!!!!!!!!!!!!!!!!m0G=
!!C%!!gR!2"DRo-@S'=o!s$o^2;K!'"H:2elC3CD}a!4Hy2o'n!!!!!!!!!!!!!!!!!!!!!!!!m0G=
!!C%!!gR!2"DRo-@S'=o!s$o^2;K!'"H:2elC3CD}a!4Hy2o'n!!!!!!!!!!!!!!!!!!!!!!!!m0G=
"C7<Ez+la<0c6(PV:)$o$,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!![;I\
aC^I\u/l@Lu|=,Psr8{T!d!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!rjn!
c_cAz84M3e1MF=Ac:AnQoM/x_DO+w/HiYar"}^M;iT>QKI[-8OvZGBexre,w{fnNr@{4m'}W{u9LLG
--- hello.txt (8/8) ---
01/11/17 03:39ID:YquQPBDI
CASIO ポケコン FX-702P BASIC です
10 PRN "HELLO WORLD":END
10 PRN "HELLO WORLD":END
299login:Penguin
01/11/19 12:43ID:ctHVVaXo % cat hello
#!/bin/sh
echo Hello World!
% tcpserver 0 10000 ./hello &
% telnet localhost 10000
Trying 127.0.0.1...
Connected to localhost.
Escape character is '^]'.
Hello World!
Connection closed by foreign host.
#!/bin/sh
echo Hello World!
% tcpserver 0 10000 ./hello &
% telnet localhost 10000
Trying 127.0.0.1...
Connected to localhost.
Escape character is '^]'.
Hello World!
Connection closed by foreign host.
300login:Penguin
01/11/19 20:07ID:5iJ+kKF0 msgbox "Hello World!"
301login:Penguin
01/11/19 20:33ID:Va57rtBm #include">>1"
■ このスレッドは過去ログ倉庫に格納されています
ニュース
- 「暗い未来に子供を産みたくない…」それでも左派よりも右派の方が「たくさん子供を産む」のはなぜか【米研究】 ★2 [首都圏の虎★]
- 高市首相「日米は和解し、強い絆で結ばれた同盟国」…トランプ氏「米中は同盟国」発言による懸念打ち消す ★2 [少考さん★]
- 【野球】広島東洋カープの矢野雅哉・前川誠太選手を書類送検 ゾンビたばこを巡る容疑 広島県警 [Ailuropoda melanoleuca★]
- 【速報】 高市首相 「円の過小評価は問題だ」 ★4 [お断り★]
- 【東京】ウズベキスタン国籍のフードデリバリー配達員を逮捕 配達先の女子小学生にキスや体を触るなどわいせつ行為か ★2 [煮卵★]
- 【テレビ】サッカー日本代表-ウルグアイ戦の視聴率は4.1％→9.1％、アジア大会の卓球団体戦男女は8.4％→9.9％ [鉄チーズ烏★]
- アソコ舐め回したいvtuber
- 【悲報】ドコモ、料金値上げしても回線品質は向上しないと副社長が断言www [354616885]
- 【画像】UGREENの最新スマホケース、好きな安倍晋三を背面に表示することができる！ 価格は6600円 [632966346]
- レスバ弱いハッタショに限ってレスバしたがりなのはなぜ？
- ロリエロ動画ください
- 【悲報】トランプ、習近平の前でテレサ・テンの曲を流してしまう… [162723853]