Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 26.11.2019
Сообщений: 34
1

Напечатать все слова, предварительно оставить в слове только первые вхождения каждой буквы

26.11.2019, 16:19. Просмотров 342. Ответов 4

Напечатать все слова, предварительно оставить в слове только первые вхождения каждой буквы;
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.11.2019, 16:19
Ответы с готовыми решениями:

Строчные переменные
Заполнить строчную переменную цифрами с помощью генератора случайных значений. В конец срочного...

Дана строка. Преобразовать в ней все строчные буквы (как латинские, так и русские) в прописные, а прописные — в строчные
Дана строка. Преобразовать в ней все строчные буквы (как латинские, так и русские) в прописные, а...

Дана строка. Преобразовать в ней все строчные буквы в прописные, а прописные - в строчные
Помогите решить.....Дана строка. Преобразовать в ней все строчные буквы (как латинские, так и...

Строчные
Разработайте программу, которая считывает с клавиатуры Ф.И.О. и заменяет строчные буквы на...

4
Эксперт Pascal/Delphi
6272 / 4228 / 4613
Регистрация: 05.06.2014
Сообщений: 20,806
26.11.2019, 16:23 2
Оставить в слове только первые вхождения каждой буквы
1
0 / 0 / 0
Регистрация: 26.11.2019
Сообщений: 34
26.11.2019, 16:36  [ТС] 3
Напечатать все слова, предварительно оставить в слове только первые вхождения каждой буквы(слова должны быть в одной строчке! не отдельно!)
0
0 / 0 / 0
Регистрация: 26.11.2019
Сообщений: 34
26.11.2019, 16:47  [ТС] 4
Мне нужно чтобы слова писались в одной строчке и там всё делалось! А не в каждой строке новое слово и тогда уже обробка слов!
0
Модератор
7920 / 3974 / 2788
Регистрация: 17.08.2012
Сообщений: 12,695
27.11.2019, 01:54 5
Тогда так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var
  s: string;
  i: integer;
  c: char;
 
begin
  writeln('Enter string:');
  readln(s);
  c := ' ';
  s := c + s + c;
  i := 1;
  while i < length(s) do
    if (c <> ' ') and (c = s[i]) then delete(s, i, 1)
    else
      begin
        if (s[i - 1] = ' ') xor (s[i] = ' ') then c := s[i];
        inc(i)
      end;
  s := copy(s, 2, length(s) - 2);
  writeln('Result:');
  write(s);
  readln
end.
Если разделители слов не только пробелы, то так:
Pascal
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
const
  d: set of char = [' ', ',', '.', ':', ';', '!', '?']; //разделители слов
 
var
  s: string;
  i: integer;
  c: char;
 
begin
  writeln('Enter string:');
  readln(s);
  c := ' ';
  s := c + s + c;
  i := 1;
  while i < length(s) do
    if not (c in d) and (c = s[i]) then delete(s, i, 1)
    else
      begin
        if (s[i - 1] in d) xor (s[i] in d) then c := s[i];
        inc(i)
      end;
  s := copy(s, 2, length(s) - 2);
  writeln('Result:');
  write(s);
  readln
end.
Если не нравится множество разделителей, отредактируйте.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.11.2019, 01:54

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

Строчные величины
В строке символов определить символы, которые встречаются по одному разу и напечатать номера их...

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

замена прописных символов на строчные
не понимаю тем со строками по паскалю :scratch: ( плиз помогите с задачей: Напишите программу,...

В последовательности букв преобразовать строчные буквы в прописные
В последовательности латинских букв, заканчивающихся точкой, преобразовать строчные буквы в...


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

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

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