Есть ответ 👍

Дан символьный файл f.группы символов,разделенные пробелами(одним или несколькими) и не содержащие пробелов внутри себя,будем называть словами.удалить из файла все однобуквенные слова и лишние пробелы.результат записать в файл g.

300
500
Посмотреть ответы 3

Ответы на вопрос:


Function posblank(s: string; cursor: integer): integer; {возвращает позицию первого пробельного символа в строке s,   начиная с позиции, указанной cursor. если такого символа нет,   возвращает 0.} var   n: integer; begin   n : = length(s);   while (s[cursor] < > ' ') and (cursor < n) do cursor : = cursor + 1;   if cursor = n then       if s[cursor] = ' ' then posblank : = n else posblank : = 0   else       posblank : = cursor end; function posnonblank(s: string; cursor: integer): integer; {возвращает позицию первого непробельного символа в строке s,   начиная с позиции, указанной cursor. если такого символа нет,   возвращает 0.} var   n: integer; begin   n : = length(s);   while (s[cursor] = ' ') and (cursor < n) do cursor : = cursor + 1;   if cursor = n then       if s[cursor] = ' ' then posnonblank : = 0 else posnonblank : = n   else       posnonblank : = cursor end; procedure getword(s: string; var cursor: integer; var wd: string); {процедура помещает в wd очередное слово из строки s   начало слова указано в cursor, после завершения процедуры   cursor будет указывать на первый пробельный символ,   следующий за найденным словом. лидирующие и хвостовые   пробельные символы усекаются. если слово не найдено, то   в wd помещается пустая строка} var   n, ibegin: integer; begin   n : = length(s);   if n> 0 then       begin       cursor : = posnonblank(s, cursor);       if cursor > 0 then       begin           ibegin : = cursor;           cursor : = posblank(s, cursor);           if cursor > 0 then wd : = copy(s, ibegin, cursor - ibegin)           else wd : = copy(s, ibegin, n - ibegin + 1)       end       else           wd : = ''       end   else       begin       wd: ='';       cursor: =0       end end; var   c, cc, w: string;   ic: integer;   fin, fout: text; begin   assign(fin, 'input.txt');   reset(fin);   assign(fout, 'output.txt');   rewrite(fout);   while not eof(fin) do   begin       ic : = 1;       cc : = '';       readln(fin, c);       while ic > 0 do       begin           getword(c, ic, w);           if w < > '' then cc : = cc + ' ' + w       end;       cc : = copy(cc, 2, length(cc) - 1);       writeln(fout, cc)   end;   close(fin);   close(fout); end.

Program gt; var  f,g: text; s,b: string; l,i: integer; begin assign(f,'c: \input.txt'); reset(f); assign(g,'c: \output.txt'); rewrite(g); while not eof(f)do begin readln(f,s); l: =length(s); b: =''; if (s[2]< > ' ') then b: =s[1]; i: =1; while i< l-1 do begin i: =i+1; if (s[i-1]=' ') and (s[i]< > ' ') and (s[i+1]=' ') then i: =i+1 else b: =b+s[i]; end; if (s[l-1]< > ' ') then b: =b+s[l]; writeln(g,b); end; close(f); close(g); end.
GuliaNias
4,7(26 оценок)

ответ: часть гипертекстового документа, ссылающаяся на элемент в этом документе (команда, текст, изображение, сноска) или на другой объект (файл (документ), каталог, приложение), расположенный на локальном диске или в компьютерной сети, либо на элементы этого объекта.

Объяснение:

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.
  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS