Строки и файлы

[BR@BUS]

Здравствуйте. У меня такая проблема,нет возможности подобраться к компу, так что пишу с мобилы . Нужна помощ с решением 2-х задач:

1) Дана строка s, содержащая менее чем 200 символов. Определить, сколько раз в данной строке до первой точки встречается комбинация символов ая. Использовать стандартные процедуры и функции в действиях над строками.

2) Багаж пассажира характеризуется количеством вещей и общим весом вещей. Дан файл f , содержащий информацию о багаже нескольких пассажиров, информация о багаже каждого отдельного пассажира представляет собой соответствующую пару чисел *) .
Определить, имеются ли 2 пассажира, багаж которых совпадает по числу вещей и различаются по весу не более чем на 0.5 кг.

Есть маленькие ньансы ко 2-й задаче:во-первых - отдельный приложения для создания и считывания файла, и во-вторых - не использовать массивы и цикл for

И вот еще одна прозьба, проверить работает ли прога:
var
st:string[200];
i:integer;
est:boolean;
begin
edit1.text:=st;
est:=false;
for i:=1 to length(st) do
if st[i]='.'then begin
est:=true;
break;
end;
if pos ('ая',st) <>0
then begin i:=i+1;
memo1.lines.Append('est')
end
else
memo1.lines.Append('net');
end;
end.

Заранее спасибо за понимание

[Stanislav]

Сообщение от BR@BUS

Здравствуйте. У меня такая проблема,нет возможности подобраться к компу, так что пишу с мобилы . Нужна помощ с решением 2-х задач:

1) Дана строка s, содержащая менее чем 200 символов. Определить, сколько раз в данной строке до первой точки встречается комбинация символов ая. Использовать стандартные процедуры и функции в действиях над строками.

2) Багаж пассажира характеризуется количеством вещей и общим весом вещей. Дан файл f , содержащий информацию о багаже нескольких пассажиров, информация о багаже каждого отдельного пассажира представляет собой соответствующую пару чисел *) .
Определить, имеются ли 2 пассажира, багаж которых совпадает по числу вещей и различаются по весу не более чем на 0.5 кг.

Есть маленькие ньансы ко 2-й задаче:во-первых - отдельный приложения для создания и считывания файла, и во-вторых - не использовать массивы и цикл for

И вот еще одна прозьба, проверить работает ли прога:
var
st:string[200];
i:integer;
est:boolean;
begin
edit1.text:=st;
est:=false;
for i:=1 to length(st) do
if st[i]='.'then begin
est:=true;
break;
end;
if pos ('ая',st) <>0
then begin i:=i+1;
memo1.lines.Append('est')
end
else
memo1.lines.Append('net');
end;
end.

Заранее спасибо за понимание

Прога компилируеться но постояно собщает net даже если встречаеться 'ая'

[Serge_Bliznykov]

И вот еще одна прозьба, проверить работает ли прога:
var
st:string[200];
i:integer;
est:boolean;
begin
edit1.text:=st;

перепутаны местами, надо наоборот:
st := edit1.text;

[BR@BUS]

Спасибо. НАрод а насчет задачек, мб кто-нить поможет? Плз оч надо

[SNUPY]

1

Fucntion GetAYa(s:string):Byte;
var 
  ss:string;
begin
  result:=0;
  ss:=s;
  if Pos('.', ss)>0 then
    ss:=Copy(ss, 1,Pos('.', ss)-1);
  While Pos('ая', ss)>0 do
  begin
    Inc(Result);
    Delete(ss,Pos('ая', ss), 2);
  end
end;

2. Решать лень, но вот как я предоставляю решение:
-Считываем данные из файла
-Сортируем массив по количеству вещей
-Пускаем по массиву цикл, который проверяет i-ую и i+1 записи на равентво количества вещей и на отличие масс на неболее чем 0,5кг.

[Serge_Bliznykov]

1) Дана строка s, содержащая менее чем 200 символов. Определить, сколько раз в данной строке до первой точки встречается комбинация символов ая. Использовать стандартные процедуры и функции в действиях над строками.

не проблема. Лови:

var 
  st, stemp : string[200];
  i, Count_AJ   : integer;

begin
  WriteLn('Введите строку:');
  Readln(st);
  if Pos('.',st)=0 then begin
    Writeln('Точки нет - значит и считать нечего! Ответ - НОЛЬ раз.')
  end
  else begin
    Count_AJ := 0;
    {возьмём подстроку от начала строки и до первой точки}
    stemp := Copy(st, 1, Pos('.',st)-1); 
    while Pos('ая', stemp)>0 do begin
      Inc(Count_AJ);
      {копируем остаток строки от найденного 'ая' 
         до конца оставшейся строки 
         200 - это с запасом, больше чем есть, всё 
                               равно не скопируется}  
      stemp := Copy(stemp,Pos('ая', stemp)+2,200); 
    end;
    WriteLn(' сочетание ''ая'' встретилось ',Count_AJ:1,' раз.');
  end;
end.