Другие языки программирования и технологии
СРОЧНО!!! 10 балов!!!
Короч , на одном форуме играем в мгру " Считаем до 1 000 000 " Нужно срочно Таблица , с цифрами , от 1 до 1 000 000 ...) ПЛИИИИИИИИИИИЗ! ИЛИ прога)
Вам нужна программа с прочтой таблицей в один столбец с 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). Для удобства напиши батник...
Вот 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). Для удобства напиши батник...
Учитывая ограничение в 65000 строк и 256 колонок на листе (16640000 ячеек) , сделай таблицу 10000 x 100. Но тормоза будут.. .
Можешь макро написать на VBA
Можешь макро написать на VBA
excell не катит?
Aleks Ba
как?
как таблица хоть должна выглядит?
Вот текст Макроса:
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
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
Похожие вопросы
- ПОМОГИтЕ даю 10 балов! срочно
- ребята! вопрос внутри! помогите и 10 балов дам!
- Поясните чайнику несколько базовых термина программирования! Вопросы внутри. Объясняйте простым языком. Лучшему 10 балов
- Photoshop помогите!Дам сколько угодно балов!!!
- Помогите исправить код чтобы он считал балы теста Pascal
- Срочно! Даю 10 баллов!
- СРОЧНО ПАСКАЛЬ задан одномерный массив с (1..10), дать ответ: каких элементов больше: положительных или отрицательных
- задача на массивы. срочно!!! в одномерном массиве А [10] найти кол-во элементов , которые меньше 15 и больше 30
- Срочно нужна помощь Ввести ряд чисел и сформировать список элементов ряда, кратных 10. Язык программирования Delphi.
- Нужно написать программы в Паскале! Массивы! Срочно! Помогите!