Строки(функция val, нужна ли)

14.05.2010, 23:03. **Показов** 1712. **Ответов** 4

Студворк — интернет-сервис помощи студентам

Вот собственно сабж:
Дана строка символов, состоящая из цифр от 0 до 9 и пробелов.Группы цифр,разделенные пробелами (одним или несколькими) и не содержащие пробелов внутри себя,будем называть числами.Вывести на печать числа принадлежащие сегменту [25,10000].
Мучаюсь уже две недели, проблема с лишними пробелами и функцией val, то не совпадение типов то еще чего... В общем кто сможет помочь, буду благодарен

@STGE · 14.05.2010, 23:17

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
uses crt;
var a,s: string; m: set of char; i: byte; b,c: integer;
begin
clrscr;
a:='';
m:=['0','1','2','3','4','5','6','7','8','9'];
s:='   120    21  30600  567    3';
i:=1;
writeln('исходная строка: ',s,^j);
while i<=length(s) do
begin
while not (s[i] in m) do
inc(i);
while s[i] in m do
begin
a:=a+s[i];
inc(i);
end;
val(a,b,c);
a:='';
if (b>=25) and (b<=10000) then
writeln('число попадающее в диапазон [25;10000] = ',b);
end;
end.

@andrei63 · 14.05.2010, 23:23

а можно пример, попробую помочь

15.05.2010, 00:25

STGE, спасибо большое, на такой быстрый ответ даже не расщитывал

вот я ступил.., респект бро

хотя требуют, чтобы ввод был с клавиатуры...
andrei63, не понял тебя...

@Puporev · 15.05.2010, 08:20

m:=['0','1','2','3','4','5','6','7','8','9']

;
А если 255 чисел будет, тоже все перечислять будем?

Pascal
1
const m=['0'..'9'];

Новые блоги и статьи Все статьи Все блоги /
Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .
1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip

h2o90210

	Строки(функция val, нужна ли) 14.05.2010, 23:03. Показов 1712. Ответов 4 Метки нет (Все метки) Вот собственно сабж: Дана строка символов, состоящая из цифр от 0 до 9 и пробелов.Группы цифр,разделенные пробелами (одним или несколькими) и не содержащие пробелов внутри себя,будем называть числами.Вывести на печать числа принадлежащие сегменту [25,10000]. Мучаюсь уже две недели, проблема с лишними пробелами и функцией val, то не совпадение типов то еще чего... В общем кто сможет помочь, буду благодарен

@andrei63 141 / 135 / 69 Регистрация: 15.12.2009 Сообщений: 343
	14.05.2010, 23:23
	а можно пример, попробую помочь 0

h2o90210
	15.05.2010, 00:25
	STGE, спасибо большое, на такой быстрый ответ даже не расщитывал вот я ступил.., респект бро хотя требуют, чтобы ввод был с клавиатуры... andrei63, не понял тебя...