Помогите с задачами.
1Реализуйте последовательное добавление содержимого трех нетипизированных файлов к первоначально пустому файлу с заданным именем.
2.Дан текстовый файл f. Предполагается, что длина одного слова не превосходит десяти и что число слов делится на 100. Подготовить файл для печати слов в две колонки по пятьдесят строк на странице. Слова должны быть размещены в файле f1 в следующем порядке: 1-е слово, 51-е слово, 2-е слово, 52-е слово,..., 50-е слово, 100-е слово, затем (следующая страница) 101-е слово, 151-е слово,..., 150-е слово, 200-е слово и т.д.
Ну, подскажите, как копировать один файл в другой я знаю, но остальные... Это через seek ?
seek с текстовыми файлами не работает.
Проще всего, думаю, считывать файл как file of char.
Читаешь посимвольно.
Пока идут буквы - это одно слово.
Считываешь 100 слов в массив s: array[1..100]of string[10].
В цикле записываешь:
for i:=1 to 50 do WriteLn(s[i],' ',s[i+50]);
for i := 1 to 50 do begin
write(t,s[i]);
if length(s[i]) < MaxLength then
for j := 0 to MaxLength-length(s[i])-1 do
write(t,' ');
writeln(t,s[i+50]);
end;
writeln(t,#12);