Помощь - Поиск - Пользователи - Календарь
Полная версия: массивы, деиствия с ними
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
NK
В файле F1 задан двумерный массив А[1..5,1..5],в файле F2 задан двумерный массив B[1..5,1..5], в каждом из них имеется по два одинаковых числа. С помощью процедуры найти эти числа и их индексы и записать в файле F3, добавив пояснение.
=========================
Это полный текс задачи, помогите sad.gif
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.


Ну или что-то типа этого...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.