Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
h2o90210
0 / 0 / 0
Регистрация: 11.05.2010
Сообщений: 2
#1

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

14.05.2010, 23:03. Просмотров 1086. Ответов 4
Метки нет (Все метки)

Вот собственно сабж:
Дана строка символов, состоящая из цифр от 0 до 9 и пробелов.Группы цифр,разделенные пробелами (одним или несколькими) и не содержащие пробелов внутри себя,будем называть числами.Вывести на печать числа принадлежащие сегменту [25,10000].
Мучаюсь уже две недели, проблема с лишними пробелами и функцией val, то не совпадение типов то еще чего... В общем кто сможет помочь, буду благодарен
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.05.2010, 23:03
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Строки(функция val, нужна ли) (Pascal):

функция Val - Pascal
программка для перевода из 15ричной системы счисления в 10ричную.помойму чтото не так с функцией val. помогите пожалуйста, как сделать...

не работает val - Pascal
Program x; Var s:string; i:integer; Begin Readln(s); Val(s,i); Writeln(i); end.

Процедура val - Pascal
Возникли проблемы, вообще ничего не получается с этой программой. Нужно что бы программа считала введенное выражение по типу x+y или x-y....

Процедура val работает не так как я хочу - Pascal
У меня есть ввод с клавиатуры f01,f02,f03,f04 формул. Если записывать вместо процедуры val напрямую присвоение переменной формулы в...

Строки, очень нужна помощь - Pascal
В данном тексте удалить все символы, расположенные между скобками(). Скобки тоже исключить. Предлагается, что внутри каждой пары скобок, ...

Нужна помощь - строки в pascal - Pascal
Помогите, пожалуйста бедной девушке-студенки, которая чудом попала на факультет информатики :) Вот задания.... экзамен через 1,5 дня уже -...

4
STGE
770 / 575 / 91
Регистрация: 17.06.2009
Сообщений: 1,188
14.05.2010, 23:17 #2
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.
0
andrei63
141 / 136 / 22
Регистрация: 15.12.2009
Сообщений: 344
14.05.2010, 23:23 #3
а можно пример, попробую помочь
0
h2o90210
0 / 0 / 0
Регистрация: 11.05.2010
Сообщений: 2
15.05.2010, 00:25 #4
STGE, спасибо большое, на такой быстрый ответ даже не расщитывал вот я ступил.., респект бро
хотя требуют, чтобы ввод был с клавиатуры...
andrei63, не понял тебя...
0
Puporev
Модератор
54039 / 41672 / 14751
Регистрация: 18.05.2008
Сообщений: 97,991
15.05.2010, 08:20 #5
m:=['0','1','2','3','4','5','6','7','8','9']
;
А если 255 чисел будет, тоже все перечислять будем?
Pascal
1
const m=['0'..'9'];
0
15.05.2010, 08:20
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.05.2010, 08:20
Привет! Вот еще темы с ответами:

Нужна функция для удаления списка - PascalABC.NET
Помогите. Нужна срочно функция для удаления списка.

Нужна функция UnZip (n: string): System.Drawing.Color - PascalABC.NET
Нужна функция UnZip (n: string): System.Drawing.Color; Например n = '255 0 0' то результат - красный цвет. т.е. n - RGB. НО! Если n=...

Функция Val - MS Access
Всем здравствуйте, Есть символьное поле в таблице с цифравыми значениями длиной 20. Нужно преобразовать данное поле в числовое той же...

Не работает функция val - Delphi
Вообщем не могу понять, почему не работает функции val. Вот код:unit Unit1; interface uses Windows, Messages, SysUtils,...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru