8コメント4KB

数字を数えて1億目指すスレのサポートスレ

■ このスレッドは過去ログ倉庫に格納されています

0001デフォルトの名無しさん

NGNG

数字を数えて1億目指すスレをサポートしましょう。
さまざまな言語で数字をカウントするプログラムを作成してください。

ほのぼの板より
数字を数えて1億目指すスレ　Part1
http://yasai.2ch.net/test/read.cgi/honobono/1002880111/
数字を数えて1億目指すスレ　Part2
http://yasai.2ch.net/test/read.cgi/honobono/1003539321/
数字を数えて1億目指すスレ　Part3
http://yasai.2ch.net/test/read.cgi/honobono/1004295818/
数字を数えて1億目指すスレ　Part4
http://yasai.2ch.net/test/read.cgi/honobono/1004875558/

00021

NGNG

それでは、私から。
Javaです。

import java.io.*;

public class NumberCreator {
　public static void main(String args[]){
　　int i=0;
　　try{
　　　i = Integer.parseInt(args[i]);
　　}catch(NumberFormatException ex){
　　　System.out.println("数字を入力しなさい");
　　　return;
　　}
　　writeNumber(i);
　}

　public static void writeNumber(int num){
　　StringBuffer sb = new StringBuffer();
　　for(int i = 0;i < 10000 ;){
　　　if(num%10 == 0){
　　　　sb.append(String.valueOf(num));
　　　　sb.append(System.getProperty("line.separator"));
　　　　i++;
　　　}else{
　　　　sb.append(String.valueOf(num) + " ");
　　}
　　　num++;
　　}
　　try{
　　　FileWriter fw = new FileWriter("number.txt");
　　　BufferedWriter bw = new BufferedWriter(fw);
　　　bw.write(sb.toString());
　　　bw.close();
　　}catch(IOException ex){
　　　System.out.println("??????");
　　}
　}
}

0003デフォルトの名無しさん

NGNG

#include <stdio.h>

int main()
{
int a = 0;
while (0) {
printf("ｸｿｽﾚ立てんなｳﾞｫｹ\n");
printf(_itoa(a++));
}
return 0;
}

0004デフォルトの名無しさん

NGNG

>>3
鬱
while (0) -> while (1)

0005鬱2

NGNG

#include <stdio.h>
int main()
{
int a = 0;
while (1)
printf(">>%d ｸｿｽﾚ立てんなｳﾞｫｹ\n", a++);
return 0;
}

0006デフォルトの名無しさん

NGNG

ここはあくまで技術的な話をする板なので、
ネタスレは立てないで下さい。

0007デフォルトの名無しさん

NGNG

絶望的に下らんスレだな

0008デフォルトの名無しさん

NGNG

これでがまんしとけ。

Option Explicit

Private Declare Function GetTickCount Lib "kernel32" () As Long

Private Sub Main()

Dim lngCnt As Long
Dim strTemp
Dim strBuff As String
Dim i, j As Long
Dim intRet As Integer
Dim lngDot As Long
Dim strDot As String
Dim lngTime As Long

Do
DoEvents

strTemp = InputBox("Seed", , lngCnt)
If strTemp = "" Then Exit Do

lngCnt = CLng(strTemp)

strBuff = ""
For i = 1 To 50
For j = 1 To 10
strBuff = strBuff & " " & CStr(lngCnt)
lngCnt = lngCnt + 1
Next j
strBuff = strBuff & vbCrLf
Next i

lngTime = GetTickCount()

Randomize

If lngTime Mod 2 = 0 Then
strBuff = strBuff & Replace$(Space$(Int((100 - 0 + 1) * Rnd + 0)), " ", ".")
Else
strBuff = Replace$(Space$(Int((100 - 0 + 1) * Rnd + 0)), " ", ".") & vbCrLf & strBuff
End If

Clipboard.Clear
Clipboard.SetText strBuff

intRet = MsgBox("complete", vbOKCancel)

If intRet = 2 Then Exit Do
Loop

End Sub

■ このスレッドは過去ログ倉庫に格納されています