23.03.2019, 20:43 [+3 UTC]
в нашей команде: 3 482 чел. | участники онлайн: 11 (рекорд: 21)

РАССЫЛКИ ПОРТАЛА RFPRO.RU

Лучшие эксперты в разделе

puporev
Статус: Профессионал
Рейтинг: 124
• повысить рейтинг »
Степанов Иван /REDDS
Статус: 4-й класс
Рейтинг: 27
• повысить рейтинг »
Асмик Гаряка
Статус: Советник
Рейтинг: 0
• повысить рейтинг »

• Pascal / Delphi / Lazarus

Номер выпуска:1755
Дата выхода:08.01.2019, 19:15
Администратор рассылки:Зенченко Константин Николаевич (Старший модератор)
Подписчиков / экспертов:32 / 36
Вопросов / ответов:1 / 1

Консультация # 194325: Здравствуйте! У меня возникли сложности с таким вопросом: Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных латинских букв; между соседними словами - не менее одного пробела, за последним словом - точка. Напечатать те слова последовательности, которые отличны от последнего слова и удовлетворяют следую...

Консультация # 194325:

Здравствуйте! У меня возникли сложности с таким вопросом:
Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных латинских букв; между соседними словами - не менее одного пробела, за последним словом - точка. Напечатать те слова последовательности, которые отличны от последнего слова и удовлетворяют следующему свойству:
- слово симметрично;
-каждая буква входит в слово не менее 2-х раз;

И еще одно пожалуйста
Дан файл товар, содержащий сведения об экспортируемых товарах: указывается наименование товара, страна, импортирующая товар, и объем поставляемой партии в штуках. Составить список стран, в которые экспортируется данный товар, и общий объем этого экспорта.

спасибо заранее



Дата отправки: 29.12.2018, 18:56
Вопрос задал: 01goch01 (Посетитель)
Всего ответов: 1
Страница онлайн-консультации »


Консультирует Зенченко Константин Николаевич (Старший модератор):

Здравствуйте, 01goch01!

Код (Pascal) :: выделить код
uses crt;
const n=10;
var a:string;
function inpKey(b:integer):char;
  var a:char;
  begin
    repeat a:=ReadKey;
    until a in[' ','.','a'..'z'];
    if(a='.')and(b<1)then a:=' ';
    write(a);inpKey:=a;
  end;
procedure b(var c:string;z:integer);
  var d:char;e,f:string;i,j:integer;
  begin
    e:='';
    {фильтр пробелов}
    repeat d:=inpKey(z);
    until d in ['.','a'..'z'];
    {фильтр символов}
    while(d in ['a'..'z'])and(length(e)<n)do
      begin
        e:=e+d;d:=InpKey(z);
        if(d='.')and(z<1)then d:=' ';
      end;
    {пробел уходим в рекурсию}
    if d=' 'then b(c,z+1);
    {конец ввода}
    if(d='.')and(length(e)>0)then
      begin
        c:=e;
        writeln;
        writeln('Last word: ',c);
        write('Result:');
      end;
    {есть последнее слово}
    if length(c)>0 then
      begin
        {первое условие: отличны от последнего}
        if e<>c then
          begin
            {второе условие:  слово симметрично}
            i:=1;j:=length(e);
            while(i<j)and(e[i]=e[j])do
              begin inc(i);dec(j);end;
            if j<=i then
              begin
                {третье условие: каждая буква входит в слово не менее 2-х раз}
                i:=1;f:=e;
                repeat j:=0;d:=f[1];
                  while(pos(d,f)>0)and(length(f)>0)do
                    begin inc(j);delete(f,pos(d,f),1);end;
                until(j<2)or(f='');
                {если счетчик больше - выводим}
                if j>2 then write(' ',e);
              end;
          end;
      end else if length(e)>0 then
        begin
          c:=e;
          writeln;
          writeln('Last word: ',c);
          write('Result:');
        end;;
  end;
  begin
    write('Enter string:');
    b(a,0);
  end.


Это задание трудно решать с помощью строк, но решается просто, с помощью рекурсии.
Удачи!

Консультировал: Зенченко Константин Николаевич (Старший модератор)
Дата отправки: 07.01.2019, 17:58
Рейтинг ответа:

НЕ одобряю 0 одобряю!


Оценить выпуск | Задать вопрос экспертам

главная страница  |  стать участником  |  получить консультацию
техническая поддержка

Дорогой читатель!
Команда портала RFPRO.RU благодарит Вас за то, что Вы пользуетесь нашими услугами. Вы только что прочли очередной выпуск рассылки. Мы старались. Пожалуйста, оцените его. Если совет помог Вам, если Вам понравился ответ, Вы можете поблагодарить автора - для этого в каждом ответе есть специальные ссылки. Вы можете оставить отзыв о работе портале. Нам очень важно знать Ваше мнение. Вы можете поближе познакомиться с жизнью портала, посетив наш форум, почитав журнал, который издают наши эксперты. Если у Вас есть желание помочь людям, поделиться своими знаниями, Вы можете зарегистрироваться экспертом. Заходите - у нас интересно!
МЫ РАБОТАЕМ ДЛЯ ВАС!

Яндекс Rambler's Top100

главная страница | поддержка | задать вопрос

Время генерирования страницы: 0.12263 сек.

© 2001-2019, Портал RFPRO.RU, Россия
Калашников О.А.  |  Гладенюк А.Г.
Версия системы: 7.73 от 23.03.2019
Версия JS: 1.33 | Версия CSS: 3.35