От 0000 до 9999

какая программа делает список от 0000 до 9999, тоесть 0001, 0002 в столбик, кроме excel

 

генератор icq password

 

ссылку прошу..

 

http://files-my.narod.ru/list.txt
это готовый список
p.s. подобное можно сделать через командную строку винды, только начинается список будет не с 0001, а просто с 1:

Code:

for /l %d in (0,1,9999) do echo %d >> c:\list.txt

 

http://www.sendspace.com/file/907aw6
вот список

+++
фак, опередили

 

хорошие рыбки на главной, спс

 

такое можно самому написать. меньше, чем за минуту =\

 

хоть не заходи в болталку ёп
человек просить помочь, лучше чем выебыв*ться лишний раз, помог бы

 

Простенький скрипт на питоне Даже ставит нули впереди числа в зависимости от кол-ва символов верхнего предела:

Code:

MIN = 0
MAX = 1000

for i in range (MIN, MAX + 1):
    length = len(str(MAX))
    cur_length = len(str(i))
    zero = length - cur_length
    
    print("0" * zero + str(i))

Code:

0000
0001
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013
0014
0015
0016
...

 

PHP:

<?php 
for ($i=0; $i<=9999; $i++){ 
    $n = sprintf("%04d", $i);
    echo $n."<br>\n";
}
?>


 

бляяя, зачем ты это написал?! я же теперь ближайшие сутки буду написать эту песню (

 

perl -le 'print sprintf "%04s", $_ for 0 .. 9999' > 0000.txt

 

остался скрипт на ASM, кто напишет?

 

может еще на дельфи написать, не скомпилиный?

 

Да не вопрос!

Code:

procedure TForm1.FormCreate(Sender: TObject);
var
i,a,b:integer;
begin
memo1.text:='';
a:=0;
b:=9999;
for i := a to b do
Memo1.Lines.Add(Format('%*.*d', [0, 4, (i)]));
end;

 

а хуле

Code:

#include <iostream>
#include <fstream>
#include <iomanip>

int main() {
	std::ofstream out_file( "D:\\file.txt", std::ios::out );

	if( !out_file ) {
		std::cerr << "Can't open file!\n";
		return 1;
	}

	for( int i = 0; i <= 9999; ++i ) {
		out_file << std::setfill( '0' ) << std::setw( 4 ) << i << std::endl;
	}

	return 0;
}

 

на асме?) да запросто))

Code:

include 'c:\fasm\include\win32ax.inc' ; you can simply switch between win32ax, win32wx, win64ax and win64wx here

.code
  start:
	
	push	ebp
	mov		ebp, esp
	
	;handle  -24
	;lpdw   -20
	;counter -16
	;str -12
	
	sub		esp, 24
	xor		eax, eax
	push	eax
	push	eax
	push	CREATE_ALWAYS
	push	eax
	push	FILE_SHARE_WRITE
	push	GENERIC_WRITE
	push	s_file
	call	[CreateFileA]
	cmp		eax, INVALID_HANDLE_VALUE
	jz		err0
	mov		[ebp-24], eax
	mov		dword [ebp-16], 0
l1:	
	push	dword [ebp-16]
	push	s_format
	lea		edx, [ebp-12]
	push	edx
	call	[wsprintfA]
	add		esp, 12
	push	0
	lea		edx, [ebp-20]
	push	edx
	push	6
	lea		edx, [ebp-12]
	push	edx
	push	dword [ebp-24]
	call	[WriteFile]
	inc		dword [ebp-16]
	cmp		dword [ebp-16], 9999
	jng		l1
	push	dword [ebp-24]
	call	[CloseHandle]
	jmp		exit
err0:
	inc		eax
	push	eax
	push	eax
	push	s_error
	push	eax
	call	[MessageBoxA]
exit:	
	mov		esp, ebp
	pop		ebp
	xor		eax, eax
	push	eax
	call	[ExitProcess]
.end start

.data
s_format db '%04d',0dh,0ah,0
s_file   db 'lolo.txt', 0
s_error	 db 'Error creating file!',0
; забыл про вдруг не откроется))

 

Безумные умения

 

Тоже хочу

PHP:

using System;
using System.Collections.Generic;
using System.Text;
using System.IO;

namespace ConsoleApplication2
{
    class Program
    {
        static void Main(string[] args)
        {
            StreamWriter sw = new StreamWriter("result.txt");
            for (int i = 0; i <= 9999; i++)
            {
               sw.WriteLine("{0:0000}", i);
            }
            sw.Close();
        }
    }
}


 

Это уже не просто флешмоб, это вошло в традицию!