Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
2 / 2 / 0
Регистрация: 24.12.2010
Сообщений: 96
1

задача со строками

06.04.2013, 17:38. Показов 1288. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Задан Текст, состоящий из слов, записанный через пробелы или запятые. Длина текста не больше 255 символов. В тексте могут быть использованы любые символы. Словом считать последовательность символов , не содержащий пробел. Перенести на новую строку из исходной строки слова, являющиеся записью числа. Найти сумму отрицательных чисел(цифровых слов) и количество положительных чисел. Введенный текст вывести на экран до и после преобразования
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
06.04.2013, 17:38
Ответы с готовыми решениями:

Задача со строками
Доброго всем времени суток !!! Люди помогите пожалуйста написать прогу на паскале. Нужно следующее: Слова в строке отделены пробелами....

Задача со строками
Полный текст условия задачи: Дана последовательность, содержащая от 2 до 30 слов, в каждом из которых от 2 до 10 латинских...

Задача со строками
Помогите, если знаете 1. В строке jhg23v18jY1 не трогая буквы, перставить цифры в обратном порядке. Должно получиться так: jhg18v13jY2 ...

1
30 / 30 / 19
Регистрация: 08.06.2010
Сообщений: 63
07.04.2013, 13:41 2
Лучший ответ Сообщение было отмечено Nelo-Vergil как решение

Решение

Наглядный пример индусского кода:

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
var
  s, f, d: string;
  i, n, p, k, e: integer;
 
begin
  readln(s); i:=1; n:=0; p:=0; f:='';
  while i <= length(s) do begin
    if (i = 1) or (s[i] = ' ') or (s[i] = '-') then begin
      d:='';
      if s[i]=' ' then inc(i);
      while (s[i] in ['0'..'9']) or (s[i] = '-') do begin
        d:=d+s[i];
        inc(i);
      end;
      if (s[i] = ' ') or (i > length(s)) then begin
        f:=f+d+' ';
        if pos('-', d) > 0 then begin
          val(d, k, e); n:=n+k;
        end else inc(p);
      end;
    end;
    if s[i] <> ' ' then inc(i);
  end;
  writeln(f);
  writeln('Сумма ', n, #10#13'Кол-во ', p);
end.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
07.04.2013, 13:41
Помогаю со студенческими работами здесь

задача с файлом и строками
У нас есть файл txt с 10 сроками.Нам нужно другой файл сохранить эти сроки,но отсортировав их по количеству букв в них!От меньшего к...

задача со строками в паскали. 2 строки в 3ю
Ввести 2 строки. сформировать третью строку в которую записать все символы первой строки которых нет во второй

Задача на тему работа со строками
Если в строке цифр больше, чем латинских букв, заменить все цифры знаком '+'. В противном случае заменить все латинские буквы знаком '-'....

Задача со строками. решение через пробел
суть задачи: дано предложение. каждое слово в предложении взять в кавычки. если слово одно-вывести соответствующее предложение. я знаю...

Задача по со строками. Найти во входной строке самую внутреннюю пару скобок {...} и переписать в выходную строку, содержащиеся между ними символы
Найти во входной строке самую внутреннюю пару скобок {...} и переписать в выходную строку содержащиеся между ними символы. Во входной...


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

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

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Новые блоги и статьи
Неблокируемый стек в C++26: реализуем простой сборщик мусора
stackOverflow 02.03.2025
Многопоточные приложения требуют надежных и производительных структур данных, способных эффективно работать в условиях конкурентного доступа. Неблокируемые структуры данных представляют собой особый. . .
Шаблон REQ/REP в ZeroMQ: сверхбыстрый обмен сообщениями в C++ и Python
stackOverflow 02.03.2025
Построение высоконагруженных распределенных систем требует надежного и производительного механизма обмена сообщениями. ZeroMQ выделяется среди прочих решений своей невероятной скоростью работы и. . .
Нестандартные приемы работы с итераторами в C++
stackOverflow 02.03.2025
Итераторы - один из краеугольных камней C++, предоставляющий универсальный механизм обхода и манипуляции данными в контейнерах. Появившись как замена небезопасным указателям, они эволюционировали от. . .
Лексический анализ и регулярные выражения в C++26
stackOverflow 02.03.2025
Лексический анализ - ядро любого компилятора и инструмента обработки текста. Каждый программист сталкивается с задачами парсинга строк, обработки файлов конфигурации или анализа пользовательского. . .
Подробно о std::mdspan в C++23
stackOverflow 02.03.2025
Работа с многомерными массивами данных традиционно была одной из сложных задач в C++. Программистам приходилось создавать собственные абстракции или использовать сторонние библиотеки для эффективной. . .
Колмогоровская сложность в C++: Путь к совершенному коду
stackOverflow 02.03.2025
Абстрактная математическая теория Колмогорова стала мощным средством оценки и улучшения программного кода. Сложность алгоритма - не только в его вычислительной эффективности, но и в том, насколько. . .
Изменения в C# 14
stackOverflow 02.03.2025
Одно из самых значимых изменений в C# 14 - поддержка коллекционных выражений, которые позволяют создавать и инициализировать коллекции с помощью нового лаконичного синтаксиса. Это нововведение. . .
Разработка кроссплатформен­­­­ного мобильного приложения для iOS/Android на C++
bytestream 02.03.2025
C++ как язык программирования высокого уровня с прямым доступом к аппаратным ресурсам позволяет создавать приложения, работающие одинаково быстро как на iOS, так и на Android устройствах. Ни для кого. . .
Аутентификация/авторизация на Golang
bytestream 02.03.2025
Go предлагает множество возможностей для создания надежных систем аутентификации. Встроенные криптографические пакеты, высокая производительность и простота параллельной обработки запросов делают его. . .
Нововведения TypeScript 5.8
bytestream 02.03.2025
TypeScript 5. 8 приносит много возможностей и оптимизаций, которые существенно расширяют границы типобезопасного программирования на JavaScript. Эта версия включает ряд значительных улучшений в работе. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru