Помощь - Поиск - Пользователи - Календарь
Полная версия: Строковые переменные
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
kamentaru
Задача:Задан массив букв и чисел. Найти произведение всех чисел заданного массива.
Перерыла почти весь поиск. Не знаю как отсортировать буквы и цифры от массива. Помогите решить.
klem4
а)
if s[i] in ['0'..'9'] then begin
val(s[i], x, e);
p := p * x;
end;


+ FAQ : Строки
б) Не сменишь аватар придется тебя забанить.
volvo
Цитата
Задан массив букв и чисел
Как именно задан? Формально вот ЭТО - тоже массив букв и чисел (а не цифр), но при таком определении вышеприведенный код даже не откомпилируется:
Const
arr: array[1 .. 5] of string = (
'a', '16', '-34', 'e', 'm'
);
klem4
Цитата
чисел, а не цифр


Да спросони ошибся, как из дома вышел сразу понял что не то написал ;)

зы аватар уже лучьше smile.gif
мисс_граффити
 val(s[i],x,e);
if e=0 then
p:=p*x

так можно?
klem4
Да можно и как я написал, но и твой и мой варианты годятся только для случая, когда массив задан так, как показал Volvo, а если это просто строка символов, то все будет немного подругому, в общем ждем автора ..
мисс_граффити
а разве твой сочтет, что '16' in ['0'..'9']? а '-34'?
klem4
;) Нет конечно
Просто сегодня мозг отдает пальцам команды печатть бред)
виноват smile.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.