Работа с файлами Опции

[Tribunal]

у меня есть две задачи:

1. Даны два целых числа i и j и файл вещественных чисел, содержащий ненулевую часть верхней треугольной матрицы (по строкам). Вывести порядок матрицы и ее элемент, расположенный в i-й строке и j-м столбце (строки и столбцы нумеруются от 1). Если требуемый элемент находится в нулевой части матрицы, то вывести 0; если элемент отсутствует, то вывести –1.

2. Дано целое число N и текстовый файл с именем Name1, содержащий один абзац текста, выровненный по левому краю. Отформатировать текст так, чтобы его ширина не превосходила N позиций, и выровнять текст по левому краю. Пробелы в конце строк удалить. Сохранить отформатированный текст в новом текстовом файле с именем Name2.

во второй задаче мне нужно в слцчае если вот эти N озиций разрывает слово,то преносить это слово целиком на следующую строку,а если слово такое,что занимает больше всю строку этих N позиций,то просто разорвать его,перенеся лишние символы на следующую строку.
со вторым проблем нет.проблема состоит в том,что у меня не получается сделать так,чтобы переносилось слово целиком,то есть первый случай.

а в первой задаче мне не понятно,как записать в файл вводимые значения верхней ненудевой части матрицы по строкам.

большая просьба помочь)

Сообщение отредактировано: Tribunal - 8.04.2006 5:23

[Tribunal]

прошу прощения,но
у меня вновь возникли вопросы..
дело в том что программа не может выполнить
нужные операции для n<12, если я не ошибаюсь.
почему это происходит?

и еще вопрос:а для чего нужно

if (p=0) then p:=pred(n);

?

и почему

  if st<>'' then begin
    inc(i);
    s[i]:=st;
    end;

работает только вне цикла

while not eof(f) do
....
end;

?

пожалуйста,помогите разобраться((

[volvo]

дело в том что программа не может выполнить
нужные операции для n<12, если я не ошибаюсь. почему это происходит?

Не знаю, я проверял только при n >= 25... Попробую подставить маленькие значения - потом напишу, что происходит...

а для чего нужно

if (p=0) then p:=pred(n);

?

А подумай, когда, собственно, p может быть равно 0? По-моему, есть только один случай, когда это может произойти - если в строке есть только одно слово, более длинное чем N... В этом случае нам надо, чтобы слово было "разрезано" по N-му символу, так? А в программе есть запись:

prev := copy(st, succ(p), 255) + ' ';

Чтобы не делать лишних If ... Then ... Else, я просто присвоил в p значение N - 1, и это удовлетворяет всем условиям...

почему

  if st<>'' then begin
    inc(i);
    s[i]:=st;
    end;

работает только вне цикла

while not eof(f) do
....
end;

?

Ну, а это - как раз и есть тот самый "хвост", про который я сразу забыл. А "хвост" остается только после обработки всего файла, в самом конце. Вот я и проверяю это уже ПОСЛЕ цикла

While not eof(f) do