Помогите решить задачу на Паскале - есть ответ

iluxa1810, 212 просмотров

-2

Надо удалить все цифры из текста .Я не могу понять ,как сделать ,чтоб символ из строки сравнился со всеми ASCII кодами цифер .
Вот недоделанный алгоритм программы http://ipicture.ru/Gallery/Viewfull/518434.html

Ответы:

Sumerain

простой цикл, проходишься по тексту и сравниваешь каждый символ с '1','2','3' и т.п. и заменяешь на пробел, если равно. всё.

* пример в компиляторе не проверял, набросал с ходу, так что возможны синтаксические ошибки

как вариант такая реализация. Заводим пару буферов buf1,buf2: string; Если текст многострочный то пробегаем по всем строчкам, каждую строку вкладываем в buf1, если же однострочный просто ложим строку в первый буфер. Далее в цикле можно так
for i:= 1 to length(buf1) do
if buf1[i] not in ('0','1'..'9') then buf2:=buf2+buf[i];

Chidori Ami

совмещая твой код и то, что предлагали, можно так:

15 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.