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

Выведите все слова,в которых встречается удвоение буквы

16.05.2019, 00:08. Показов 1137. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
написать программу на Pascal через string.
Введите строку длинною 70 символов. Выведите все слова,в которых встречается удвоение буквы.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.05.2019, 00:08
Ответы с готовыми решениями:

Pascal. Написать программу Змейка через массивы по 2 случаям
Спираль и зигзаг

Написать программу на Pascal (циклы)

Написать программу на Pascal (множества)

Прошу написать программу на Pascal
Очень прошу,напишите мне пожалуйста программу, это на ДПА. За даними, що містяться в таблиці...

1
2373 / 775 / 561
Регистрация: 15.01.2019
Сообщений: 2,394
16.05.2019, 10:46 2
Лучший ответ Сообщение было отмечено Dar0 как решение

Решение

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
program Zadanie105;
const
  albe = 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ';
  enword = '.,;!?    ';
 
var
i,j: integer;  // Промежуточные переменные для организации цикла.
a,x,s: string;  // Промежуточные переменные для преобразования строк.
wrd: string;  // Переменная для хранения найденного слова в виде строки.
wd: boolean;    // Промежуточная переменная регистрирующая нахождение начала числа.
begw: integer;    // Переменная для хранения значения индекса начала слова в строке.
sizew: integer;   // Переменная для хранения значения длины слова в строке.
 
begin
 writeln('Введите строку:');
 readln(a);
 x:= a + ' ';
 for i:= 1 to length(x) do
   begin
     s:= copy(x,i,1);      // Разложение строки на отдельные знаки.
     if (pos(s,albe) <> 0) and  (not wd) then  // Условие распознавания начала слова.
       begin
       begw:= i;      // Получение индекса начала слова в строке.
       wd:= true;
       end;
     if ((pos(s,enword) <> 0) or (i = length(x))) and  (wd) then   // Условие распознавания конца числа.
       begin
         sizew:= i-begw;    //  Получение длины слова в строке.
         wd:= false;
         wrd:= copy(x,begw,sizew); // Слово выбранное из строки.
         for j:= 2 to length(wrd) do
           if copy(wrd,j-1,1) = copy(wrd,j,1) then  // Условие распознавания удвоения знаков в слове.
             begin
             write(wrd,' ');  // Вывод распознанного слова на экран.
             break;
             end;
       end;
   end;
 
  Readln;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.05.2019, 10:46
Помогаю со студенческими работами здесь

Написать программу вычисления объема куба на Pascal
Длина ребра (см)&gt; 9.5 Объем должен быть равен 857.38 куб.см. Желательно я какими то объяснением. ...

Как можно четко изложить эту программу через string?
С клавиатуры вводятся две строки, содержащие некоторые слова. Слова перечислены через запятую....

Написать программу, которая работает так же как и функция count модуля string
Помогите пожалуйста! Нужно написать программу, которая будет работать так же как и функция count,...

Как написать программу через функцию?
#include &lt;stdio.h&gt; int main() { int *a, i; double sum = 0, arithmeticAverage = 0; ...


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

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

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