Исключение всех цифр в строке

@morgans · Регистрация: 24.05.2011

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

Всем привет, нужно на 1 курс написать программу на Pascal Free "Исключение всех цифр в строке".Помогите кто сможет, только не сильно заумными способами, повторяю что я на 1 курсе, нужно написать как можно проще.Заранее спасибо всем, буду учить по тихоньку, надеюсь в будущем буду тоже кому то помогать.

@Puporev · 24.05.2011, 21:21

Pascal

1 2	for i:=length(s) downto 1 do if s[i] in ['0'..'9'] then delete(s,i,1);

@morgans · 24.05.2011, 21:25 **[ТС]**

А можно подробнее , а то я новичек в этом деле.Прошу извинения.

@Puporev · 24.05.2011, 21:27

Найди любую программу на строки, спиши начало(объявление переменных, ввод строки), потом вставь это, и спиши вывод. Надо же хоть чуть учиться.

@morgans · 24.05.2011, 21:34 **[ТС]**

Я пытаюсь, вот так правильно ?

Pascal

program morgans;
uses Crt;
var  Word1: string;
Numb: integer;
begin
   ClrScr;
   Writeln(’ Введите рядок’); 
   Readln(word1);
    for i:=length(s) downto 1 do
    if s[i] in ['0'..'9'] then delete(s,i,1);
    Delete(word1, 1, Numb)
   end;
   Writeln(’ Удаленные цифры’);
   Writeln(word1)
end.

@Puporev · 24.05.2011, 21:38

Ну, при отключенном мозге, вполне.

Pascal

program morgans;
uses Crt;
var Word1:string;
    i:byte;
begin
ClrScr;
Writeln('Введите рядок');
Readln(word1);
for i:=length(Word1) downto 1 do
if Word1[i] in ['0'..'9'] then delete(Word1,i,1);
Writeln(' Удаленные цифры');
Writeln(word1);
readln
end.

@morgans · 24.05.2011, 21:45 **[ТС]**

Спасибо огромное.Даю слово что в будущем буду учить !

@morgans 0 / 0 / 0 Регистрация: 24.05.2011 Сообщений: 9
		1
	Исключение всех цифр в строке 24.05.2011, 21:13. Показов 796. Ответов 6 Метки нет (Все метки) Всем привет, нужно на 1 курс написать программу на Pascal Free "Исключение всех цифр в строке".Помогите кто сможет, только не сильно заумными способами, повторяю что я на 1 курсе, нужно написать как можно проще.Заранее спасибо всем, буду учить по тихоньку, надеюсь в будущем буду тоже кому то помогать. 0

@morgans 0 / 0 / 0 Регистрация: 24.05.2011 Сообщений: 9
	24.05.2011, 21:25 [ТС]	3
	А можно подробнее , а то я новичек в этом деле.Прошу извинения. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	24.05.2011, 21:27	4
	Найди любую программу на строки, спиши начало(объявление переменных, ввод строки), потом вставь это, и спиши вывод. Надо же хоть чуть учиться. 0

@morgans 0 / 0 / 0 Регистрация: 24.05.2011 Сообщений: 9
	24.05.2011, 21:45 [ТС]	7
	Спасибо огромное.Даю слово что в будущем буду учить ! 0