[Неопытный]

Ребята помогите написать программу Дана строка символов, содержащая слова. Используя функцию, определить количество слов, имеющих заданную длину n.

Я иссяк на своей первой(((

[U.B.M.]

Сообщение от Неопытный

Ребята помогите написать программу Дана строка символов, содержащая слова. Используя функцию, определить количество слов, имеющих заданную длину n.

Я иссяк на своей первой(((

Вариант 1.
Сразу перейти в раздел "Работа".

Вариант 2.
1. Морально подготовиться к тому чтобы напрячь мозги.
2. Разбить строку на массив слов (например заменить все пробелы на #13#10) и запихать этот массив в мемо.
3. Посчитать кол-во строк в мемо с необходимой длиной.

[Неопытный]

Сообщение от U.B.M.

Вариант 1.
Сразу перейти в раздел "Работа".

Вариант 2.
1. Морально подготовиться к тому чтобы напрячь мозги.
2. Разбить строку на массив слов (например заменить все пробелы на #13#10) и запихать этот массив в мемо.
3. Посчитать кол-во строк в мемо с необходимой длиной.

Спасибо, а можите подсказать алгоритм для этого:
Задана строка произвольной длины из цифр и латинских букв. Используя процедуру, сформировать множество латинских букв, которые входят в заданную строку. В основной программе распечатать в алфавитном порядке эти буквы или выдать сообщение, что букв нет.

[U.B.M.]

Сообщение от Неопытный

Спасибо, а можите подсказать алгоритм для этого:
Задана строка произвольной длины из цифр и латинских букв. Используя процедуру, сформировать множество латинских букв, которые входят в заданную строку. В основной программе распечатать в алфавитном порядке эти буквы или выдать сообщение, что букв нет.

1. Идем по строке, смотрим каждый символ - если латинская буква (определяем например путем сравнения строк)- записываем в строку в тоже самое мемо или стринглист.
2. Дальше как вариант - делаем динамический массив и упорядочиваем его.

[Неопытный]

Сообщение от U.B.M.

1. Идем по строке, смотрим каждый символ - если латинская буква (определяем например путем сравнения строк)- записываем в строку в тоже самое мемо или стринглист.
2. Дальше как вариант - делаем динамический массив и упорядочиваем его.

Все понятно...большое спасибо

[U.B.M.]

Сообщение от Неопытный

Все понятно...большое спасибо

Если будешь выкладывать сюда куски кода - пусть даже корявого местами - дело быстрее пойдёт.

[Janom]

Сообщение от U.B.M.

Вариант 1.
Сразу перейти в раздел "Работа".

Вариант 2.
1. Морально подготовиться к тому чтобы напрячь мозги.
2. Разбить строку на массив слов (например заменить все пробелы на #13#10) и запихать этот массив в мемо.
3. Посчитать кол-во строк в мемо с необходимой длиной.

Заморочено как-то))
Можно так:

Код:

//Функция
function OprKolSlov(Stroka:String; Const N_Bukv:Cardinal):Cardinal;
var
  i,CurrCount:Cardinal;
begin
if Stroka='' then exit;
Stroka:=Stroka+' ';
CurrCount:=0;
Result:=0;
for i:=1 to Length(Stroka) do
  begin
    if Stroka[i]<>' ' then Inc(CurrCount)
      else begin
        if CurrCount=N_Bukv then Inc(Result);
        CurrCount:=0;
      end;
  end;
end;
//Использование функции
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Caption:=IntToStr(OprKolSlov(Edit1.Text,4));
end;