Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме 15-35 тыс рублей в месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 06.10.2015, 19:15   #1
k221
 
Регистрация: 23.11.2013
Сообщений: 3
По умолчанию помогите с комментариями к тексту программы

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

Код:
var
  s1, s2, w: string;
  i, n: Integer;
  s, d: set of char;
begin
  WriteLn('vvedite posledovatelnost slov:');
  ReadLn(s1);
  Write('vvedite dve bykBb|: '); ReadLn(w);
  for i:=Length(w) downto 1 do
  Include(d,w[i]);
  s1:=s1+' ';
  w:='';
  n:=0;
  s:=[];
  for i:=1 to Length(s1) do
    if s1[i]=' ' then
      if (w<>'') then
       begin
        if (s*d=d) then inc(n) else s2:=s2+w+' ';
        w:='';
        s:=[];
      end else
    else
      begin
      w:=w+s1[i];
      Include(s, s1[i]);
    end;
  WriteLn('kolichestvo isklychenb|x slov ',n);
  WriteLn(s2);
  readln;
end.
нужно написать комментарии к тексту программы кому не сложно помогите)

Кросспост

Последний раз редактировалось Аватар; 06.10.2015 в 20:42.
k221 вне форума
Старый 06.10.2015, 19:46   #2
Smitt&Wesson
Старожил
 
Аватар для Smitt&Wesson
 
Регистрация: 31.05.2010
Сообщений: 13,979
По умолчанию

Да, когда-ж вы научитесь оформлять листинги? Вот, у модераторов больше работы нет, как оформлять Ваши высеры. Иногда, даже не код, а его оформление, может подсказать решение, даже если с языками проблема. Я не Паскалист и не Дельфинист, но если код оформлен правильно, могу по логике вложений разобраться.
Пиши пьяным, редактируй трезвым.
Справочник по алгоритмам С++ Builder
Smitt&Wesson вне форума
Закрытая тема
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Расставить прослушиватели трассировки по тексту программы alexander1994 C# (си шарп) 1 19.09.2012 19:46
составить блок-схему по тексту программы Маюха Чайковская Помощь студентам 0 15.06.2011 23:37
Проблема с комментариями в WP LeoN WordPress и другие CMS 0 05.12.2009 18:11
Помогите с комментариями Cyberbest Помощь студентам 1 26.04.2008 15:46
Помогите с комментариями Astor Фриланс 3 23.04.2008 15:09