Другие языки программирования и технологии

СРОЧНО!!! 10 балов!!!

Короч , на одном форуме играем в мгру " Считаем до 1 000 000 " Нужно срочно Таблица , с цифрами , от 1 до 1 000 000 ...) ПЛИИИИИИИИИИИЗ! ИЛИ прога)
AB
Aleks Ba
947
Вам нужна программа с прочтой таблицей в один столбец с 1 млн. строк и в каждой ячейке идет нумерация от 1 до 1 млн. ??

Вот GUI-программа (при клике на ячейку табл. получаем инфо. сообщ) :

import java.awt.*;
import javax.swing.*;
import javax.swing.event.*;
import javax.swing.table.*;
import java.io.*;

public class ActionTable {
private JTable table;
public ActionTable() {
JFrame frame = new JFrame("Arithmetic Table");
frame.setSize(300, 300);
frame.setLocationRelativeTo(null);

String[] name = {"Number"};
final String[][] files = new String[1000000][1000000];

for(int i=0, j=1; i<1000000; i++,j++)
files[0] = " " + j;

table = new JTable(files, name);
table.setRowSelectionAllowed(true);
table.setColumnSelectionAllowed(false);
table.setSelectionMode(ListSelectionModel.SINGLE_SELECTION);

ListSelectionModel model = table.getSelectionModel();
model.addListSelectionListener(new ListSelectionListener() {
public void valueChanged(ListSelectionEvent e) {
String selectNumber = files[table.getSelectedRow()][0];
launchNumberInformation(selectNumber);
}
}); //*/

frame.add(new JScrollPane(table));
frame.setDefaultCloseOperation(frame.EXIT_ON_CLOSE);
frame.setVisible(true);
}

private void launchNumberInformation(String selectNumber) {
JOptionPane.showMessageDialog(null, "SelectNumber: " + selectNumber,
"Information", JOptionPane.INFORMATION_MESSAGE);
}
public static void main(String[] args) {
SwingUtilities.invokeLater(new Runnable() {
public void run() {
new ActionTable();
}
});
}
}

Поставь JDK, установи classpath, откомпилируй (javac ActionTable.java
) и запускай (start javaw -Xmx500m ActionTable). Для удобства напиши батник...
Максим Маслов
Максим Маслов
1 256
Лучший ответ
Учитывая ограничение в 65000 строк и 256 колонок на листе (16640000 ячеек) , сделай таблицу 10000 x 100. Но тормоза будут.. .
Можешь макро написать на VBA
Oleg Samarin
Oleg Samarin
1 980
excell не катит?
Александр Мас
Александр Мас
1 781
Aleks Ba как?
как таблица хоть должна выглядит?
Жека Дрозд
Жека Дрозд
492
Вот текст Макроса:

Sub Миллион ()
Open "c:\1.txt" For Output As #1 ' Open file for output.
For ii = 1 To 1000000
Print #1, Str(ii) ' Print text to file
Next ii
Close #1
End Sub

Сохрани таблицу и запусти Макрос по Alt F8
Советую попробовать сначала на 1000
Как ты догадался, твои числа находятся в тексте с именем c:\1.txt