Помогите с текстовой прогой

[Валерв]

Народ спасайте, не пойму как это написать в паскале(
Разработать программу, которая в текстовой строке заменяет любое количество пробелов, идущих подряд на один пробел и переводит все большие буквы, кроме первой, в маленькие, а цифры удаляет. (например: ‘Я1CA Bk3льK1De 0100fk0 cccc’=’Яса bkльk1de fk сcc’).
Указания: начальную строку вводить с клавиатуры; полученную строку выводить под первоначальной строкой.

[Simply-Art]

var s1,s2:string;
i:integer;
begin
readln(s1);
for i = 1 to length(s1)
begin
if ORD(s1[i])>1 and ORD(s1[i])<10 // коды цифр не помню, посмотри CHR('0')
then else s2:=s2+s1[i];
if i<length(s1) then 
if s1[i]=' ' and s1[i+1]=' ' then 
if s1[i-1]<>' ' then s2:=s2+' ';
// остальное лень придумывать, да и паскаля под рукой нет

end;
writeln(s2);
end.

[Serge_Bliznykov]

Simply-Art, ужасно!

например,

if ORD(s1[i])>1 and ORD(s1[i])<10 // коды цифр не помню, посмотри CHR('0')

простите, а если Вы не помните коды цифр, то что Вам мешает написать:

if (ORD(s1[i])>=ord('0')) and (ORD(s1[i])<=ord('9')) then

или, ещё проще

if (s1[i]>='0') and (s1[i]<='9') then

или даже так:

if s1[i] in ['0'..'9'] then

p.s. и в логическом выражении, если условий более одного, то каждое условие надо брать в скобки, иначе последствия будут плачевны.

Кроме того, а с чёго Вы решили, что автору топика вообще нужен Паскаль?!
Интуиция?!

[Аватар]

Маленький такой офтопчик

не пойму как это написать в паскале

Интуиция, она такая

[Simply-Art]

Сообщение от Serge_Bliznykov

Simply-Art, ужасно!
Кроме того, а с чёго Вы решили, что автору топика вообще нужен Паскаль?!
Интуиция?!

Про паскаль ответили уже. Ну а на счет ужасно, так я что, должен был идеал выкладывать? Так сказать помог, как считал нужным. Если бы автор выложил свои наработки, то был больше бы стимул. Не считаю что я не помог, я старался, тратил время

[Serge_Bliznykov]

Ну а на счет ужасно, так я что, должен был идеал выкладывать?

переменная s2 не иницилизирована.
проверка на цифры и близко не работает.
цикл for написан с двумя синтаксическими ошибками (в паскале присвоение это := и нет ключевого слова "do")
условие проверки на пробелы написано с ошибкой (нет скобок для условий)
ну и алгоритм удаления повторяющихся пробелом сам по себе неверный.

Не считаю что я не помог, я старался, тратил время

"здесь мерилом работы считают усталость..."
ну, ну..
ладно, будем считать, что помогли и даже очень сильно!!
на ошибках же тоже учатся!


p.s. про Паскаль автор топика дописал позже, в начале этого не было.
я исходный пост прочитал, а перечитывать не стал. мой косяк. признаю!


p.p.s. Simply-Art, не обижайтесь, ничего личного!
не флейма ради, а ради истины...

[Dvoishnik]

так можно удалить цифры

for i:=1 to length(s) do
	if (s[i] in ['0'..'9']) and (s[i]<>'')  then
		begin
		 delete (s,i,1);
		 i:=i-1;
		end;

[Aleksandr H.]

(например: ‘Я1CA Bk3льK1De 0100fk0 cccc’=’Яса bkльk1de fk сcc’)

ето опечатка, или так должно быть?

[Dvoishnik]

Сообщение от Aleksandr H.

(например: ‘Я1CA Bk3льK1De 0100fk0 cccc’=’Яса bkльk1de fk сcc’)

ето опечатка, или так должно быть?

а что не так??
так можно заменить большие на меленькие

for i:=2 to length(s) do		
	case ORD (s[i]) of 
	   65: s[i]:='a';
	   66: s[i]:='b';
           ..................
           90:s[i]:='z';
	end;

если кто знает как это проще сделать расскажите дураку.

[Dvoishnik]

Сообщение от Aleksandr H.

(например: ‘Я1CA Bk3льK1De 0100fk0 cccc’=’Яса bkльk1de fk сcc’)

ето опечатка, или так должно быть?

все понял простите