массивы, деиствия с ними Опции

[NK]

В файле F1 задан двумерный массив А[1..5,1..5],в файле F2 задан двумерный массив B[1..5,1..5], в каждом из них имеется по два одинаковых числа. С помощью процедуры найти эти числа и их индексы и записать в файле F3, добавив пояснение.
=========================
Это полный текс задачи, помогите

[BlackShadow]

Код

Procedure Look(fn1:String;fn:String;Var n1,n2:Integer;Var x1,y1,x2,y2:Integer);
Var
 f1,f2:Text;
 a,b:Integer;
 x,y:Integer;
 Found:Boolean;
Begin
 Found:=False;
 Assign(f1,fn1);
 Reset(f1);
 Assign(f2,fn2);
 Reset(f2);
 For x:=1 To 5 Do
   For y:=1 To 5 Do
   Begin
     ReadLn(f1,a);
     ReadLn(f2,B);
     If a=b Then
       If Not Found Then
       Begin
         n1:=a;
         x1:=x;
         y1:=y;
         Found:=True
       End
       Else
       Begin
         n2:=a;
         x2:=x;
         y2:=y;
         Break
       End
   End;
 Close(f1);
 Close(f2)
End;

Var
 n1,n2,x1,x2,y1,y2:Integer;
 f:Text;

Begin
 Look('f1','f2',n1,n2,x1,y1,x2,y2);
 Assign(f,'f3');
 ReWrite(f);
 WriteLn(f,x1,'*',y1,' = ',n1);
 WriteLn(f,x2,'*',y2,' = ',n2);
 Close(f)
End.

Ну или что-то типа этого...

Сообщение отредактировано: volvo - 22.01.2005 0:41