Проблема ограниченности переменных в Паскале

[Вадим Буренков]

var a:array[1..10000] of string[254]

Что то не работает
Странная ошибка:
Если пишу:

Strings : array [1..254] of String

То работает.

Если пишу:

Strings : array [1..255] of String

Пишет : Error 96: Too many variables.

Если пишу:

Strings : array [1..256(и больше 256)] of String

Пишет : Error 22: Structure too large.

[Stilet]

А-а-а... Я вспомнил, мы от таких проблем в колледже кажись динамическим выбором памяти (кучами) лечились... Правда не помню какими.

Вообще ты можеш обьяснить зачем тебе загружать все строки в память?

[OCTAGRAM]

Сообщение от Вадим Буренков

Что то не работает
Странная ошибка:
Если пишу:

Strings : array [1..254] of String

То работает.

Если пишу:

Strings : array [1..255] of String

Пишет : Error 96: Too many variables.

Значит, все переменные не влезают в сегмент данных. 255 * 256 — это в один сегмент ещё влезает, но не влезает, учитывая остальные переменные.

Сообщение от Вадим Буренков

Если пишу:

Strings : array [1..256(и больше 256)] of String

Пишет : Error 22: Structure too large.

А теперь сама структура не влезает в сегмент (65536 = 255 * 255). Должно быть хоть на байт, но меньше.

[Вадим Буренков]

Вообще ты можеш обьяснить зачем тебе загружать все строки в память?

Теоретически можно обойтись и без этого, но это усложнит и без этого сложный код.Программе придется постоянно
загружать ->проверять->выгружать->загружать ->проверять->выгружать данные, что не является лучшим выходом.А что ты там говоришь про:'динамический выбор памяти'....

[OCTAGRAM]

Рискну предложить не делать и без того сложный код на Паскале.

[Bayazet]

OCTAGRAM прав
я не помню, а в паскале разрешено использовать динамические массивы?

mas : Array of string;
......
i := 1;
While not eof(YourFile) do
begin
  SetLength(mas, i);
  Readln(YourFile, mas[i-1]);
  i := i+1;
end;

[OCTAGRAM]

В Турбо — ещё нет. Но даже если это сделать, получится увеличить лишь до 256 строк. Хотя... если использовать не массив строк, а массив указателей. Массив PChar или массив указателей на строки, можно увеличить вместительность раз в 10, т. е. 640КБайт.

Какой размер файла предполагается? Если вся работа сосредоточена вокруг одного файла, и этот файл меньше 65Кбайт, его можно загнать в один сегмент, сплошным блоком данных, а затем вместо строк использовать индексы старт-стоп относительно начала файла. То есть, если файл содержит текст:

Первая строка
Вторая строка
Последняя строка

, то строки будут иметь индексы: 0-13, 15-28, 30-46. В компиляторах и других утилитах для работы с исходными текстами такой представление часто используется, чтобы указать расположение строки с ошибкой.

[Serge_Bliznykov]

Сообщение от Bayazet

mas : Array of string;

Разумеется - НЕТ!


Вадим Буренков, а чем Вызвано Ваше желание работать именно в DOS Паскале?! Это учебное задание?
Дело в том, что Дос уже давно уже умер. R.I.P.

[Megavvoltt]

Я думал на нем уже никто не програмирует.

[Вадим Буренков]

Это учебное задание?

Да.

Я думал на нем уже никто не програмирует.

Если это было бы так, то тема 'Паскаль' давно бы умерла.
Конечно, на нем уже не пишутся серьезные программы, но он широко используется для обучения программированию.