задача 'ссылки'

[phasha]

в ней требуется найти общее кол-во строк которые начинаются с одинакого символа.
например:
мама мыла раму
ама мыла раму
ара гага
мама мыла.
ответ:1.
вроде правильно но почемуто выкидывает(((

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type sp=^elem;
  elem=record
  st:string;
  l:sp; end;
  var m,first:sp; k,i:Integer;
  st2:string;
begin
 New(m);New(first);

  first:=m;
          k:=1;
 for i:=1 to 10 do begin

     Readln(m^.st);

     New(m^.l);
     m:=m^.l;
 end;
    m:=first;
    while m<>nil do begin

      st2:=m^.st;
       m:=m^.l;
      if st2[1]=m^.st[1] then  inc(k);
    end;
    Writeln(k);
    Readln;
end.

[phasha]

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

[JUDAS]

program id167412;

{$APPTYPE CONSOLE}

uses
  SysUtils;

  var
    elem : array of string;
    S : string;
    i,n,j,c : integer;

begin

 i:=1;
 repeat
  writeln('Элемент ',i,' (пробел - конец ввода) ');
  Readln(S);
  S:=Trim(S);
  if S<>'' then
  begin
   SetLenGth(elem, length(elem)+1);
   elem[high(elem)]:=S;
   inc(i);
  end;
 until S='';

 n:=LenGth(elem);

 for i:=0 to n-1 do
  if elem[i,1]<>#0 then
  begin
   c:=1;
   for j:=i+1 to n-1 do
   if elem[j,1]= elem[i,1] then
   begin
    elem[j,1]:=#0;
    inc(c);
   end;
   writeln('На букву ',elem[i,1],' встречается ', c, ' слов');
   elem[i,1]:=#0;
  end;

  Finalize(elem);
  sleep(10000);
end.

попробуй так

[JUDAS]

этот код самый адекватный из всех

насмешил не на шутку.

[phasha]

спасибо...но тут нужны ссилочные типы а не динамический массив)

[phasha]

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type sp=^elem;
  elem=record
  st:string;
  l:sp; end;
  var m,first:sp; k,i:Integer;
  st2:string;
begin
 New(m);New(first);

  first:=m;
          k:=1;
 for i:=1 to 10 do begin

     Readln(m^.st);

     New(m^.l);
     m:=m^.l;
 end;
    m:=first;
    while m<>nil do begin

      st2:=m^.st;
       m:=m^.l;
      if st2[1]=m^.st[1] then begin inc(k);
      writeln(k);readln;
    end;
    Writeln(k);
    Readln;
end.

можно и так конечно...результат выдает но надо очень быстро подглядывать:D.в общем это не выход))какие могут быть идеи?

[JUDAS]

ссилочные типы

так пользуйся GetMem, FreeMem и массивом символов вместо строк как в С++ и будет тебе счастье

[phasha]

имеешь ввиду нужно будет записать строки в массив и освободить память а тока потом сравнивать первые символы строк тока в массиве?

[JUDAS]

я имею ввиду следущее:
Вариант 1
Строка которая вводится с клавиатуры, может и будет иметь разный размер в разнеых элементах. Для того чтобы хранить такую стукруту тебе нужно описать, как минимум следующие элементы:
Count - число символов
Dump - сам дамп символов
Каждая структура, должна создаваться в оперативной памяти используя GetMem или ReallocMem. Размер структуры для каждого последующего элемента, желательно сделать одинаковый, так легше будет читать потом.
В качестве дампа, советую использовать PChar указатель на первый элемент массива.
Вариант 2
Все строки сбивать в один сплошной дамп типа строки (string или массивом char) банальным суммирование строк (копированием). Ссылочный тип объявить следуюший
record
position: integer;
count: integer;
end;
размер твоего элемент = всегда 8, поэтому элементы в твоём дампе будет выглядеть вот так
Po, Pn : PItem;
Pn := PItem(integer(Po)+n*SizeOf(TItem));
соответственно строку которая должна анализироваться =
S:= Copy(Dump[0], Pn^.position, Pn^.Count);
----------
Выбор и решение за тобой.
П.С. странная у тебя задача. Байто...вом как правило в Паскале занимаются очень редко, это превилегия другого широкоизвесного языка программирования )))

[phasha]

спасибо бумем стараться))я делал тем методом т.к. он мне больше понятен))