Чтение матрицы из файла написвть труда не составляет. А как засунуть в процедуру непонятно !?
ЗЫ. Опишите пжаласта эту процедуру(функцию) ! и как ее применить к нескоольким матрицам в одной программе ?
Полная версия: Чтение матрицы из файла
Цитата(Hamster @ 17.03.05 19:17)
Чтение матрицы из файла написвть труда не составляет. А как засунуть в процедуру непонятно !?
Ну, если не составляет, то напишите... А потом поменяйте заголовок с Program <имя программы>; на Procedure ReadMatrix;
Если б я знал то не спрашивал бы... Если просто поменять program на procedure то компилятор ругается !
Цитата(Hamster @ 17.03.05 20:17)
ЗЫ. Опишите пжаласта эту процедуру(функцию) ! и как ее применить к нескоольким матрицам в одной программе ?
Вот в чем дело :low:
Приведите код если можно... Того, что труда не составляет... Именно программы, я покажу, как сделать из нее процедуру...
Цитата(volvo @ 17.03.05 20:37)
Приведите код если можно... Того, что труда не составляет... Именно программы, я покажу, как сделать из нее процедуру...
Код
program vvod_matr;
const
m=3;
n=3;
type
matr=array[1..m,1..n] of integer;
var
A : matr; {matrivca A}
i,j : integer; {peremnnie cikla}
inp : text;
begin
assign(inp, 'c:\a.txt');
reset(inp);
writeln('Ishodmaja Matrica A : ');
for i:=1 to m do
begin
for j:=1 to n do
read(inp,A[i,j]);
end;
for i:=1 to m do
begin
for j:=1 to n do
write (A[i,j],' ');
writeln;
end;
readln;
end.
PLZ.
Например так :
const
m=3;
n=3;
type
matr=array[1..m,1..n] of integer;
procedure vvod_matr;
var
A : matr; {matrivca A}
i,j : integer; {peremnnie cikla}
inp : text;
begin
assign(inp, 'c:\a.txt');
reset(inp);
writeln('Ishodmaja Matrica A : ');
for i:=1 to m do
begin
for j:=1 to n do
read(inp,A[i,j]);
end;
for i:=1 to m do
begin
for j:=1 to n do
write (A[i,j],' ');
writeln;
end;
readln;
close(inp);
end;
begin
{main program}
vvod_matr; {vizov proceduri}
end.
исправлено.
Код
const
m=3;
n=3;
type
matr=array[1..m,1..n] of integer;
procedure vvod_matr;
var
A : matr; {matrivca A}
i,j : integer; {peremnnie cikla}
inp : text;
begin
assign(inp, 'c:\a.txt');
reset(inp);
writeln('Ishodmaja Matrica A : ');
for i:=1 to m do
begin
for j:=1 to n do
read(inp,A[i,j]);
end;
for i:=1 to m do
begin
for j:=1 to n do
write (A[i,j],' ');
writeln;
end;
readln;
close(inp);
end;
begin
{main program}
vvod_matr; {vizov proceduri}
end.
исправлено.
если все остальное правильно, то ты забыл
Код
close(inp);
Код
program vvod_matr;
const
m=3;
n=3;
type
matr=array[1..m,1..n] of integer;
procedure read_matrix(var inp: text; var a: matr);
var i, j: integer;
begin
for i:=1 to m do
for j:=1 to n do
read(inp,A[i,j]);
end;
procedure print(a: matr);
begin
for i:=1 to m do begin
for j:=1 to n do
write(a[i,j], ' ');
writeln;
end;
end;
var
A, B : matr;
inp1, inp2 : text;
begin
assign(inp1, 'c:\a.txt'); reset(inp1);
writeln('Матрица A : ');
read_matr(inp1, a); print( a );
close(inp);
assign(inp2, 'c:\a2.txt'); reset(inp2);
writeln('Матрица B : ');
read_matr(inp2, B); print( b );
Close(inp2);
readln;
end.
const
m=3;
n=3;
type
matr=array[1..m,1..n] of integer;
procedure read_matrix(var inp: text; var a: matr);
var i, j: integer;
begin
for i:=1 to m do
for j:=1 to n do
read(inp,A[i,j]);
end;
procedure print(a: matr);
begin
for i:=1 to m do begin
for j:=1 to n do
write(a[i,j], ' ');
writeln;
end;
end;
var
A, B : matr;
inp1, inp2 : text;
begin
assign(inp1, 'c:\a.txt'); reset(inp1);
writeln('Матрица A : ');
read_matr(inp1, a); print( a );
close(inp);
assign(inp2, 'c:\a2.txt'); reset(inp2);
writeln('Матрица B : ');
read_matr(inp2, B); print( b );
Close(inp2);
readln;
end.
SHnur
Ну попросили же:
Цитата
как ее применить к нескоольким матрицам в одной программе ?
Твою процедуру можно к нескольким матрицам применить?
Цитата(SHnur @ 17.03.05 21:04)
Например так :
Ну ето то все понятно...
Но как ты будешь применять цвою процедуру для нескольких матриц ? Это все ясно как Божий день(все равно спасиба),
но что нада в коде поменять, что б для 2-3 матриц мона была юзать !?
Alpha7, предыдущий мой ответ не нравится? Тогда объясните, чем (пост №9) 
Цитата(volvo @ 17.03.05 21:45)
Alpha7, предыдущий мой ответ не нравится? Тогда объясните, чем (пост №9)
Nu kak versiju ja eto priznaju bez problem ! =)
Delo v tom, chto nuzhno schitivat` massiv iz faila i pihat` v proceduru kak :
Код
procedure vvod_matr;
var
A : matr; {matrivca A}
i,j : integer; {peremnnie cikla}
inp : text;
begin
assign(inp, 'c:\a.txt');
reset(inp);
writeln('Ishodmaja Matrica A : ');
for i:=1 to m do
begin
for j:=1 to n do
read(inp,A[i,j]);
end;
for i:=1 to m do
begin
for j:=1 to n do
write (A[i,j],' ');
writeln;
end;
readln;
close(inp);
end;
Postavlu vopros inache : "Mozhno li, i kak ,esli da, primenit` etot kod dlia neskol`ki matric, meniaja tol`ko parametr funkcii,a ne samo ee telo ?
Ну, если Вам нравится заново поизобретать что-нибудь, то пожалуйста... Только учтите, что приведенная процедура ничего вернуть не может, поскольку матрица описана в ней локально, следовательно она исчезнет при выходе из процедуры... Скажите спасибо SHnur-у :D
Чтобы вернуть матрицу (притом, как выясняется - не одну, а несколько), нет другого пути, кроме как использовать Var - параметры... Но этот путь Вас устраивает только "как вариант", тогда ищите другой.
Отвечаю не вопрос - нет. Нельзя применить процедуру SHnur-а для ввода нескольких матриц... У нее просто НЕТ параметров... Я уже привел свой вариант... В крайнем случае, могу посоветовать вот это:
Вот так...
Чтобы вернуть матрицу (притом, как выясняется - не одну, а несколько), нет другого пути, кроме как использовать Var - параметры... Но этот путь Вас устраивает только "как вариант", тогда ищите другой.
Отвечаю не вопрос - нет. Нельзя применить процедуру SHnur-а для ввода нескольких матриц... У нее просто НЕТ параметров... Я уже привел свой вариант... В крайнем случае, могу посоветовать вот это:
Код
program vvod_matr;
const
m=3; n=3;
type
matr=array[1..m,1..n] of integer;
Procedure read_matrix(s: string; var a: matr);
var
inp: text;
i, j: integer;
begin
assign(inp, s);
reset(inp);
for i:=1 to m do
for j:=1 to n do
read(inp,A[i,j]);
for i:=1 to m do begin
for j:=1 to n do
write(A[i,j],' ');
writeln;
end;
close(inp)
end;
var
A, B : matr;
begin
writeln('Ishodmaja Matrica A : ');
read_matrix('c:\a.txt', A);
writeln('Ishodmaja Matrica B : ');
read_matrix('c:\b.txt', B)
end.
const
m=3; n=3;
type
matr=array[1..m,1..n] of integer;
Procedure read_matrix(s: string; var a: matr);
var
inp: text;
i, j: integer;
begin
assign(inp, s);
reset(inp);
for i:=1 to m do
for j:=1 to n do
read(inp,A[i,j]);
for i:=1 to m do begin
for j:=1 to n do
write(A[i,j],' ');
writeln;
end;
close(inp)
end;
var
A, B : matr;
begin
writeln('Ishodmaja Matrica A : ');
read_matrix('c:\a.txt', A);
writeln('Ishodmaja Matrica B : ');
read_matrix('c:\b.txt', B)
end.
Вот так...
Poslednij variant, vot eto ja i imel vvidu ! :yes:
Spasiba za podskazku !
Spasiba za podskazku !
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.