Запись в *.txt файл

@DimanRu · Регистрация: 15.06.2011

Author24 — интернет-сервис помощи студентам

Здравствуйте, нужна программа которая будет все вводимое пользователем записывать в файл!И сохранять этот файл в формате *.txt в каталоге с программой!

@Dekio · 15.06.2011, 19:46

Pascal

program Dekio;
var
   SourceF: Text;
   num: Integer;
begin
   assign(SourceF,'Source.txt');
   rewrite(SourceF);
   writeln('Вводите числа, окончание число 0');
   while true do
   begin
      readln(num);
      if num<>0 then
      writeln(SourceF,num)
      else
      break;
   end;
   close(SourceF);
end.

@DimanRu · 16.06.2011, 08:44 **[ТС]**

Спасибо!

@DimanRu 721 / 712 / 168 Регистрация: 15.06.2011 Сообщений: 1,704
		1
	Запись в .txt файл 15.06.2011, 17:20. Показов* 4257. Ответов 2 Метки нет (Все метки) Здравствуйте, нужна программа которая будет все вводимое пользователем записывать в файл!И сохранять этот файл в формате *.txt в каталоге с программой! 0

@DimanRu 721 / 712 / 168 Регистрация: 15.06.2011 Сообщений: 1,704
	16.06.2011, 08:44 [ТС]	3
	Спасибо! 0

Запись в *.txt файл

Решение