Программы обработки текстовых файлов в PascalABC.NET

[serge-first]

Задание 1 Текстовый файл содержит сведения о кольцевых туристических маршрутах: список городов и стоимость тура в рублях, в каждой строке файла один маршрут (например, «Челябинск – Екатеринбург – Казань – Москва – Самара – Уфа – Челябинск. 5000»). Требуется найти маршрут с наибольшим количеством городов и указать его стоимость. Полученные данные записать в текстовый файл.

Задание 2 Из ассортимента конфет, выпускаемых пермской кондитерской фабрикой, выбрать те, стоимость которых за 1 кг попадает в указанный диапазон. Указать срок их годности и номера магазинов, в которых они имеются в продаже.
Указание: При решении задачи, использовать тип данных Записи (record). Исходные данные должны содержаться в текстовом файле. Количество записей в файле не меньше 20 и заранее неизвестно, сколько их. Результат работы программы записать в файл с другим именем.

[Vanta11a]

Ну и? Наработки или оплата?

[serge-first]

По первой задачи я кое-что начудил:

s1:='';
i:=length(s);
while (i>=1) and(s[i] in ['0'..'9']) do
begin
s1:=s[i]+s1;
i:=i-1
end;

[ZX Spectrum-128]

Читаете строчку из файла, подсчитываете количество тире. Строчку с аибольшим кол-вом выводите.
По первой задачке

var
  f:textfile;
  max,sum,i:integer;
  outs,s:string;
begin
  assignfile(f,'text.txt');
  reset(f);
  readln(f,s);
  outs:=s;
  sum:=0;
  for i:=1 to length(s) do
   if s[i]='–' then
     sum:=sum+1;
  max:=sum;   
  while not eof(f) do
    begin
      readln(f,s); 
      sum:=0;      
      for i:=1 to length(s) do
        if s[i]='–' then
          sum:=sum+1;
      if sum>max then 
        begin
          max:=sum;
          outs:=s;
        end;
    end;
  writeln('Самый длинный маршрут:');   
  writeln(outs);   
  readln;
  closefile(f);
end.

Как выделить сумму билета из строки, подумайте сами.

Текстовый файл для проверки

«Челябинск – Екатеринбург – Казань – Москва – Самара – Уфа – Челябинск. 5000»
«Челябинск – Екатеринбург – Самара – Уфа – Челябинск. 3000»
«Челябинск – Екатеринбург – Казань – Москва – Уфа – Челябинск. 3500»

[serge-first]

Спасибо огромное! Вы помогли мне более чем)

[serge-first]

Сообщение от ZX Spectrum-128

Читаете строчку из файла, подсчитываете количество тире. Строчку с аибольшим кол-вом выводите.
По первой задачке

var
  f:textfile;
  max,sum,i:integer;
  outs,s:string;
begin
  assignfile(f,'text.txt');
  .....
  writeln('Самый длинный маршрут:');   
  writeln(outs);   
  readln;
  closefile(f);
end.

А я вот немного переделал, по задаче ведь мне нужно, чтобы ответ сохранялся в другом текстовом файле.
Но мне сказали, что здесь много лишнего?

{
	Автор: Швайко Сергей.
}
program zadanie1;
var
  a,b:text;
  max,sum,i:integer;
  outs,s:string;
begin
  assign(a,'a.txt');
  assign(b,'b.txt');
  reset(a);
  rewrite(b);
  readln(a,s);
  outs:=s;
  sum:=0;
  for i:=1 to length(s) do
   if s[i]='–' then
     sum:=sum+1;
  max:=sum;   
  while not eof(a) do
    begin
      readln(a,s); 
      sum:=0;      
      for i:=1 to length(s) do
        if s[i]='–' then
          sum:=sum+1;
      if sum>max then 
        begin
          max:=sum;
          outs:=s;
        end;
    end; 
  writeln('Самый длинный маршрут:');
  writeln(b,'Самый длинный маршрут: ',outs);  
  writeln(outs);   
  readln;
  close(a);
  close(b);
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)

И не злоупотребляйте избыточным цитированием. Оверквотинг (overquoting) на форуме запрещён.

Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

ничего принципиально "ЛИШНЕГО" я в коде от ZX Spectrum-128 не увидел.
можно сократить код поиска максимального на несколько строк (max присвоить не длине первого маршрута, а нулю):

program zadanie1;
var
  a,b:text;
  max,sum,i:integer;
  outs,s:string;
begin
  assign(a,'a.txt');
  reset(a);
  max := 0;
  while not eof(a) do
    begin
      readln(a,s);
      sum:=0;
      for i:=1 to length(s) do
        if s[i]='-' then
          sum:=sum+1;
      if sum>max then
        begin
          max:=sum;
          outs:=s;
        end;
    end;
  close(a);

  assign(b,'b.txt');
  rewrite(b);
  if max>0 then
     writeln(b,'Самый длинный маршрут: ',outs)
  else
     writeln(b, 'Нет маршрутов в исходном файле! ');
  close(b);
  WriteLn('Работа программы завершена.');
  Readln
end.

Требуется найти маршрут с наибольшим количеством городов и указать его стоимость.

p.s. как в исходном примере кода, выделением стоимости из строки я не стал заниматься, сделайте это самостоятельно!

[serge-first]

Точно! Спасибо!!!