Обработка текстовых данных, Операции над ними Опции

[Earl_Ananiy]

Разработать блок-схему алгоритма и составить программу обработки текстовых данных, хранящихся в произвольном файле на магнитном диске. Вид обработки данных ‴Включение в каждую строку заданной последовательности символов после символа с заданным номером‴. Текстовые данные, подлежащие обработке, заносятся в файл с помощью редактора текста. В программе предусмотреть ввод с терминала имен входного и выходного (в случае необходимости) файлов, вывод на печать входного и выходного файлов. Предусмотреть запись выходного файла на диск. Длина строки файла не должна превышать 80 символов.

Помогите доработать мою программу.

program kurs2;
Uses CRT;
Var
f:text;
n,m:string[80];
pos,i:integer;
Begin
clrscr;
writeln('pos');
readln(pos);
writeln('m');
readln(m);
Assign(f,'c:\kurs\input.txt');
reset(f);
read(f,n);
writeln('n=',n);
insert(m,n,pos);
Assign(f,'c:\kurs\output.txt');
rewrite(f);
write(f,n);
writeln('new=',n);
close(f);
readln;
end.

М

Граф Ананий, потрудись прочесть правила, пожалуйста, а также выполнять их (речь о п.5)

[Lapp]

Вот, как-то так.. Комменты по тексту.

program kurs2;
{никогда не вставляй CRT, если не жизненно важно}
Var
  f,g: text;    {тебе нужно два файла для параллельного ввода/вывода}
  n,m:string[80];
  pos,i:integer;  {а зачем тебе i?}

Begin
{никогда не очищай экран, если не жизненно важно}
  write('pos ');  {лучше без Ln, но с пробелом или = в конце}
  readln(pos);
  write('Insertion '); {лучше не имя переменной, а что-то более говорящее}
  readln(m);
  {не пиши тут директорию явно, работай в текущей. Кому надо - введут полное имя}
  Assign(f,'input.txt');  {вообще-то, имена файлов, кажется, надо было тоже ввести..}
  reset(f);;
  Assign(g,'output.txt');
  rewrite(g);
  while not EoF(f) do begin   {нужен цикл по строкам до окончания файла}
    readLn(f,n);     {тут надо ReadLn, а не Read, иначе не прочтет вторую и дальше}
    writeln('old=',n);
    if Length(n)>=pos then {я бы проверил, есть ли вообще нужный символ..}
      insert(m,n,pos+1); {нужно прибавить 1, иначе вставишь перед символом с номером pos}
    WriteLn(g,n);    {запись в выходной файл, тоже с Ln}
    writeln('new=',n);  {пересено из конца}
  end;
  Close(g);
  close(f);
  readln;
end.

Разбирайся, задавай вопросы. Пожалуйста, обрати внимание на форматирование кода - оно тебе очень поможет в будущем.

Еще одно: у тебя незакрытая файловая переменная f используется для нового файла - это грубая ошибка!

[Earl_Ananiy]

Разбирайся, задавай вопросы. Пожалуйста, обрати внимание на форматирование кода - оно тебе очень поможет в будущем.

Что сделать для обработки, при введении текста с экрана.


тут я применил тэги цитаты и цвета. Нажми "Изменить - полное редактирование" - и увидишь, как. Lapp

Сообщение отредактировано: Lapp - 28.01.2010 23:44