Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.11.2016, 21:43   #1
Neandertalec
Новичок
Джуниор
 
Аватар для Neandertalec
 
Регистрация: 01.11.2016
Сообщений: 3
По умолчанию анализ строк в Pascal ABC.Net

Есть вот такой текстовый файл:

4 4 124
5 5 23
4 5 167
5 4 254

Задача: проанализировать строки (первое значение - координата по оси x, вторая - по y, третья - цвет (для последующего задания параметров RGB, нужны только оттенки серого, поэтому ограничился одним значением)).

Всю эту кучу цифр представил как одну строку. Как в ней читать перенос (при печати в .txt - клавиша Enter)?

ниже приведу начало программы (только начало!):
Код:
uses System.IO;
 var s: string := &File.ReadAllText('input.txt');
     xs,ys,cs:string;
     x,y,c,p,err:integer;
begin
  //writeln (s);
  p:=pos(' ',s);
  xs:=copy (s,1,p-1);
  //writeln (xs);
  val(xs,x,err);
  delete (s,1,p);
  
  p:=pos(' ',s);
  ys:=copy (s,1,p-1);
  val(ys,y,err);
  delete (s,1,p);
  
  p:=pos(' ',s);
  ys:=copy (s,1,p-1);
  val(cs,c,err);
  writeln (c);
  //writeln (y);
  //writeln(x);
  //writeln(pos(' ',s));
  //writeln (Length(s));
end.
Сама программа не нужна, хотел понять, как паскаль читает перенос при переводе в тип string.
Прошу извинить за неумение редактировать текст. Это первый форум, где я сижу
Жизнь бьет ключом, и все по голове.

Последний раз редактировалось Alex11223; 01.11.2016 в 22:33.
Neandertalec вне форума Ответить с цитированием
Старый 01.11.2016, 22:30   #2
Neandertalec
Новичок
Джуниор
 
Аватар для Neandertalec
 
Регистрация: 01.11.2016
Сообщений: 3
По умолчанию

Ошибка была в строке ys:=copy (s,1,p-1);. При копировании не сменил y на c, также (чтоб уж наверняка) заменил ' ' на коды ANSCII (Enter - #13). Все заработало
Жизнь бьет ключом, и все по голове.
Neandertalec вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Pascal ABC.NET gogomon93 Помощь студентам 4 01.12.2013 17:56
Pascal ABC Net sarkisova_elena Паскаль, Turbo Pascal, PascalABC.NET 2 07.02.2012 00:40
Pascal ABC.NET BuTaJI Помощь студентам 1 26.04.2011 20:10
Pascal ABC net DiLLe Паскаль, Turbo Pascal, PascalABC.NET 1 08.06.2010 23:20
Pascal ABC .NET no4_sniper Паскаль, Turbo Pascal, PascalABC.NET 0 17.10.2009 00:21