13.07.2009, 01:57 | #1 (permalink) |
Новичок
Регистрация: 13.07.2009
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите с простой програмкой reset(f1);
var a,b,sum: integer; f1,f2: text; begin assign(f1,'input.txt'); assign(f2,'res.txt'); reset(f1); read(f1,a,b); sum:=a+b; rewrite(f2); writeln(f2,sum); close(f2); close(f1); end. Это программа считывает первые два числа из файла input.txt, складывает их и записывает в файл res.txt. Как сделать так что бы он считывала ни два первых числа , не первую строку а полностью все что есть txt. как бы копию документа. Спасибо ! |
13.07.2009, 01:57 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Рекомендую обратить внимание на похожие обсуждения Простой мультивибратор Нет кнопки RESET на системнике Простой ЦАП Монитор загорается только после нажатия Reset |
13.07.2009, 09:52 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Ввести строковую переменную S:STRING; Дальше, после того, как оба файла открыты (один - на чтение, другой - на запись), организовать цикл: REPEAT ReadLn(f1,S); WriteLn(f2,S); UNTIL EoF(f1); Всё! Не забудьте только в конце закрыть оба файла командой Close. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|