|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
06.05.2010, 00:13 | #1 |
Регистрация: 04.04.2010
Сообщений: 3
|
файловые переменные
пожалуста, помогите разобратся
Дан текстовый файл. Абзацы выделяются в нем с помощью новой строки (5 пробелов), а пустых строк нет. Вставить между соседними абзацами по пустой строке. писала так: var f, temp: text; temps: string; da: boolean; i: shortInt; begin assign(f, 'C:\in.txt'); assign(temp, 'C:\tem.txt'); reset(f); rewrite(temp); while not eof(f) do begin readln(f,temps); da:=true; while da and (i<=5) do begin if temps[i] <> ' ' then da:=false; inc(i) end; if da then writeln(temp,' '); end; close(f); close(temp); readln end. но не работает((( |
06.05.2010, 12:41 | #2 | |
Старожил
Регистрация: 20.04.2008
Сообщений: 5,528
|
Цитата:
da =True а чему равно j ? а также где оно меняется ? и не забывайте при оформлении сообщения использовать специальное оформление (кнопочка #)
программа — запись алгоритма на языке понятном транслятору
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
переменные | Артэс | Общие вопросы C/C++ | 11 | 23.06.2009 12:12 |
задача на файловые потоки в C++ | Klyan | Помощь студентам | 1 | 06.01.2008 01:49 |
Переменные из БД | Кронос | БД в Delphi | 2 | 06.06.2007 11:26 |