Vladimir_S

Затрудняюсь. Естественно, прежде, чем выложить, я программу тестировал, и у меня никаких ошибок. Впрочем, файлы я создавал на электронном диске, и адрес был "D:\input.txt". Перед выкладыванием диск я убрал. Попробуйте и Вы прописать полные пути к файлам - вдруг в этом заморочка?
А насчет "галиматьи" - приношу извинения: просто Вы так невнятно сформулировали задание... но если повторяющиеся - тогда да, правильно. И даже остроумно.

Aksinia

Видимо, нет.

Миниатюры

   

Vladimir_S

О, Боже! А что это за система? Какой транслятор? А то у меня, знаете ли, обычный DOS Free Pascal, он такой... без затей.
На всякий случай спрошу: а Вы входной файл не забыли подготовить?

Aksinia

Конечно, все текстовые файлы есть.
Пишу в лазарусе, но, на всякий случай, проверила и в паскале.

Миниатюры

 

Aksinia

Ух-ты! Получилось! Еще раз спасибо! Но если я скажу в чем была ошибка, меня, наверное, побьют.

Aksinia

Можно ли как то преобразовать программу, чтобы удалялись не только восклицательные знаки, но еще и запятые?

Николай_С

"Носите женщин на руках. На шею они сами заберутся!" (С)

Aksinia

Николай, ехидный Вы.

Aksinia

Здравствуйте!
Есть программа, удаляющая лишние восклицательные знаки из строки.(Они считаются лишними, если их подряд больше одного).
Помогите дописать ее так, чтобы она удаляла еще и другие лишние знаки, например, запятые. Заранее спасибо за помощь.

program Main2;
var S:string;
a:char;
f1,f2:text;

function NewStr(S:string;a:char):string;
var T:string;
begin
T:=S;
while Pos(a + a,T) > 0 do delete(T, Pos(a + a,s), 1);
NewStr:=T;
end;

begin
assign(f1, 'E:\Input.txt');
reset(f1);
assign(f2, 'E:\Output.txt');
rewrite(f2);
a:=chr(33);
readln(f1,s);
writeln(f2,NewStr(s, a));
close(f1);
close(f2);
end.

Николай_С

Это точно! Но прозорливый...