Синтезирование последовательности букв (Delphi) - что это?

[Tonik_A]

Здравствуйте. Получил следующее задание:
Синтезировать последовательности,
состоящие из букв ABBCCCDDDD...Z...Z и
ZYYXXX...A...A. Решить ту же задачу для
букв русского языка.
Объясните доступными словами, что тут надо делать?
Если видели такое, киньте ссылку.
---------------------------
Спасибо.

[fbus]

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

[L_M]

Мне кажется, что нужно просто вывести строки АББВВВГГГГ.... и ЯЮЮЭЭЭ...

[fbus]

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

[Levsha100]

Объясните доступными словами, что тут надо делать?

Вывести все буквы алфавита, причем число повторений каждой буквы равняется ее порядковому номеру в алфавите.
Могу реализовать задачу за вознагрождение.

[Serge_Bliznykov]

ещё одна "сложнейшая" задача...

procedure TForm1.Button1Click(Sender: TObject);
var
  i, K : integer;
  sResult : string;
  ch : char;
begin
  Memo1.Lines.Clear;

  sResult := '';
  K := 1;
  for ch := 'A'  to 'Z' do
  begin
    for i:=1 to K do
      sResult := sResult + ch;
    inc(K);
  end;
  Memo1.Lines.Append(sResult);
  Memo1.Lines.Append('');

  { теперь в обратном порядке буквы }
  sResult := '';
  K := 1;
  for ch := 'Z'  downto 'A' do
  begin
    for i:=1 to K do
      sResult := sResult + ch;
    inc(K);
  end;
  Memo1.Lines.Append(sResult);
  Memo1.Lines.Append('');

  {для русских буковок}
  sResult := '';
  K := 1;
  for ch := 'А'  to 'Я' do
  begin
    for i:=1 to K do
      sResult := sResult + ch;
    inc(K);
  end;
  Memo1.Lines.Append(sResult);
  Memo1.Lines.Append('');

  {ну и для русских буковок в обратном порядке}
  sResult := '';
  K := 1;
  for ch := 'Я'  downto 'А' do
  begin
    for i:=1 to K do
      sResult := sResult + ch;
    inc(K);
  end;
  Memo1.Lines.Append(sResult);
  Memo1.Lines.Append('');

end;