Запись текста в файл, чтение текста из файла, перепись текста из одного файла в другой файл

@Cedrick · Регистрация: 20.05.2014

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

Составить программу, в которой
организованы следующие действия:

запись текста в файл, чтение текста из
файла, перепись текста из одного файла
в другой файл.

Эти действия оформить в подпрограммах.
Обеспечить пользователю
возможность выбирать нужную ему
подпрограмму через интерфейс
управления(саse)

@Dax · 14.07.2014, 22:44

Написл так

Pascal

program osn;
uses my;
begin
assign(fp,'f:\files\cost\free\fail.txt');
assign (fp1,'f:\files\cost\free\failik.txt');
input(fp,s);
watch(fp);
nov(fp, fp1,s);
end.

Pascal

unit my;
interface
type fal=text;
type far= array[2..200] of string;
var fp,fp1:fal;
var s:string;
var j:integer;
var x:far;
var i:integer;
procedure input(var fp:fal;var s:string );
procedure watch(var fp:fal);
procedure nov(var fp,fp1:fal; var s:string);
implementation
procedure input(var fp:fal; var s:string );
begin
rewrite(fp);
writeln('ўўҐ¤ЁвҐ бва®Єг  ');
read(s);
writeln(fp,s);
close(fp);
end;
procedure watch(var fp:fal);
begin
reset(fp);
J:=1;
while not eof(fp)do begin
read(fp,s);
write(s);
end;
j:=j+1;
close(fp);
end;
procedure nov(var fp, fp1:fal; var s:string);
begin
rewrite(fp1);
reset(fp);
repeat
read(fp,s);
writeln(fp1,s);
until eof(fp);
close(fp);
close(fp1);
writeln('записал');
end;
end.

писал на free pascal.
В части переписать из файла в файл не работает, ищу ошибку, но больше чем нечего.
Товарищи с опытом, очень вас прошу помочь.
Останется замкнуть это на case (попробую сам ), собственно помощь нужна с процедурой nov(найти и указать где в ней ошибка).
Программа не завершается.
Спасибо.

@bormant · 15.07.2014, 11:36

Pascal

procedure nov(var fp, fp1:fal; var s:string);
begin
  Rewrite(fp1); Reset(fp);
  while not EOF(fp) do begin
    ReadLn(fp,s); WriteLn(fp1,s);
  end;
  Close(fp); Close(fp1);
  WriteLn('записал');
end;

@Dax · 15.07.2014, 12:44

Попробовал этот способ.
Коипелтруется, но не завершается, и не создает файл в который нужно переписывать.
Если честно, я начал примерно с такого пришел к результату зависания программы.
Именно поэтому попросил помощи.
среда free pascal

Pascal

procedure nov(var fp, fp1:fal; var s:string);
begin
 Rewrite(fp1); Reset(fp);
 i:=1;
  while not EOF(fp) do begin
  ReadLn(fp,s); WriteLn(fp1,s);
  I:=i+1;
 end;
 Close(fp); Close(fp1);
 WriteLn('записал');
end;

Правил abc.net
Результат: программа зависает.
Ищу причину

@bormant · 15.07.2014, 13:00

Давайте попробуем так и посмотрим на вывод:

Pascal

procedure nov(var fp, fp1:fal);
var
  s: String;
  i: Integer;
begin
  {$I-}
  Rewrite(fp1);
  if IOResult<>0 then begin
    WriteLn('*** Ошибка создания выходного файла.');
    exit;
  end;
  Reset(fp);
  if IOResult<>0 then begin
    WriteLn('*** Ошибка открытия входного файла.');
    Close(fp1); exit;
  end;
  {$I+}
  i:=0;
  while not EOF(fp) do begin
    ReadLn(fp,s); WriteLn(fp1,s);
    inc(i); Write(' ',i);
  end;
  Close(fp); Close(fp1);
  WriteLn('записал');
end;

@Dax · 15.07.2014, 13:03

Причем, зависает не зависимо от наличия переменной I.
В чем может быть причина?
Подскажите любопытному, пожалуйста

Добавлено через 2 минуты
я за

@ZX Spectrum-128 · 15.07.2014, 13:05

Работает

Pascal

unit my;
 
interface
 
type
  fal = text;
 
type
  far = array[2..200] of string;
 
var
  fp, fp1: fal;
 
var
  s: string;
 
var
  j: integer;
 
var
  x: far;
 
var
  i: integer;
 
procedure input(var fp: fal; var s: string );
procedure watch(var fp: fal);
procedure nov(var fp, fp1: fal; var s: string);
implementation
 
procedure input(var fp: fal; var s: string );
begin
  rewrite(fp);
  writeln('ўў?¤Ёв? бваRЄг  ');
  readln(s);
  writeln(fp, s);
  close(fp);
end;
 
procedure watch(var fp: fal);
begin
  reset(fp);
  J := 1;
  while not eof(fp) do 
  begin
    readln(fp, s);
    writeln(s);
  end;
  j := j + 1;
  close(fp);
end;
 
procedure nov(var fp, fp1: fal; var s: string);
begin
  rewrite(fp1);
  reset(fp);
  while not eof(fp) do
  begin
    readln(fp, s);
    writeln(fp1, s);
  end;
  close(fp);
  close(fp1);
  writeln('записал');
end;
end.

@Dax · 15.07.2014, 13:12

ПРоверил, зависает

@ZX Spectrum-128 · 15.07.2014, 13:20

Проверил, работает.
У вас проблема скорее всего здесь:

Pascal

1	assign (fp1,'f:\files\cost\free\failik.txt');

Последуйте совету bormant'a, проблема где-то на вашей машине.

@Dax · 15.07.2014, 16:08

Всем спасибо, ушел решать проблему.

Добавлено через 12 минут
Ура! Заработало!
Ушел доводить до ума.

Добавлено через 2 часа 1 минуту

Pascal

program osn;
//uses my;
var q:integer;
type fal = text;
type far = array[1..200] of string;
var  fp, fp1: fal;
var s: string;
var j: integer;
var x: far;
var i: integer;
procedure input(var fp: fal; var s: string );
begin
 rewrite(fp);
 writeln('enter the string*');
 readln(s);
 writeln(fp, s);
 close(fp);
end;
procedure watch(var fp: fal);
begin
 reset(fp);
 J := 1;
 while not eof(fp) do
  begin
   readln(fp, s);
 writeln(s);
 end;
 j := j + 1;
 close(fp);
end;
procedure nov(var fp, fp1: fal; var s: string);
begin
 rewrite(fp1);
 reset(fp);
 while not eof(fp) do
 begin
  readln(fp, s);
 writeln(fp1, s);
 end;
 close(fp);
 close(fp1);
 writeln('data in file');
 readln;
end;
begin
assign(fp,'f:\files\cost\free\fail.txt');
assign (fp1,'f:\files\cost\free\failik.txt');
writeln('enter  a number from 1 to 3  to choose subprogram');
writeln('if 1 then ente a string in file' );
writeln('if 2 then show a tsring ');
writeln('if 3 then rewrite file in the other');
read(q);
case q of
 1: input(fp,s);
 2: watch(fp);
 3:nov(fp, fp1,s);
end;{case}
end.

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

.

Добавлено через 2 минуты
Вероятней всего, она в организации case, так как до введения оператора варианта все работало как по нотам, но не уверен.

Добавлено через 5 минут
В любом случае, всем спасибо

@bormant · 16.07.2014, 11:17

Pascal

const
  f1n: string = 'f:\files\cost\free\file1.txt';
  f2n: string = 'f:\files\cost\free\file2.txt';
  eCreate: string = '*** Ошибка: не удалось создать файл ';
  eOpen: string = '*** Ошибка: не удалось открыть файл ';
var
  q: char;
  s: string;
  f1, f2: text;
procedure WriteF;
begin
  {$I-}
  Rewrite(f1);
  if IOResult <> 0 then begin
    WriteLn(eCreate, f1n);
    exit;
  end;
  {$I+}
  WriteLn('Введите текст. Завершение ввода - пустая строка.');
  repeat
    ReadLn(s);
    if s='' then Break;
    WriteLn(f1, s);
  until false;
  Close(f1);
end;
procedure ShowF;
begin
  {$I-}
  Reset(f1);
  if IOResult <> 0 then begin
    WriteLn(eOpen, f1n);
    exit;
  end;
  {$I+}
  WriteLn('Содержимое файла ', f1n);
  while not EOF(f1) do begin
    ReadLn(f1, s); WriteLn(s);
  end;
  Close(f1);
end;
procedure CopyF;
begin
  {$I-}
  Reset(f1);
  if IOResult <> 0 then begin
    WriteLn(eOpen, f1n);
    exit;
  end;
  Rewrite(f2);
  if IOResult <> 0 then begin
    WriteLn(eCreate, f2n);
    Close(f1);
    exit;
  end;
  {$I+}
  while not EOF(f1) do begin
    ReadLn(f1, s); WriteLn(f2, s);
  end;
  Close(f1); Close(f2);
end;
begin
  Assign(f1, f1n);
  Assign(f2, f2n);
  repeat
    WriteLn;
    WriteLn('1 - Запись файла');
    WriteLn('2 - Показ файла');
    WriteLn('3 - Копирование файла');
    WriteLn('0 - Выход');
    Write('Ваш выбор: '); ReadLn(q);
    case q of
    '0': ;
    '1': WriteF;
    '2': ShowF;
    '3': CopyF;
    else
      WriteLn('*** Ошибка: неправильный выбор.');
    end;
  until q='0';
end.

@Cedrick 1 / 1 / 2 Регистрация: 20.05.2014 Сообщений: 10
		1
	Запись текста в файл, чтение текста из файла, перепись текста из одного файла в другой файл 10.06.2014, 15:42. Показов 3584. Ответов 10 Метки нет (Все метки) Составить программу, в которой организованы следующие действия: запись текста в файл, чтение текста из файла, перепись текста из одного файла в другой файл. Эти действия оформить в подпрограммах. Обеспечить пользователю возможность выбирать нужную ему подпрограмму через интерфейс управления(саse) 0

@Dax Модератор 1352 / 649 / 207 Регистрация: 23.03.2014 Сообщений: 3,053
	15.07.2014, 13:03	6
	Причем, зависает не зависимо от наличия переменной I. В чем может быть причина? Подскажите любопытному, пожалуйста Добавлено через 2 минуты я за 0

@Dax Модератор 1352 / 649 / 207 Регистрация: 23.03.2014 Сообщений: 3,053
	15.07.2014, 13:12	8
	ПРоверил, зависает 0