Informatics Delphi task

ответ ИИ


На изображении представлен лист с заданием. Дана строка, содержащая текст, заканчивающийся точкой. Вывести на экран слова из этого текста, содержащие три буквы.
Чтобы вывести на экран слова из текста, содержащие три буквы, можно использовать следующий алгоритм:

Разделите строку на отдельные слова с помощью встроенного метода .split()
.
Проверьте длину каждого слова с помощью функции len()
. Если длина слова равна 3, добавьте его в новый список.
Выведите на экран каждое слово из списка, содержащего слова с тремя буквами, с помощью цикла for

знаю хуйня, но может поможет

 

procedure TForm1.Button1Click(Sender: TObject);var WordStr, ResultStr: string;begin ResultStr := ''; for WordStr in Edit1.Text.Split([' ', '.']) do if Length(WordStr) = 3 then ResultStr := ResultStr + WordStr + ' '; Label1.Caption := 'Слова: ' + Trim(ResultStr);end;

Code

procedure TForm1.Button1Click(Sender: TObject);var  WordStr, ResultStr: string;begin  ResultStr := '';  for WordStr in Edit1.Text.Split([' ', '.']) do    if Length(WordStr) = 3 then      ResultStr := ResultStr + WordStr + ' ';  Label1.Caption := 'Слова: ' + Trim(ResultStr);end;

 

Дана строка, содержащая текст, заканчивающийся точкой. Вывести на экран слова из этого текста, содержащие три буквы. Текст поместить в Memo

 

procedure TForm1.Button1Click(Sender: TObject);var WordStr: string;begin Memo2.Lines.Clear; for WordStr in Memo1.Text.Split([' ', '.']) do if Length(WordStr) = 3 then Memo2.Lines.Add(WordStr);end;

Code

procedure TForm1.Button1Click(Sender: TObject);var  WordStr: string;begin  Memo2.Lines.Clear;  for WordStr in Memo1.Text.Split([' ', '.']) do    if Length(WordStr) = 3 then      Memo2.Lines.Add(WordStr);end;