0 / 0 / 0
Регистрация: 12.06.2017
Сообщений: 3
1

Получить неповторяющийся список слов нечетной длины

26.06.2018, 16:02. Показов 879. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Вопрос таков ,как сделать так,чтобы:
Числа в список не включались, то есть:
345 - это число, а w34r - это уже слово, его включать

Задание:"Дан текст, состоящий из строк. Каждая строка состоит из слов, разделенных пробелами.
Получить неповторяющийся список слов нечетной длины".




Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
unit unit9;
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls,LCLType, Graphics, Dialogs, StdCtrls,LCLProc,LazUTF8;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    ButtonRunT: TButton;
    Label1: TLabel;
    Label2: TLabel;
    MemoRead: TMemo;
    Memo: TMemo;
    procedure ButtonRunTClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.ButtonRunTClick(Sender: TObject);
var
 i,h : integer;
 List1, listStr :TStringList;
begin
 memo.Clear;
 h:=0;
 list1 := TStringList.create;
 listStr := TStringList.create;
 list1.Delimiter :=' ';
 begin
         list1.Sorted := true;
         list1.Duplicates := dupIgnore;
      end;
  for i := 0 to memoRead.Lines.Count - 1 do
 begin
 listStr.DelimitedText := memoRead.Lines[i];
 list1.AddStrings(listStr);
 end;
 memo.Lines.add('Сформированный список:');
    for i := 0 to List1.Count - 1 do
 if UTF8length(list1[i]) mod 2<>0 then
 begin
 memo.Lines.add(list1[i]);
  h:=h+1;
 end;
 if h=0 then memo.Lines.add('В списке нет четныx слов');
end;
 
 
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.06.2018, 16:02
Ответы с готовыми решениями:

Задача на удаление слов нечетной длины
Задача: Напишите программу, которая удаляет из строки символов каждое слово нечетной длины. Слова...

Подсчитать количество слов нечетной длины в строке
помогите пожалуйста! зделал задание на подсчёт всех слов, а вот на непарные не могу додумать как...

Подсчитать, сколько в строке слов нечетной длины
Подсчитать, сколько в строке слов нечетной длины. Программу написал, но не работает, что исправить...

Напечатать все центральные буквы слов нечетной длины
заданы м строк символов которые вводятся с клавиатуры напечатать все центральные буквы слов...

2
5786 / 4528 / 1431
Регистрация: 14.04.2014
Сообщений: 20,157
Записей в блоге: 20
26.06.2018, 16:32 2
программа должна выглядеть так в переводе на нерусский:

цикл для каждой строки
begin
разбить_строку_на_слова()
цикл для каждого слова
begin
если начинается не на цифру, то добавить в список слов
end;
end;

остается только написать процедуру
procedure разбить_строку_на_слова();
0
Модератор
9267 / 6045 / 2380
Регистрация: 21.01.2014
Сообщений: 25,812
Записей в блоге: 3
26.06.2018, 16:48 3
Larento, а почему Вы предоставляете код для Лазаруса? Вы уж как-нибудь определитесь, что Вам надо, какую среду...
0
26.06.2018, 16:48
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.06.2018, 16:48
Помогаю со студенческими работами здесь

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

Напечатать все слова, удалив среднюю букву у слов нечетной длины.
1)Текст задан строкой var St: string; Напечатать все слова, удалив среднюю букву у слов нечетной...

Преобразовать данную строку, удалив из слов нечетной длины среднюю букву
Преобразовать данную строку, удалив из слов нечетной длины среднюю букву.

Напечатать предложение после удаления средней буквы для слов нечётной длины
Пожалуйста, помогите написать програмку: Напечатать предложение после удаления средней буквы для...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru