Описать логическую функцию eq(f,g), проверяющую на равенство файлы f и g типа ФВ.

@Ksi · Регистрация: 25.04.2012

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

написала программу, но она у меня не сравнивает, постоянно выводит, что "файлы не равны". а задание такое:
Type время = record час:0..23; мин, сек:0..59 end;
ФВ = file of время;
Описать логическую функцию eq(f,g), проверяющую на равенство файлы f и g типа ФВ.

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls, Buttons, Menus;
 
type
 vrem=record
          ch:0..23;
          mn,sc:0..59;
          end;
    FB=file of vrem;
    arr=array [1..5] of vrem;
  TForm1 = class(TForm)
    St1: TStringGrid;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit4: TEdit;
    BitBtn1: TBitBtn;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
    f,g:FB;
    z:vrem;
    c:char;
    i:integer;
    a:arr;
 
implementation
 
{$R *.dfm}
function Eq(var f,g:FB):boolean;
var b:boolean;
    i,nf,ng:integer;
    v,w:vrem;
begin
reset(f);
reset(g);
nf:=filesize(f);
ng:=filesize(g);
if(nf=0)and(ng=0)then b:=true
else if nf<>ng then b:=false
else
 begin
  b:=true;
  i:=0;
  while(i<=nf-1)and b do
   begin
    seek(f,i);
    read(f,v);
    seek(g,i);
    read(g,w);
    if(v.ch<>w.ch)or(v.mn<>w.mn)or(v.sc<>w.sc)then b:=false
    else
    closefile(f);
  closefile(g);
  Eq:=b;
  end;
 
 
end;
 
   end;
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
i:=i+1;
a[i].ch:=strtoint(Edit1.Text);
a[i].mn:=strtoint(Edit2.Text);
a[i].sc:=strtoint(Edit3.Text);
 
st1.Cells[0,i]:=IntToStr(a[i].ch);
st1.Cells[1,i]:=IntToStr(a[i].mn);
st1.Cells[2,i]:=IntToStr(a[i].sc);
 
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
 
 
 
end;
 
 
 
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
st1.Cells[0,0]:='час';
st1.Cells[1,0]:='минута';
st1.Cells[2,0]:='секунда';
end;
 
procedure TForm1.N5Click(Sender: TObject);
begin
close;
end;
 
procedure TForm1.N2Click(Sender: TObject);
begin
assignfile(f,'fileF');
rewrite(f);
assignfile(g,'fileG');
rewrite(g);
 
 
 begin
 
Eq(f,g);
Edit4.Text:='Файлы равны'
else
Edit4.text:='Файлы не равны';
read;
end;
end;
 
end.

Одиночка · 30.04.2012, 20:29

Вот этот кусок:

Delphi

  while(i<=nf-1)and b do
   begin
    seek(f,i);
    read(f,v);
    seek(g,i);
    read(g,w);
    if(v.ch<>w.ch)or(v.mn<>w.mn)or(v.sc<>w.sc)then b:=false
    else
    closefile(f);
  closefile(g);
  Eq:=b;
  end;

Меняй на:

Delphi

  while (not Eof(f)) and b do
  begin
    read(f,v);
    read(g,w);
    if(v.ch<>w.ch)or(v.mn<>w.mn)or(v.sc<>w.sc)then b:=false;
  end;
  closefile(f);
  closefile(g);
  Eq:=b;

@Ksi · 01.05.2012, 00:55 **[ТС]**

спасибо большое, но все равно пишет, что "файлы не равны"(

Одиночка · 01.05.2012, 01:04

Вот эту строку:

Delphi

Eq(f,g);

Запиши так:

Delphi

1	If Eq(f,g) Then

Строки 133,139 и 140 можно вообще убрать.

Не по теме:

И если из темы не выходишь - периодически обновляй страницу. Иначе не увидишь, когда вылолжат ответ.

@Mawrat · 01.05.2012, 01:17

Подключусь к обсуждению. Что касается объявления типов и определения функции Eq(), этот код надо переписать так:

Delphi

type
  //Если записи предназначены для работы с файлом - их надо делать упакованными (packed).
  vrem = packed record
    ch : 0..23;
    mn, sc : 0..59;
  end;
  FB = file of vrem;
 
function Eq(var f, g : FB) : boolean;
var
  v, w : vrem;
begin
  Result := False;
  Reset(f);
  Reset(g);
  if FileSize(f) = FileSize(g) then begin
    Result := True;
    while not Eof(f) do begin
      Read(f,v);
      Read(g,w);
      if (v.ch <> w.ch) or (v.mn <> w.mn) or (v.sc <> w.sc) then begin
        Result := False;
        Break;
      end;
    end;
  end;
  CloseFile(f);
  CloseFile(g);
end;

@Ksi · 01.05.2012, 01:49 **[ТС]**

спасибо, сейчас изменю)

Добавлено через 31 минуту
теперь всегда выводит, что файлы равны(

Одиночка · 01.05.2012, 01:52

Выложите последний код.

@Ksi · 01.05.2012, 01:53 **[ТС]**

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls, Buttons, Menus;
 
type
 vrem= packed record
          ch:0..23;
          mn,sc:0..59;
          end;
    FB=file of vrem;
    arr=array [1..5] of vrem;
 
  TForm1 = class(TForm)
    St1: TStringGrid;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit4: TEdit;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
    f,g:FB;
    z:vrem;
    c:char;
    i:integer;
    a:arr;
 
implementation
 
{$R *.dfm}
function Eq(var f, g : FB) : boolean;
var
  v, w : vrem;
begin
  Result := False;
  Reset(f);
  Reset(g);
  if FileSize(f) = FileSize(g) then
  begin
    Result := True;
    while not Eof(f) do
     begin
      Read(f,v);
      Read(g,w);
      if (v.ch <> w.ch) or (v.mn <> w.mn) or (v.sc <> w.sc) then
      begin
        Result := False;
        Break;
      end;
    end;
  end;
  CloseFile(f);
  CloseFile(g);
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
i:=i+1;
a[i].ch:=strtoint(Edit1.Text);
a[i].mn:=strtoint(Edit2.Text);
a[i].sc:=strtoint(Edit3.Text);
 
st1.Cells[0,i]:=IntToStr(a[i].ch);
st1.Cells[1,i]:=IntToStr(a[i].mn);
st1.Cells[2,i]:=IntToStr(a[i].sc);
 
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
 
end;
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
st1.Cells[0,0]:='час';
st1.Cells[1,0]:='минута';
st1.Cells[2,0]:='секунда';
end;
 
procedure TForm1.N5Click(Sender: TObject);
begin
close;
end;
 
procedure TForm1.N2Click(Sender: TObject);
begin
assignfile(f,'fileF');
rewrite(f);
assignfile(g,'fileG');
rewrite(g);
 
 if Eq(f,g) then
  Edit4.Text:='Файлы  равны'
else
 
  Edit4.text:='Файлы не равны';
 
end;
 
end.

Одиночка · 01.05.2012, 02:05

Вот эти строки в вашем коде открывают файлы и очищают их. А потом сравниваем 2 пустых файла.

Delphi

assignfile(f,'fileF');
rewrite(f);
assignfile(g,'fileG');
rewrite(g);

Если эти файлы у вас уже есть заполненные - нужно использовать команды Reset для их открытия.

Delphi

assignfile(f,'fileF');
reset(f);
assignfile(g,'fileG');
reset(g);

@Mawrat · 01.05.2012, 02:06

Пояснения:

Delphi

procedure TForm1.N2Click(Sender: TObject);
begin
assignfile(f,'fileF');
rewrite(f); //В этом месте содержимое файла полностью стирается.
assignfile(g,'fileG');
rewrite(g); //В этом месте содержимое файла полностью стирается.
 
//Поэтому, когда мы оказываемся здесь, то оба файла пустые - а значит они равны.
if Eq(f,g) then
  Edit4.Text:='Файлы  равны'
else
  Edit4.text:='Файлы не равны';
end;

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

@Ksi · 01.05.2012, 15:17 **[ТС]**

заполнила файлы, но выдает ошибку посмотрите пожалуйста

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls, Buttons, Menus;
 
type
 vrem= packed record
          ch:0..23;
          mn,sc:0..59;
          end;
    FB=file of vrem;
    arr=array [1..5] of vrem;
 
  TForm1 = class(TForm)
    st1: TStringGrid;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit4: TEdit;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N5: TMenuItem;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
    f,g:FB;
    z:vrem;
    c:char;
    i,j:integer;
    a:arr;
 
implementation
 
{$R *.dfm}
function Eq(var f, g : FB) : boolean;
var
  i,j:Integer;
  v, w : vrem;
begin
AssignFile(f,'fileF.dat');
 
 Rewrite(f);
 
for  i:=1 to stringgrid1.rowCount-1 do
begin
  z.ch:=stringgrid1.Cells[1,i];
  z.mn:=stringgrid1.Cells[2,i];
  z.sc:=stringgrid1.Cells[3,i];
end;
Write(f,z);
 CloseFile(F);
 
  AssignFile(g,'fileG.dat');
 Rewrite(g);
 for  i:=1 to stringgrid1.rowCount-1 do
begin
  z.ch:=stringgrid1.Cells[1,i];
  z.mn:=stringgrid1.Cells[2,i];
  z.sc:=stringgrid1.Cells[3,i];
end;
write(G,z);
 CloseFile(g);
 
  Result := False;
  Reset(f);
  Reset(g);
  if FileSize(f) = FileSize(g) then
  begin
    Result := True;
    while not Eof(f) do
     begin
      Read(f,v);
      Read(g,w);
      if (v.ch <> w.ch) or (v.mn <> w.mn) or (v.sc <> w.sc) then
      begin
        Result := False;
        Break;
      end;
    end;
  end;
  CloseFile(f);
  CloseFile(g);
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
i:=i+1;
a[i].ch:=strtoint(Edit1.Text);
a[i].mn:=strtoint(Edit2.Text);
a[i].sc:=strtoint(Edit3.Text);
 
st1.Cells[0,i]:=IntToStr(a[i].ch);
st1.Cells[1,i]:=IntToStr(a[i].mn);
st1.Cells[2,i]:=IntToStr(a[i].sc);
 
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
 
end;
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
st1.Cells[0,0]:='÷àñ';
st1.Cells[1,0]:='ìèíóòà';
st1.Cells[2,0]:='ñåêóíäà';
end;
 
procedure TForm1.N5Click(Sender: TObject);
begin
close;
end;
 
procedure TForm1.N2Click(Sender: TObject);
begin
assignfile(f,'fileF.dat');
reset(f);
assignfile(g,'fileG.dat');
reset(g);
 
 if Eq(f,g) then
  Edit4.Text:='Ôàéëû  ðàâíû'
else
 
  Edit4.text:='Ôàéëû íå ðàâíû';
 
end;
 
end.

Одиночка · 01.05.2012, 15:31

Строки 67 и 68 поменяйте местами.
Строки 78 и 79 поменяйте местами.
И пишите, пожалуйста, сразу, что за ошибка? Может это ещё не причина выдаваемой ошибки. Хотя тоже ошибка.

@Ksi · 01.05.2012, 15:43 **[ТС]**

ошибка undeclared identifier 'st1'

Одиночка · 01.05.2012, 15:51

Не пойму нифига.
У вас должно было выдать ошибку:
undeclared identifier 'stringgrid1'.
Выложите файл с расширение dfm из проекта.
Или попробуйте все идентификаторы St1 (во всём этом коде) заменить на stringgrid1.
Лучше выложите *dfm.

@Ksi · 01.05.2012, 15:59 **[ТС]**

Delphi

object Form1: TForm1
  Left = 241
  Top = 140
  Width = 890
  Height = 458
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 88
    Top = 224
    Width = 17
    Height = 13
    Caption = #1095#1072#1089
  end
  object Label2: TLabel
    Left = 224
    Top = 232
    Width = 36
    Height = 13
    Caption = #1084#1080#1085#1091#1090#1072
  end
  object Label3: TLabel
    Left = 376
    Top = 224
    Width = 41
    Height = 13
    Caption = #1089#1077#1082#1091#1085#1076#1072
  end
  object Label4: TLabel
    Left = 624
    Top = 112
    Width = 103
    Height = 13
    Caption = #1088#1072#1074#1085#1099' '#1080#1083#1080' '#1085#1077' '#1088#1072#1074#1085#1099
  end
  object st1: TStringGrid
    Left = 56
    Top = 32
    Width = 320
    Height = 120
    ColCount = 3
    FixedCols = 0
    RowCount = 3
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing]
    TabOrder = 0
    ColWidths = (
      64
      64
      64)
  end
  object Edit1: TEdit
    Left = 40
    Top = 248
    Width = 121
    Height = 21
    TabOrder = 1
  end
  object Edit2: TEdit
    Left = 184
    Top = 248
    Width = 121
    Height = 21
    TabOrder = 2
  end
  object Edit3: TEdit
    Left = 328
    Top = 248
    Width = 121
    Height = 21
    TabOrder = 3
  end
  object Edit4: TEdit
    Left = 616
    Top = 136
    Width = 121
    Height = 21
    TabOrder = 4
  end
  object Button1: TButton
    Left = 504
    Top = 248
    Width = 75
    Height = 25
    Caption = #1076#1086#1073#1072#1074#1080#1090#1100
    TabOrder = 5
    OnClick = Button1Click
  end
  object MainMenu1: TMainMenu
    Left = 16
    Top = 56
    object N1: TMenuItem
      Caption = #1060#1072#1081#1083
      object N2: TMenuItem
        Caption = #1088#1072#1089#1089#1095#1080#1090#1072#1090#1100
        OnClick = N2Click
      end
      object N5: TMenuItem
        Caption = #1074#1099#1093#1086#1076
        OnClick = N5Click
      end
    end
  end
end

Одиночка · 01.05.2012, 16:16

А ну попробуйте вот этот код:

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls, Buttons, Menus;
 
type
 vrem= packed record
          ch:0..23;
          mn,sc:0..59;
          end;
    FB=file of vrem;
    arr=array [1..5] of vrem;
 
  TForm1 = class(TForm)
    st1: TStringGrid;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit4: TEdit;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N5: TMenuItem;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
    f,g:FB;
    z:vrem;
    c:char;
    i,j:integer;
    a:arr;
 
implementation
 
{$R *.dfm}
 
function Eq(var f, g : FB) : boolean;
var
  i,j:Integer;
  v, w : vrem;
begin
  Reset(f);
  Reset(g);
 
  Result := False;
  if FileSize(f) = FileSize(g) then
  begin
    Result := True;
    while not Eof(f) do
     begin
      Read(f,v);
      Read(g,w);
      if (v.ch <> w.ch) or (v.mn <> w.mn) or (v.sc <> w.sc) then
      begin
        Result := False;
        Break;
      end;
    end;
  end;
  CloseFile(f);
  CloseFile(g);
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  i:=i+1;
  a[i].ch:=strtoint(Edit1.Text);
  a[i].mn:=strtoint(Edit2.Text);
  a[i].sc:=strtoint(Edit3.Text);
 
  st1.Cells[0,i]:=IntToStr(a[i].ch);
  st1.Cells[1,i]:=IntToStr(a[i].mn);
  st1.Cells[2,i]:=IntToStr(a[i].sc);
 
  Edit1.Text:='';
  Edit2.Text:='';
  Edit3.Text:='';
end;
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  st1.Cells[0,0]:='час';
  st1.Cells[1,0]:='минута';
  st1.Cells[2,0]:='секунда';
end;
 
procedure TForm1.N5Click(Sender: TObject);
begin
  close;
end;
 
procedure TForm1.N2Click(Sender: TObject);
begin
  AssignFile(f,'fileF.dat');
  Rewrite(f);
  for  i:=1 to st1.rowCount-1 do
  begin
    z.ch:=st1.Cells[1,i];
    z.mn:=st1.Cells[2,i];
    z.sc:=st1.Cells[3,i];
    Write(f,z);
  end;
  CloseFile(F);
 
  AssignFile(g,'fileG.dat');
  Rewrite(g);
  for  i:=1 to st1.rowCount-1 do
  begin
    z.ch:=st1.Cells[1,i];
    z.mn:=st1.Cells[2,i];
    z.sc:=st1.Cells[3,i];
    write(G,z);
  end;
  CloseFile(g);
 
  if Eq(f,g) then
  Edit4.Text:='Файлы  равны' else
  Edit4.text:='Файлы не равны';
end;
 
end.

Полностью замените код в Unite.
Если будет выдавать ошибки при компиляции сразу пишите, что за ошибки и номер строки.

@Ksi · 01.05.2012, 16:30 **[ТС]**

128 строчка
[Error] Unit1.pas(128): Incompatible types: 'Integer' and 'String'

Одиночка · 01.05.2012, 17:16

Сейчас. Я уже у себя проект сформировал. Там много ошибок. Все уберу - потом выложу. Минут 15.

Добавлено через 38 минут
Я добился, что данные заносятся в стринггрид и в файлы. Только...
1. Заносятся одни и те же данные по вашему коду. Поэтому они будут всё время будут равны.
2. У вас нет расширения стрингрида. Поэтому вводятся только 2 строки.
А ну, подумайте, как заполнить файлы? Может ещё один грид поставить и отдельную кнопочку для его заполнения? Из него заполнять другой файл. Думайте.

Не по теме:

А я пока позавтракаю.

@Ksi · 01.05.2012, 17:19 **[ТС]**

приятного аппетита)

Одиночка · 01.05.2012, 18:49

Вот рабочий проект. Пробуйте.
Распакуйте куда-нибудь и перенесите в свой прект файлы Unit1.pas и Unit1.dfm. Ваш проект должен быть закрыт.
Или попробуйте просто как другой проект.

@Ksi 0 / 0 / 0 Регистрация: 25.04.2012 Сообщений: 17
	01.05.2012, 00:55 [ТС]	3
	спасибо большое, но все равно пишет, что "файлы не равны"( 0

@Ksi 0 / 0 / 0 Регистрация: 25.04.2012 Сообщений: 17
	01.05.2012, 01:49 [ТС]	6
	спасибо, сейчас изменю) Добавлено через 31 минуту теперь всегда выводит, что файлы равны( 0

Одиночка 3944 / 1869 / 337 Регистрация: 16.03.2012 Сообщений: 3,880
	01.05.2012, 01:52	7
	Выложите последний код. 0

Одиночка 3944 / 1869 / 337 Регистрация: 16.03.2012 Сообщений: 3,880
	01.05.2012, 15:31	12
	Строки 67 и 68 поменяйте местами. Строки 78 и 79 поменяйте местами. И пишите, пожалуйста, сразу, что за ошибка? Может это ещё не причина выдаваемой ошибки. Хотя тоже ошибка. 0

@Ksi 0 / 0 / 0 Регистрация: 25.04.2012 Сообщений: 17
	01.05.2012, 15:43 [ТС]	13
	ошибка undeclared identifier 'st1' 0

Одиночка 3944 / 1869 / 337 Регистрация: 16.03.2012 Сообщений: 3,880
	01.05.2012, 15:51	14
	Не пойму нифига. У вас должно было выдать ошибку: undeclared identifier 'stringgrid1'. Выложите файл с расширение dfm из проекта. Или попробуйте все идентификаторы St1 (во всём этом коде) заменить на stringgrid1. Лучше выложите *dfm. 0

@Ksi 0 / 0 / 0 Регистрация: 25.04.2012 Сообщений: 17
	01.05.2012, 16:30 [ТС]	17
	128 строчка [Error] Unit1.pas(128): Incompatible types: 'Integer' and 'String' 0

Одиночка 3944 / 1869 / 337 Регистрация: 16.03.2012 Сообщений: 3,880
	01.05.2012, 17:16	18
	Сейчас. Я уже у себя проект сформировал. Там много ошибок. Все уберу - потом выложу. Минут 15. Добавлено через 38 минут Я добился, что данные заносятся в стринггрид и в файлы. Только... 1. Заносятся одни и те же данные по вашему коду. Поэтому они будут всё время будут равны. 2. У вас нет расширения стрингрида. Поэтому вводятся только 2 строки. А ну, подумайте, как заполнить файлы? Может ещё один грид поставить и отдельную кнопочку для его заполнения? Из него заполнять другой файл. Думайте. Не по теме: А я пока позавтракаю. 0

@Ksi 0 / 0 / 0 Регистрация: 25.04.2012 Сообщений: 17
	01.05.2012, 17:19 [ТС]	19
	приятного аппетита) 0

Описать логическую функцию eq(f,g), проверяющую на равенство файлы f и g типа ФВ.

Решение