Показать сообщение отдельно
  #3  
Старый 30.01.2014, 00:37
Аватар для poli-smen
poli-smen poli-smen вне форума
Профессионал
 
Регистрация: 06.08.2012
Адрес: Кривой Рог
Сообщения: 1,791
Версия Delphi: Delphi 7, XE2
Репутация: 4415
По умолчанию

Цитата:
Сообщение от tane
Вот запись у файл чисел,но вместо чисел - иероглифы.
1?
Код:
var f: file of integer; i, j, k, m: integer;
Ну так потому что ты объявил файл типизированный (т.е. бинарный).
Текстовые файлы объявляются так:
Код:
var f: TextFile;
Цитата:
Сообщение от tane
2)Как нам удалить отрицательные компоненты?
Помогите пожалуйста решить эту задачу.
С помощью двух файлов: первый с исходными числами, а второй пустой. Читаешь в цикле все числа из первого файла и если число отрицательное - пропускаешь его, иначе записываешь его во второй файл.
Ответить с цитированием