Считать из файла с последующей записью в другой файл

@tritonn88 · Регистрация: 28.09.2010

не хочется слишком активно злоупотреблять вниманием и добротой обитателей форума, но никак не получается такая простая на первый взгляд вещь, как считывание матрицы из файла с последующей записью в файл.
задание:считать матрицу из файла, в матрице в столбцах где есть ноль обнулить все элементы и результат записать в новый файл.

Pascal

program LABA_7;
uses crt;
var
a:array[1..10, 1..10] of integer;
i,j,k,z,g: integer;
begin
clrscr;
writeln('vvedite colvo strok');
readln(k);
writeln('vvedite cilvo stolbcov');
readln(g);
 
writeln('Vvedite el-ti matrici i nagmite ENTER: ' );
for i:=1 to k do {stroka}
for j:=1 to g do {stolbec}
read(a[i,j]);
 
for i:=1 to k do
for j:=1 to g do
 if a[i,j]=0 then
 for z:=1 to k do
   a[z,j]:=0;
 
      writeln;
for i:=1 to k do
begin
for j:=1 to g do write(a[i,j],' ' );
writeln;
end;
readkey;
end.

(как говорится основа есть, но прицепить текстовики правильно не получается)

@Puporev · 30.09.2010, 14:53

Сообщение от tritonn88

writeln('vvedite colvo strok');
readln(k);
writeln('vvedite cilvo stolbcov');
readln(g);

И нафига это, если матрица в файле?
Нужно ее прочитать, а не задавать .
Как у вас матрица в файле записана?

@tritonn88 · 30.09.2010, 15:02 **[ТС]**

это оригинальная программа, поэтому в ней всё ещё есть эти строки, в проге которая мне нужна их естественно не будет.
будет обычный текстовик в котором будет записанна матрица, ну например такая.
3 4 0
5 0 6
7 8 2
я так понимаю что программа должна обратится к этому файлу и считать из него числа,
и в этом месте у меня и возникла проблема, т.к. я не понимаю как.
(никогда до этого не приходилось работать с текстовиками.. поэтому представляю весь процесс довольно смутно)

@Puporev · 30.09.2010, 15:23

Пишете матрицу в файл через пробелы, в конце строк никого мусора.
в первой строке размеры(если по условию квадратная, то один размер)
затем саму матрицу, типа
3 4
3 4 0 2
5 0 6 5
7 8 2 8

Pascal

var f:text;
     a:array[1..20,1..20] of integer;
     m,n,i,j:byte;
begin
assign(f,'matrix.txt');
reset(f);
read(f,m);
read(f,n);
for i:=1 to m do
 begin
 for j:=1 to n do
  begin
   read(f,a[i,j]);
   write(a[i,j]:4);
  end;
 writeln;
end;

@Puporev Почетный модератор 64276 / 47575 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	30.09.2010, 14:53	2
	Сообщение от tritonn88 writeln('vvedite colvo strok'); readln(k); writeln('vvedite cilvo stolbcov'); readln(g); И нафига это, если матрица в файле? Нужно ее прочитать, а не задавать . Как у вас матрица в файле записана? 0

@tritonn88 0 / 0 / 0 Регистрация: 28.09.2010 Сообщений: 6
	30.09.2010, 15:02 [ТС]	3
	это оригинальная программа, поэтому в ней всё ещё есть эти строки, в проге которая мне нужна их естественно не будет. будет обычный текстовик в котором будет записанна матрица, ну например такая. 3 4 0 5 0 6 7 8 2 я так понимаю что программа должна обратится к этому файлу и считать из него числа, и в этом месте у меня и возникла проблема, т.к. я не понимаю как. (никогда до этого не приходилось работать с текстовиками.. поэтому представляю весь процесс довольно смутно) 0

Опции темы