Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Массивы 4x5. Программа https://www.cyberforum.ru/ pascal/ thread2771548.html
Дан массив из 4х5 целых чисел. Напишите программу вычисления суммы элементов массива, среди двузначных чисел, у которых первая цифра кратна второй.
Написать программу "Магия Копперфильда" Pascal
Всемирно известный маг Дэвид Копперфильд любит показывать следующий трюк. Квадрат из N столбцов и N строк, в каждой клетке которого находится какая-нибудь картинка, появляется на экране телевизора....
Из массива удалить элементы, у которых первая цифра больше второй Pascal
Программа создает одномерный динамический массив заданной размерности, заполняет его случайными числами от 0 до 50 и выводит на экран. Затем в массиве удаляются все элементы, у которых первая цифра...
Pascal Из двух матриц сформировать последовательность по заданному правилу Даны две целочисленные квадратные матрицы порядка 6 Найти последовательность из нулей и единиц b1,…,b6 такую, что bi =1, если все элементы i-й строки первой и второй матриц отрицательны и min i-ой... https://www.cyberforum.ru/ pascal/ thread2770828.html
Pascal Проблема с CharRange и IntegerRange https://www.cyberforum.ru/ pascal/ thread2770692.html
Всем привет! Значит сел я делать дз по ОАИП и открыл для себя новые типы в паскале: CharRange и IntegeRange Мне вообщем-то просто переменной name, secname нужно присвоить определенные значиния с...
Pascal Определить количество двузначных чисел в массиве, у которых вторая цифра кратна первой
Дан массив из 5х3 целых чисел. Напишите программу вычисления количества элементов массива, среди двузначных чисел, у которых вторая цифра кратна первой.
Pascal Программа на строки
Дана строка русских слов разделенных пробелом в конце стоит точка. Необходимо найти процентное соотношение гласных и согласных букв в каждом слове предшествующему самому длинному последнему по...
Pascal Дописать в конец файла среднее арифметическое его чётных чисел Создать типизированный файл, элементами которого являются целые числа от 0 до 100 в заданном количестве. Создать новый файл в соответствии с заданием, а затем открыть его и вывести все элементы. ... https://www.cyberforum.ru/ pascal/ thread2770548.html
Pascal Определить сколько полных оборотов сделает точка вокруг (0,0) пройдя по траектории https://www.cyberforum.ru/ pascal/ thread2770534.html
Вводится последовательность точек на координатной плоскости, ((0,0) признак конца последовательности). Траектория  блуждания точки из (1,0).  Определить сколько полных оборотов сделает точка вокруг...
Pascal Переставить чётные цифры в числе местами На вход программе подается натуральное число. Нужно переставить чётные цифры в обратном порядке. Например на входе 12345678 на выходе 18365472. https://www.cyberforum.ru/ pascal/ thread2770529.html
Pascal Сформировать вектор из максимумов соответствующих элементов двух исходных векторов https://www.cyberforum.ru/ pascal/ thread2770164.html
Заданы два вектора X = { xi} и Y = { yi}, i = 1 / n. Написать программу формирования третьего вектора Z = { zi }, каждый элемент которого zi = max ( xi, yi). Помогите пожалуйста.
Pascal Как получить строку из массива? const Rims: array of string = ('M', 'CM', 'D', 'CD', 'C', 'XC', 'L', 'XL', 'X', 'IX', 'V', 'IV', 'I'); Arab: array of integer = (1000, 900, 500, 400, 100, 90, 50, 40, 10, 9, 5, 4, 1); var ... https://www.cyberforum.ru/ pascal/ thread2770051.html
Модератор
8399 / 4152 / 2872
Регистрация: 17.08.2012
Сообщений: 13,238
23.01.2021, 20:25 0

Строка: Найти наиболее удаленную друг от друга пару слов в предложении

23.01.2021, 20:25. Просмотров 1703. Ответов 14
Метки (Все метки)

Ответ


mr-Crocodile, да, лучше в этой.

MCrezo, посмотрите Ваше первое сообщение в этой теме. Сами же написали, что
Цитата Сообщение от MCrezo Посмотреть сообщение
Расстояние между двумя словами равной длины
Но вот в этой теме: Найти пару наиболее далеко удаленных слов заданной длины просите уже между словами какой попало длины.

В задании явно не указано, что нужно найти расстояние между словами. Собственно, расстояние это и не нужно совсем. Иными словами, для слов какой попало длины нужно просто вывести первое и последнее слово.

На основе моей программы из упомянутой темы:
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
var
  s: string;
  i, pmin, nmin, pmax, nmax: integer;
begin
  writeln('Введите строку из слов, разделённых пробелами:');
  readln(s);
  s := ' ' + s + ' ';
  pmin := 0;
  nmin := 0;
  pmax := 0;
  nmax := 0;
  for i := 2 to length(s) - 1 do
    if (s[i-1] = ' ') and (s[i] <> ' ') then
      if pmin = 0 then pmin := i
      else pmax := i
    else
      if (s[i] <> ' ') and (s[i+1] = ' ') then
        if nmin = 0 then nmin := i - pmin + 1
        else nmax := i - pmax + 1;
  if pmin + pmax = 0 then write('Строка не содержит слов')
  else
    if pmax = 0 then write('В строке только одно слово')
    else
      begin
        writeln('Наиболее удалённые слова:');
        write('"', copy(s, pmin, nmin), '" и "', copy(s, pmax, nmax), '"')
      end;
  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
27
var
  s: string;
  p1, n1, p2, n2: integer;
begin
  writeln('Введите строку из слов, разделённых пробелами:');
  readln(s);
  s := s + ' ';
  p1 := 1;
  while (s[p1] = ' ') and (p1 < length(s)) do inc(p1);
  if p1 = length(s) then writeln('Строка не содержит слов')
  else
    begin
      n1 := p1;
      while s[n1+1] <> ' ' do inc(n1);
      n2 := length(s);
      while s[n2] = ' ' do dec(n2);
      if n2 = n1 then writeln('В строке только одно слово')
      else
        begin
          p2 := n2;
          while s[p2-1] <> ' ' do dec(p2);
          writeln('Наиболее удалённые слова:');
          write('"', copy(s, p1, n1 - p1 + 1), '" и "', copy(s, p2, n2 - p2 + 1), '"')
        end
    end;
  readln
end.
Если всё же нужно вывести расстояние, то определитесь, между чем и чем это самое расстояние: между началами слов или между концом первого слова и началом последнего. Замечание: вряд ли это расстояние измеряется в буквах, скорее всего, оно измеряется в символах.

Добавлено через 1 час 10 минут
Похоже, что я понял задание совершенно неправильно. Под расстоянием между словами в данном задании понимается не пространственное положение слов, а их степень различия. Например, расстояние между словами "слово" и "слово" равно 0, а между словами "слово" и "слова" расстояние равно 1 (отличаются на 1 букву).

MCrezo,

Возьмём два слова, "слово" и "волос". Эти два слова являются анаграммой, то есть, содержат равные количества одинаковых букв (по одному "с", "л", "в" и по два "о"). Чему равно расстояние между указанными словами, нулю или пяти?

Если пяти, то нужно считать количество различий в одинаковых позициях. Тогда как определять расстояние между словами различной длины? Дополнять короткое слово пробелами? Если так, то куда вставлять пробелы: перед первой буквой или после последней? Или обрезать длинное слово? Или считать, что расстояние между словами различной длины равно нулю?

Если расстояние между словами "слово" и "волос" равно нулю, то нужно вычислять мощность произведения множеств. В этом случае ещё один вопрос: имеется ввиду конечное счётное множество, или конечное счётное мультимножество? Например, чему равно расстояние между словами "класс" и "ласка", нулю или единице? (различие в количестве букв "с" и "а").

И ещё один вопрос. Строчные и прописные буквы считать различными или одинаковыми?

Вернуться к обсуждению:
Строка: Найти наиболее удаленную друг от друга пару слов в предложении
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.01.2021, 20:25

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

Определить пару наиболее удаленных друг от друга окружностей
помогите решить задачу. На плоскости задано n произвольно расположенных окружностей. Определить...

Определить пару наиболее удаленный друг от друга точек.
четыре точки заданы координатами: А(4,8:-3) В(-6,5:1,2) С(-3,7:-4,5) D(7,8:2). Определить пару...

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

Определить пару наиболее удаленных друг от друга точек
Четыре точки заданны координатами А(4,8,2) ; В(-6,5,I.2) ; С(-3,7,-4.5) ; D(7,8,2). Определить...

В заданном предложении найти пару наиболее далеко удаленных слов заданной длины
Расстояние между двумя словами равной длины – это количество позиций, в которых различаются эти...

В заданном предложении найти пару наиболее далеко удаленных слов заданной длины.
Помогите решить задачу на С++.

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