Дан текстовый файл с именем NameT

[ek1ipse]

Здравствуйте. Увидел в сети ваш сайт и сразу подумал вот то что я искал. Задания трудные, но очень надеюсь что вы поможете. Решить нужно в Турбо Паскале.

Вот собственно задачка

Дан текстовый файл с именем NameT, содержащий таблицу из трех столбцов вещественных чисел. Ширина столбцов таблицы и способ их выравнивания являются произвольными. Специальных символов-разделителей таблица не содержит. Создать файлы вещественных чисел с именами Name1, Name2, Name3, каждый из которых содержат числа из соответствующего столбца таблицы.

Заранее очень благодарен...

[Zer0]

а какие у вас познания в турбо паскале?
если хоть самый минимум есть, то вот вам вариант:

1) создаете 4 файловые переменные типа textfile (одну для исходного файла, три для выходных)
2) открываете исходный файл на чтение, остальные на перезапись
3) пускаете цикл по условию while not eof(файловая_переменная)
4) на каждой итерации считываете три числа и поочередно записываете их в те три файла
5) после всего этого закрываете все файлы

[ek1ipse]

в турбо паскале совсем ничего не понимаю...

[Zer0]

ну тогда ловите, я сегодня добрый

var f0,f1,f2,f3:textfile; a,b,c:real;
begin
assignfile(f0,'NameT');
assignfile(f1,'Name1');
assignfile(f2,'Name2');
assignfile(f3,'Name3');
reset(f0);
rewrite(f1); rewrite(f2); rewrite(f3); 
while not eof(f0) do begin
readln (f0,a,b,c);
writeln(f1,a); writeln(f2,b); writeln(f3,c); 
end;
closefile(f0);
closefile(f1); closefile(f2); closefile(f3);
end;