Файлы input.txt и output.txt

[Aksinia]

Файлы input.txt и output.txt

Задача: взять строку из файла input.txt, удалить из нее лишние знаки(текст самой программы приведен ниже) и вывести новую строку в файл output.txt.

program Main2;
var str:string; a:char;

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

begin
readln(str);
a:=chr(33);
writeln(NewStr(str, a));
readln;
end.

 

[Николай_С]

Ни тебе "здрасте", ни "просю помощи"...
А что, собственно, требуется?
Дописать в имеющуюся прогу недостающие строки по работе с файлами?

 

[Aksinia]

Да. Нужно взять строку из файла, удалить из нее лишние восклицательные знаки и вывести в другой файл.

 

[Николай_С]

Стесняюсь спросить...
Приведенный код - это всё, чему Вы научились за семестр по языку Pascal?
С такими знаниями Вам сессию никак не сдать.
Пока не поздно, наймите репетитора.

 

[Vladimir_S]

Стесняюсь спросить...
Приведенный код - это всё, чему Вы научились за семестр по языку Pascal?
С такими знаниями Вам сессию никак не сдать.
Пока не поздно, наймите репетитора.

Коля, да ладно Вам! Если девушка этому научилась, то это в бесконечное число раз больше обычного уровня лоботрясов, которые к концу семестра вдруг обнаруживают, что они вообще ни бэ, ни мэ, а злые преподы им никак зачет не ставят. Ну не осилить файловых операций - ничего, поможем.

program Main2;
var
 S:string;
 A:char;
 f1,f2:Text;

function NewStr(NS:string;NA:char):string;
var T:string;
begin
 T:=NS;
 while Pos(NA,T) > 0 do delete(T, Pos(NA,T), 1);
 NewStr:=T;
end;

begin
 Assign(f1,'Input.txt');
 ReSet(f1);
 Assign(f2,'Output.txt');
 ReWrite(f2);
 A:='!';
 Repeat
  Readln(f1,S);
  Writeln(f2,NewStr(S,A));
 Until EoF(f1);
 Close(f1);
 Close(f2);
end.

А так программа, в целом, составлена грамотно, вот только в аргументах функции Pos какая-то галиматья. И еще, Аксинья, одно замечание. Обозначать формальные и фактические параметры процедур и функций одинаково хоть и допускается, но нежелательно: приводит к путанице. Поэтому я там кое-что переобозначил. Кроме того, старайтесь не использовать зарезервированные слова языка программирования в качестве идентификаторов: могут возникнуть ошибки. Так, "Str" - это имя стандартной процедуры преобразования числа в строку. Не нужно так обозначать переменную.

 

[Николай_С]

Владимир, Вам, конечно, видней, но открыть/закрыть поток, причитать/записать в него - этому учат на первых лекциях и практических занятиях. А тут до конца семестра осталось 2 недели!

 

[Vladimir_S]

А тут до конца семестра осталось 2 недели!

Аж целых!!!

 

[Николай_С]

Удивляюсь я Вашему оптимизму!
А как же остальной "непройденный" материал?

 

[Aksinia]

Николай, спасибо за совет, но сессию мне, к счастью, сдавать не нужно.
Владимир, большое спасибо. В аргументах функции Pos "галиматья", потому что мне нужно удалить не все восклицательные знаки, а только повторяющиеся(т.е. в количестве больше одного).
При запуске программы возникает ошибка "RunError(2)", хотя текстовые файлы находятся в той же папке, что и программа. Не могли бы Вы подсказать в чем ошибка, пожалуйста?

 

[Aksinia]

Не могли бы Вы подсказать в чем ошибка, пожалуйста?

 

[Vladimir_S]

Не могли бы Вы подсказать в чем ошибка, пожалуйста?

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

 

[Aksinia]

Видимо, нет.

 

[Vladimir_S]

Видимо, нет.

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

 

[Aksinia]

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

 

[Aksinia]

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

 

[Aksinia]

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

 

[Николай_С]

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

 

[Aksinia]

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

 

[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.

 

[Николай_С]

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