Чтение матрицы из текстового файла Опции

[neon]

Дано два файла, в каждом из них по двумерному массиву размером[1..5,1..5].
Оба массива имеют одно одинаковое число. Нужно найти эти числа.
Файлы простые, текстовые.

[Altair]

И в чем проблемма?
Что не получается?

[Guest]

Oleg_Z
Не могу понять суть, т.е. алгоритм, как зделать...ума то нету

[Altair]

ума то нету

А какой смысл бал поступать в институт?
------------------------------------------------
Алгоритм:
1)Читаем из файла строчки пока не концится файл (5 строчек)
2)переводим строки(текстовые) в строки матрицы (лучше это сделать процедурой)
3)то же делаем с 2 файлом.
4) получаем 2 матрицы
дальше смотрим каждый эл-т первого массива и ищем такойже в другом массиве, если нашли выводим на экран.
---
Вот и весь алгоритм.

[Lik]

Код

Program files;
Uses Crt;
Type massive=array[1..5,1..5] of Real;
Var  a,b:Massive;
    p:Real;
{====================}
Procedure OARF(Name:string; Var a:massive); {OARF-Open And Read File}
Var fl:Text;
   i,j:Integer;
Begin
    Assign(fl,name);
    Reset(fl);
    For i:=1 to 5 do
    For j:=1 to 5 do
    Read(fl,a[i,j]);
    Close(fl);
End;
{====================}
Procedure Check(a,b:Massive; Var p:Real);
Var i,j,k,l:Integer;
Begin
    For i:=1 to 5 do
    For j:=1 to 5 do
    For k:=1 to 5 do
    For l:=1 to 5 do
    if a[i,j]=b[k,l] then p:=a[i,j];
End;
{====================}
Begin
    ClrScr;
    OARF('f1.txt',a);       {' f1.txt '  -первый файл с массивом}
    OARF('f2.txt',b);       {' f2.txt '  -второй файл с массивом}
    Check(a,b,p);
    Writeln('Chislo ',p:0:2);
    ReadKey;
End.

[neon]

Lik
Спасибо
Oleg_Z
А я в школе учусь...

[Altair]

А я в школе учусь...

Тогда извини.
Я тоже кстати.