Строка в Delphi

[534]

Дано предложение. Изменить его так, чтобы вначале шли слова начинающиеся и закнчивающиеся одной и той же буквой, а затем остальные слова. В задаче использовать универсальную строку для представления в памяти текстовых данных) Console Application)

[p51x]

Выкладывайте свои наработки.

[534]

у меня ваще идей нет(( Ну решите девушке 8 марта задачу, ведь 8 марта раз в год, ну пожаалуйста)

[p51x]

Вам либо в поиск (были темы с буквами в начале и конце), либо во фриланс.

[534]

Ну напишите вы девушке прогу ведь праздник же)))

[eoln]

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

В задаче использовать универсальную строку для представления в памяти текстовых данных)

Что за универсальная строка? Объясните дураку... Век живи, век учись! Это вы так динамические переменные называете или что-то ещё?

[534]

Я честно не знаю(( Я проболела(( Помогите написать прогу((

наверное как обычная строка)

[eoln]

не тестировал, но вроде работает

program Project1;

{$APPTYPE CONSOLE}

uses
  system, sysutils;

var
  s, st: string;
  i, j, k: integer;
  mas: array of string;
begin
  write('s = ');
  readln(s);
  s := s + ' ';
  i := pos(' ', s);
  setlength(mas, 1);
  k := 0;
  while i > 0 do begin
    mas[k] := copy(s, 1, pos(' ', s) - 1);
    delete(s, 1, pos(' ', s));
    inc(k);
    setlength(mas, k + 1);
    i := pos(' ', s)
  end;
  st := '';
  for i := 0 to k - 1 do
    if mas[i][1] = mas[i][length(mas[i])] then st := st + mas[i] + ' ';
  for i := 0 to k - 1 do
    if mas[i][1] <> mas[i][length(mas[i])] then st := st + mas[i] + ' ';
  write(st);
  readln;
end.

[Stilet]

использовать универсальную строку

"Мудромозглые" преподаватели так любят называть обычный String.
Почему - долго обьяснять, но если в кратце этот тип Делфи наиболее подходит для любых символьных массивов, так же как integer сам компилятором выбирается под размер вложенных в него данных.

[534]

А немогли бы вы переписать мне прогу не используя массив и вторую строку, а через множество) и использовать любую строку, а не универсальную)