![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#4
|
||||
|
||||
|
Какого ж чёрты у вас в коде:
Код:
read(outfile, Xa); read(outfile, Yb); Про копирование я вообще не понял. inFile - это исходный файл. Что вы собрались в него копировать? outFile - это файл, который у вас должен получиться после преобразования. Код:
AssignFile(inFile, 'outfile.txt'); // Связываем исходный файл с переменной
Reset(inFile); // Открываем файл для чтения
AssignFile(outfile, 'outfile_reCalc.txt'); // Связываем новый файл с переменной
ReWrite(outfile); // Открывай файл для записи
while not Seekeof(outfile) do
begin // Пробегаем весь исходный файл
read(infile, Xa); // Считываем переменные Xa, Yb
read(infile, Yb);
writeln(outfile, Xa,' ',Yb); //записываем текущие проверяемые точки в новый файл
for YbNew:=0 to Ybmax do
for XaNew:=0 to Xamax do
begin
// ... какие-то преобразования
if // ... если точка принадлежит, то записываем её новые координаты
writeln(outfile, XaNew,' ',YbNew); // запись новых координат точки в новый файл
end;
end;
CloseFile(inFile);
CloseFile(outfile);Код:
Пробник1: Xa1 Yb1 Пробник2: Xa1 Yb2 Пробник3: Xa1 Yb3 Совпадение: XaNew YbNew Пробник4: Xa1 Yb4 Пробник5: Xa2 Yb1 и т.д. Поправил код. Последний раз редактировалось Uniq!, 14.10.2013 в 16:27. |