Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Evese
0 / 0 / 0
Регистрация: 29.09.2018
Сообщений: 20
1

Строковые величины

10.11.2019, 14:32. Просмотров 110. Ответов 3
Метки нет (Все метки)

Вот такая задача,помогите (
\В заданном предложении удалите каждое второе слово, а оставшиеся слова переверните.\
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.11.2019, 14:32
Ответы с готовыми решениями:

Строковые величины
Для каждого из указанных видов текста составить программу по выполнению следующих действий: ...

Строковые величины
Есть некая простейшая многопользовательская операционная система и список зарегистрированных в ней...

3

Puporev
Модератор
57809 / 44042 / 30413
Регистрация: 18.05.2008
Сообщений: 105,303
10.11.2019, 15:24 2
Почти по Паскалевски.
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
uses StrUtils;
procedure TForm1.Button1Click(Sender: TObject);
const rz=[' ',',','.'];//разделители, можно добавить
var str,s,s1:string;
    i,j,k,n:integer;
begin
str:=Edit1.Text;
str:=' '+str+' ';//добавим пробел в начало и в конец для удобства
i:=2; //начнем со 2 символа
n:=0;
while i<=length(str) do //пока не конец
if not(str[i]in rz) and(str[i-1] in rz) then//если не разделитель, а перед ней разделитель
 begin
  inc(n);//новое слово
  j:=i;
  s:='';
  while(j<=length(str))and not(str[j] in rz)do //пока не конец строки и не разделитель
   begin
    s:=s+str[j];//составляем слово
    j:=j+1;//идем вперед
   end;
  delete(str,i,length(s));//удаляем слово
  if odd(n) then
   begin
    s:=reversestring(s);
    insert(s,str,i);
    i:=i+length(s);
   end;
  end
else i:=i+1;//иначе на 1 вперед
str:=trim(str);//удалим начальные и конечные пробелы
Edit2.Text:=str;
end;
0
Evese
0 / 0 / 0
Регистрация: 29.09.2018
Сообщений: 20
10.11.2019, 20:10  [ТС] 3
Можете более конкретно расписать со строки 11 до 17,то немного непонятно что там делается
0
Puporev
Модератор
57809 / 44042 / 30413
Регистрация: 18.05.2008
Сообщений: 105,303
10.11.2019, 20:12 4
Там все расписано.
0
10.11.2019, 20:12
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.11.2019, 20:12

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

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

Или воспользуйтесь поиском по форуму:

4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.