Поменять порядок следования элементов файла на противоположный

@qwertytol · Регистрация: 20.02.2009

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

Приветствую всех. Помогите пожалусто срочно с задачкой:
Описать процедуру InvertIntFile(Name), меняющую порядок следования элементов файла целого типа с именем Name на противоположный. Если файл не существует или содержит менее двух элементов, то процедура не выполняет никаких действий. Обработать с помощью этой процедуры три файла с данными именами.
ps Оч нужно до завтра

@Dock^ · 16.06.2009, 00:23

Pascal

type mas=array[1..100] of integer;
 
procedure inertintfile(Name:string);
var fin:text;
    a:mas;
    i,code,n:integer;
    st:string;
begin
  assign(fin,name);
  {$I-}reset(fin);{$I+}
  if Ioresult<>0 then begin
                        writeln('Fille Error');
                        readln;
                        halt;
                      end;
  i:=1;
  n:=1;
  while not eof(fin) do
  begin
    read(fin,st);
    val(st,code,a[i]);
    inc(n);
    inc(i);
  end;
  if i<=2 then begin
                writeln('V faile menshe chisel chem 2!');
                readln;
                halt;
              end;
  close(fin);
  rewrite(fin);
  for i:=1 to n do
  begin
    str(a[n-i+1],st);
    write(fin,st);
  end;
end;

@qwertytol · 16.06.2009, 05:37 **[ТС]**

Почему-то в программе не находит всегда файл, хотя имя указано верно.

Pascal

uses crt;
type
    mas=array[1..100] of integer;
var
   Nam,nam2,nam3:string;
procedure invertintfile(Name:string);
var fin:text;
    a:mas;
    i,code,n:integer;
    st:string;
begin
  assign(fin,name);
  {$I-}reset(fin);{$I+}
  if Ioresult<>0 then begin
                        writeln('Fille Error');
                        readln;
                        halt;
                      end;
  i:=1;
  n:=1;
  while not eof(fin) do
  begin
    read(fin,st);
    val(st,code,a[i]);
    inc(n);
    inc(i);
  end;
  if i<=2 then begin
                writeln('V faile menshe chisel chem 2!');
                readln;
                halt;
              end;
  close(fin);
  rewrite(fin);
  for i:=1 to n do
  begin
    str(a[n-i+1],st);
    write(fin,st);
  end;
  readkey;
end;
 
begin
clrscr;
writeln('vvedite name pervogo faila: '); readln(nam);
writeln('vvedite name vtorogo faila: '); readln(nam2);
writeln('vvedite name tretego faila: '); readln(nam3);
invertintfile(nam);
invertintfile(nam2);
invertintfile(nam3);
readkey;
end.

@Puporev · 16.06.2009, 07:42

Да вообще какая-то чушь написана. Нужны же типизированные файлы целых чисел file of integer, а не текстовые. Да и массив воодще ни к чему. Типизированные файлы файлы прямого доступа, сами почти как массивы.

@qwertytol 7 / 7 / 2 Регистрация: 20.02.2009 Сообщений: 116
		1
	Поменять порядок следования элементов файла на противоположный 15.06.2009, 23:50. Показов 2239. Ответов 3 Метки нет (Все метки) Приветствую всех. Помогите пожалусто срочно с задачкой: Описать процедуру InvertIntFile(Name), меняющую порядок следования элементов файла целого типа с именем Name на противоположный. Если файл не существует или содержит менее двух элементов, то процедура не выполняет никаких действий. Обработать с помощью этой процедуры три файла с данными именами. ps Оч нужно до завтра 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	16.06.2009, 07:42	4
	Да вообще какая-то чушь написана. Нужны же типизированные файлы целых чисел file of integer, а не текстовые. Да и массив воодще ни к чему. Типизированные файлы файлы прямого доступа, сами почти как массивы. 0

Опции темы

Поменять порядок следования элементов файла на противоположный

Решение