файлы Опции

[1211]

Помогите с задачами.
1Реализуйте последовательное добавление содержимого трех нетипизированных файлов к первоначально пустому файлу с заданным именем.
2.Дан текстовый файл f. Предполагается, что длина одного слова не превосходит десяти и что число слов делится на 100. Подготовить файл для печати слов в две колонки по пятьдесят строк на странице. Слова должны быть размещены в файле f1 в следующем порядке: 1-е слово, 51-е слово, 2-е слово, 52-е слово,..., 50-е слово, 100-е слово, затем (следующая страница) 101-е слово, 151-е слово,..., 150-е слово, 200-е слово и т.д.

[andriano]

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);

PS. Можно обойтись 51 строкой.
PPS. Где уверенность, что, скажем, слово "понедоброжелательствовать" уместится в 10 символов? (а еще есть слова, которые пишутся через дефис) ;)

Сообщение отредактировано: andriano - 20.12.2007 0:00