2 задачи на delphi

[ЭД4-0014]

Никак не могу решить эти 2 задачи... инета нет, пишу с телефона...
Задача1.
написать на delphi: дана строка, содержащая менее чем 200символов, определить, сколько раз в этой строке ПОСЛЕ ПОСЛЕДНЕЙ точки встречается комбинация букв "ая".

Задача2. на delphi БЕЗ использования массивов: багаж пассажира характеризуется количеством вещей и общим весом вещей. Дан файл F, содержащий информацию о багаже нескольких пассажиров, информация о багаже каждого отдельного пассажира представляет собой соответствующую пару чисел. Выяснить, имеется ли пассажир, багаж которого превышает багаж каждого из остальных пассажиров и по числу вещей и по весу.

[gred]

1. Ишешь последнею точку циклом

for i to 200 do
begin
if str[i]:='.' then
n:=length(str[i]);
end;

дальше всё просто считаешь сколько ая полсле n

[Alter]

Сообщение от gred

1. Ишешь последнею точку циклом

for i to 200 do
begin
if str[i]:='.' then
n:=length(str[i]);
end;

дальше всё просто считаешь сколько ая полсле n

Подправил ваш код, немного( 1)если вы ищите позицию точки; 2) если нужна её позиция ):
Зачем было писать length(str[i]), если его длина один символ, с учётом того что Str - это String.

for i:=1 to Length(Str) do
begin
if str[i]:='.' then
n:=i;
end;

[gred]

ну да я так и думал)
продолжение

for i:=n to Length(Str) do
begin
if str[i]:='ая' then
k:=k+1;
else
writeln('osebka');
end;
writeln(k);
end.

А вторую точно без массивов надо делать?

[ЭД4-0014]

ага.. Censored препод сказал за массивы сразу 2 поставит(((

подскажите мне пожалуйста, почему я в первой задаче написал все как вы мне написали, а она мне выдает вот что
osebka
osebka
osebka
osebka
osebka
osebka
osebka
75

код программы:
procedure TForm1.Edit1Click(Sender: TObject);
var
st, stemp : string[200];
i, Count_AJ,n,k : integer;

begin
st:=edit1.text;
if Pos('.',st)=0 then begin
memo1.lines.append('Точки нет - значит и считать нечего! Ответ - НОЛЬ раз.')
end
else

for i:=1 to 200 do
begin
if st[i]='.' then
n:=length(st[i]);
end;
for i:=n to Length(St) do
begin
if st[i]='ая' then
k:=k+1
else
memo1.lines.append('osebka');
end;
memo1.lines.append(inttostr(k));
end;

end.

где тут может быть ошибка?

[mihali4]

for i:=1 to Length(Str) do
begin
if str[i]:='.' then
n:=i;
end;

Можно ведь короче:

for i:=Length(Str) downto 1 do   
begin   
if str[i]:='.' then   
break;   
end;
n:=i;

А дальше PosEx...

[_Dmitry]

Жесть...

Сообщение от gred

if str[i]:='ая' then

Код такой: находим то что нужно, лишнее отрезаем и т.д.

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
  n,i: integer;
begin
  s:=Edit1.Text; //берем строку
  for i:=length(s) downto 1 do
    if s[i] = '.' then break; //нашли последнюю точку
  delete(s,1,i); //делаем обрезание
  n:=0;
  i:=pos('ая',s);
  while i <> 0 do begin
    n:=n+1;
    delete(s,1,i+1);
    i:=pos('ая',s);
  end;
  Label1.Caption:=IntToStr(n); //выводим результат
end;

[ЭД4-0014]

_Dmitry, спасибо тебе огромное

[ЭД4-0014]

люди, помогите со 2ой задачей!!!

[gred]

Сообщение от _Dmitry

Жесть...

Код такой: находим то что нужно, лишнее отрезаем и т.д.

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
  n,i: integer;
begin
  s:=Edit1.Text; //берем строку
  for i:=length(s) downto 1 do
    if s[i] = '.' then break; //нашли последнюю точку
  delete(s,1,i); //делаем обрезание
  n:=0;
  i:=pos('ая',s);
  while i <> 0 do begin
    n:=n+1;
    delete(s,1,i+1);
    i:=pos('ая',s);
  end;
  Label1.Caption:=IntToStr(n); //выводим результат
end;

Для новичков это трудновато
я вот не понял вот это что? что он делет и зачем? обьяни...

TForm1.Button1Click(Sender: TObject);