Заполнить матрицу А(N,N) числами натурального ряда

@Ирина03 · Регистрация: 05.02.2009

Студворк — интернет-сервис помощи студентам

Заполнить матрицу А(N,N) числами натурального ряда в последова¬тельности, указанной на рисунке и найти их сумму.

@Puporev · 06.02.2009, 17:31

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
uses crt;
var a:array[1..20,1..20]of integer;
    n,x,y,i,j:byte;{размер матрицы, координаты и счетчики циклов}
    num:byte;{натуральные числа 1,2,3...n*n}
    add:byte;{длина пути до поворота}
    dir:integer;{шаг (1 или -1)}
    sum:integer;{сумма}
begin
clrscr;
write('n=');readln(n);
x:=n;{по горизонтали координата=n}
y:=0;{по вертикали=0}
num:=1;{первое число}
sum:=1;{первая сумма}
Add:=n;{первый путь=n}
dir:=1;{шаг=+1}
while (add<>0) do{пока не кончился путь(пока не поворот)}
begin
  i:=0;
  while (i<>add) do {пока счетчик не равен длине пути}
    begin
    y:=y+dir;{идем по столбцу сначала вниз, попом вверх}
    a[y,x]:=num;{запоминаем число}
    num:=num+1;{увеличиваем число}
    sum:=sum+num;{прибавляем к сумме}
    i:=i+1;{увеличиваем счетчик}
    end;
  i:=0;{обнуляем счетчик}
  dir:=-dir;{меняем знак шага}
  add:=add-1;{уменьшается длина следующих двух отрезков пути}
  while (i<>add) do{все повторяется, только по строкам}
    begin
    x:=x+dir;
    a[y,x]:=num;
    num:=num+1;
    sum:=sum+num;
    i:=i+1;
    end;
end;
for i:=1 to n do
   begin
     for j:=1 to n do
     write(a[i,j]:4);
     writeln;
   end;
writeln;
writeln('Summa=',sum);
readln
end.

@Ирина03 · 07.02.2009, 09:28 **[ТС]**

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
uses crt;
var a:array[1..20,1..20]of integer;
    n,x,y,i,j:byte;{размер матрицы, координаты и счетчики циклов}
    num:byte;{натуральные числа 1,2,3...n*n}
    add:byte;{длина пути до поворота}
    dir:integer;{шаг (1 или -1)}
    sum:integer;{сумма}
begin
clrscr;
write('n=');readln(n);
x:=n;{по горизонтали координата=n}
y:=0;{по вертикали=0}
num:=1;{первое число}
sum:=1;{первая сумма}
Add:=n;{первый путь=n}
dir:=1;{шаг=+1}
while (add<>0) do{пока не кончился путь(пока не поворот)}
begin
  i:=0;
  while (i<>add) do {пока счетчик не равен длине пути}
    begin
    y:=y+dir;{идем по столбцу сначала вниз, попом вверх}
    a[y,x]:=num;{запоминаем число}
    num:=num+1;{увеличиваем число}
    sum:=sum+num;{прибавляем к сумме}
    i:=i+1;{увеличиваем счетчик}
    end;
  i:=0;{обнуляем счетчик}
  dir:=-dir;{меняем знак шага}
  add:=add-1;{уменьшается длина следующих двух отрезков пути}
  while (i<>add) do{все повторяется, только по строкам}
    begin
    x:=x+dir;
    a[y,x]:=num;
    num:=num+1;
    sum:=sum+num;
    i:=i+1;
    end;
end;
for i:=1 to n do
   begin
     for j:=1 to n do
     write(a[i,j]:4);
     writeln;
   end;
writeln;
writeln('Summa=',sum);
readln
end.

Вопрос зачем угловые элементы суммируються два раза???
и выводит концовку масива в центре не так как на рисунке????

а можно будет сделать ввод элементов матрицы пользователем????
(подкиньте идейку)

@Puporev · 07.02.2009, 12:31

Вопрос зачем угловые элементы суммируються два раза???

Не доглядел, исправьте так:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
sum:=[COLOR="Red"]0;[/COLOR]
Add:=n;
dir:=1;
while (add<>0) do
begin
  i:=0;
  while (i<>add) do
    begin
    y:=y+dir;
    a[y,x]:=num;
    sum:=sum+num;{переставить строки}
    num:=num+1;
    i:=i+1;
    end;
  i:=0;
  dir:=-dir;
  add:=add-1;
  while (i<>add) do
    begin
    x:=x+dir;
    a[y,x]:=num;
    sum:=sum+num;{переставить строки}
    num:=num+1;
    i:=i+1;
    end;
end;

и выводит концовку масива в центре не так как на рисунке????

Для нечетных матриц, у которых есть центр, выводит точно как на рисунке, а у четных матриц, у которых нет цента, естественно выводит не так, важно направление заполнения матрицы.

а можно будет сделать ввод элементов матрицы пользователем????

В принципе все можно, надо чуток подумать.

Добавлено через 1 минуту 1 секунду
По поводу ввода, просто у Вас задание

Заполнить матрицу А(N,N) числами натурального ряда

Добавлено через 14 минут 47 секунд
Вот вариант с ручным вводом, можно и отрицательные числа вводить, если integer на real переделать, то и вещественные. Кстати у меня сначала видимо и был такой вариант, потому что в первом варианте переменная j уже есть, но не используется.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
uses crt;
var a:array[1..20,1..20]of integer;
    b:array[1..400]of integer;
    n,x,y,i,j:byte;
    num:integer;
    add:byte;
    dir:integer;
    sum:integer;
begin
clrscr;
write('n=');readln(n);
writeln('Vvedite ',n*n,' elementov massiva B:');
for i:=1 to n*n do
  begin
    write('b[',i,']=');
    readln(b[i]);
  end;
clrscr;
writeln('Ishodnyj massiv chisel:');
for i:=1 to n*n do
write(b[i],' ');
writeln;
writeln;
x:=n;
y:=0;
j:=1;
num:=b[j];
sum:=0;
Add:=n;
dir:=1;
while (add<>0) do
begin
  i:=0;
  while (i<>add) do
    begin
    y:=y+dir;
    a[y,x]:=num;
    sum:=sum+num;
    j:=j+1;
    num:=b[j];
    i:=i+1;
    end;
  i:=0;
  dir:=-dir;
  add:=add-1;
  while (i<>add) do
    begin
    x:=x+dir;
    a[y,x]:=num;
    sum:=sum+num;
    j:=j+1;
    num:=b[j];
    i:=i+1;
    end;
end;
for i:=1 to n do
   begin
     for j:=1 to n do
     write(a[i,j]:4);
     writeln;
   end;
writeln;
writeln('Summa=',sum);
readln
end.

Добавлено через 2 часа 28 минут 25 секунд
Кстати этот вариант ввода неудачный, через массив.
Вот сделал нормальный ручной ввод.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
uses crt;
var a:array[1..20,1..20]of integer;
    n,x,y,i,j:byte;
    num:byte;
    add:byte;
    dir:integer;
    sum:integer;
    p:byte;{количество позиций под число}
begin
clrscr;
write('n=');readln(n);
x:=n;
p:=3;{для 1-2х значных можно 3 позиции}
y:=0;
sum:=0;
Add:=n;
dir:=1;
while (add<>0) do
begin
  i:=0;
  while (i<>add) do
    begin
    y:=y+dir;
    gotoxy(x*p-2,y+1);{устанавливаем курсор}
    readln(a[y,x]);{вводим число}
    sum:=sum+a[y,x];
    i:=i+1;
    end;
  i:=0;
  dir:=-dir;
  add:=add-1;
  while (i<>add) do
    begin
    x:=x+dir;
    gotoxy(x*p-2,y+1);
    readln(a[y,x]);
    sum:=sum+a[y,x];
    i:=i+1;
    end;
end;
writeln;
writeln;
writeln('Summa=',sum);
readln
end.

@Ирина03 · 07.02.2009, 12:58 **[ТС]**

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

Не доглядел, исправьте так:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
sum:=[COLOR="Red"]0;[/COLOR]
Add:=n;
dir:=1;
while (add<>0) do
begin
  i:=0;
  while (i<>add) do
    begin
    y:=y+dir;
    a[y,x]:=num;
    sum:=sum+num;{переставить строки}
    num:=num+1;
    i:=i+1;
    end;
  i:=0;
  dir:=-dir;
  add:=add-1;
  while (i<>add) do
    begin
    x:=x+dir;
    a[y,x]:=num;
    sum:=sum+num;{переставить строки}
    num:=num+1;
    i:=i+1;
    end;
end;

Для нечетных матриц, у которых есть центр, выводит точно как на рисунке, а у четных матриц, у которых нет цента, естественно выводит не так, важно направление заполнения матрицы.

В принципе все можно, надо чуток подумать.

Добавлено через 1 минуту 1 секунду
По поводу ввода, просто у Вас задание

Добавлено через 14 минут 47 секунд
Вот вариант с ручным вводом, можно и отрицательные числа вводить, если integer на real переделать, то и вещественные. Кстати у меня сначала видимо и был такой вариант, потому что в первом варианте переменная j уже есть, но не используется.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
uses crt;
var a:array[1..20,1..20]of integer;
    b:array[1..400]of integer;
    n,x,y,i,j:byte;
    num:integer;
    add:byte;
    dir:integer;
    sum:integer;
begin
clrscr;
write('n=');readln(n);
writeln('Vvedite ',n*n,' elementov massiva B:');
for i:=1 to n*n do
  begin
    write('b[',i,']=');
    readln(b[i]);
  end;
clrscr;
writeln('Ishodnyj massiv chisel:');
for i:=1 to n*n do
write(b[i],' ');
writeln;
writeln;
x:=n;
y:=0;
j:=1;
num:=b[j];
sum:=0;
Add:=n;
dir:=1;
while (add<>0) do
begin
  i:=0;
  while (i<>add) do
    begin
    y:=y+dir;
    a[y,x]:=num;
    sum:=sum+num;
    j:=j+1;
    num:=b[j];
    i:=i+1;
    end;
  i:=0;
  dir:=-dir;
  add:=add-1;
  while (i<>add) do
    begin
    x:=x+dir;
    a[y,x]:=num;
    sum:=sum+num;
    j:=j+1;
    num:=b[j];
    i:=i+1;
    end;
end;
for i:=1 to n do
   begin
     for j:=1 to n do
     write(a[i,j]:4);
     writeln;
   end;
writeln;
writeln('Summa=',sum);
readln
end.

Добавлено через 2 часа 28 минут 25 секунд
Кстати этот вариант ввода неудачный, через массив.
Вот сделал нормальный ручной ввод.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
uses crt;
var a:array[1..20,1..20]of integer;
    n,x,y,i,j:byte;
    num:byte;
    add:byte;
    dir:integer;
    sum:integer;
    p:byte;{количество позиций под число}
begin
clrscr;
write('n=');readln(n);
x:=n;
p:=3;{для 1-2х значных можно 3 позиции}
y:=0;
sum:=0;
Add:=n;
dir:=1;
while (add<>0) do
begin
  i:=0;
  while (i<>add) do
    begin
    y:=y+dir;
    gotoxy(x*p-2,y+1);{устанавливаем курсор}
    readln(a[y,x]);{вводим число}
    sum:=sum+a[y,x];
    i:=i+1;
    end;
  i:=0;
  dir:=-dir;
  add:=add-1;
  while (i<>add) do
    begin
    x:=x+dir;
    gotoxy(x*p-2,y+1);
    readln(a[y,x]);
    sum:=sum+a[y,x];
    i:=i+1;
    end;
end;
writeln;
writeln;
writeln('Summa=',sum);
readln
end.

сумму снова неправильно считает:'( и массив он заполняет станно как то например я ввожу массив 7777 а он мне его заполняет так
7777
7 7 вот так как то

и сумму пишет равна 7

@Puporev · 07.02.2009, 14:48

Не понимаю, для чего Вы все время цитируете мои сообщения, пока доберешься до конца, помереть можно.
У меня все нормально работает, не знаю, что Вы там пишете. Неужели даже мелкие огрехи сами поправить не можете? Кто же Вам поверит, что Вы сами программы написали.
Во вложении 2 программы. Ввод через массив и непосредственно по спирали в матрицу. Я несколько раз прогонял при разных параметрах, все нормально. Гонять эти программы до смерти не собираюсь, есть дела поинтересней. Давайте дальше сами.

@schdub · 07.02.2009, 16:19

Действительно, все нормально работает...

@Ирина03 · 07.02.2009, 16:53 **[ТС]**

да спасибо я тоже уже убедилась что все просто отлично

СПАСИБО!!!

@Ирина03 · 09.02.2009, 10:03 **[ТС]**

Полученные результаты должны быть занесены в последовательный файл и доступны для просмотра из него.

@Puporev · 09.02.2009, 10:17

Сделайте точно также, как я только что написал в другой теме.

@Ирина03 · 09.02.2009, 18:40 **[ТС]**

пробовала

не получилось у меня ничего ерунду какую то выводит... делала все по тем примерам... помогите пожалуйста еще разок

@Puporev · 09.02.2009, 19:12

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
uses crt;
var a:array[1..20,1..20]of integer;
    n,x,y,i,j:byte;
    num:byte;
    add:byte;
    dir:integer;
    sum:integer;
    p:byte;{kol. pozicij pod chislo}
    f:text;
begin
clrscr;
write('n=');readln(n);
x:=n;
p:=3;{3 pozicii}
y:=0;
sum:=0;
Add:=n;
dir:=1;
while (add<>0) do
begin
  i:=0;
  while (i<>add) do
    begin
    y:=y+dir;
    gotoxy(x*p-2,y+1);
    readln(a[y,x]);{здесь у нас ввода нет, только чтение, поэтому в файл не выводим}
    sum:=sum+a[y,x];
    i:=i+1;
    end;
  i:=0;
  dir:=-dir;
  add:=add-1;
  while (i<>add) do
    begin
    x:=x+dir;
    gotoxy(x*p-2,y+1);
    readln(a[y,x]);
    sum:=sum+a[y,x];
    i:=i+1;
    end;
end;
writeln;
writeln;
writeln('Summa=',sum);
assign(f,'spiral1.txt');{когда всю матрицу ввели, выводим ее в файл}
rewrite(f);
for i:=1 to n do
  begin
    for j:=1 to n do
    write(f,a[i,j]:4);
    writeln(f,'');
  end;
writeln(f,'');
write(f,'Summa=',sum);
close(f);
readln
end.

@Ирина03 · 28.02.2009, 15:53 **[ТС]**

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

не пойму в чем доле. Буду благодарна за помощь

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
uses crt;
var a:array[1..20,1..20]of integer;
    b:array[1..400]of integer;
    n,x,y,i,j:byte;
    num:integer;
    add:byte;
    dir:integer;
    sum:integer;
begin
clrscr;
write('n=');readln(n);
writeln('Vvedite ',n*n,' elementov massiva B:');
for i:=1 to n*n do
  begin
    write('b[',i,']=');
    readln(b[i]);
  end;
clrscr;
writeln('Ishodnyj massiv chisel:');
for i:=1 to n*n do
write(b[i],' ');
writeln;
writeln;
x:=n;
y:=0;
j:=1;
num:=b[j];
sum:=0;
Add:=n;
dir:=1;
while (add<>0) do
begin
  i:=0;
  while (i<>add) do
    begin
    y:=y+dir;
    a[y,x]:=num;
    sum:=sum+num;
    j:=j+1;
    num:=b[j];
    i:=i+1;
    end;
  i:=0;
  dir:=-dir;
  add:=add-1;
  while (i<>add) do
    begin
    x:=x+dir;
    a[y,x]:=num;
    sum:=sum+num;
    j:=j+1;
    num:=b[j];
    i:=i+1;
    end;
end;
for i:=1 to n do
   begin
     for j:=1 to n do
     write(a[i,j]:4);
     writeln;
   end;
writeln;
writeln('Summa=',sum);
readln
end.

@Puporev · 28.02.2009, 16:02

делать запись ф последовательный файл и просмотр из него

А где в Вашей программе файл?
И почему не пользуетесь выше приведенным кодом?

@Ирина03 · 28.02.2009, 16:22 **[ТС]**

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

@Puporev · 28.02.2009, 19:44

Но в файл-то там обычным способом записывается. И зачем сначала записывать в файл, потом из него просматривать, если можно сам файл посмотреть, да и на экране матрица уже есть. Я смысл не понимаю. Напишите тогда полное задание, буковка в буковку.

@Ирина03 · 28.02.2009, 20:17 **[ТС]**

мне нужно в моем коде программы который я выложила сделать запись в файл и все.

@Puporev · 28.02.2009, 20:36

Добавьте в раздел
var f:text;
В конце после
writeln;
writeln('Summa=',sum);
вставьте это.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
assign(f,'spiral1.txt');{когда всю матрицу ввели, выводим ее в файл}
rewrite(f);
for i:=1 to n do
  begin
    for j:=1 to n do
    write(f,a[i,j]:4);
    writeln(f,'');
  end;
writeln(f,'');
write(f,'Summa=',sum);
close(f);
readln
end.

@Ирина03 · 28.02.2009, 20:57 **[ТС]**

спасибо

@Puporev · 28.02.2009, 21:00

Ведь оба кусочка кода из своего предыдущего кода просто скопировал. Неужели так трудно?

Новые блоги и статьи Все статьи Все блоги /
Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Programma_Boinc 01.01.2026 Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .

@Ирина03 6 / 6 / 0 Регистрация: 05.02.2009 Сообщений: 59

	Заполнить матрицу А(N,N) числами натурального ряда 06.02.2009, 15:42. Показов 2940. Ответов 21 Метки нет (Все метки) Заполнить матрицу А(N,N) числами натурального ряда в последова¬тельности, указанной на рисунке и найти их сумму. Изображения 0

@schdub 3073 / 1411 / 425 Регистрация: 19.01.2009 Сообщений: 3,893
	07.02.2009, 16:19
	Действительно, все нормально работает... 1

@Ирина03 6 / 6 / 0 Регистрация: 05.02.2009 Сообщений: 59
	07.02.2009, 16:53 [ТС]
	да спасибо я тоже уже убедилась что все просто отлично СПАСИБО!!! 0

@Ирина03 6 / 6 / 0 Регистрация: 05.02.2009 Сообщений: 59
	09.02.2009, 10:03 [ТС]
	Полученные результаты должны быть занесены в последовательный файл и доступны для просмотра из него. 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	09.02.2009, 10:17
	Сделайте точно также, как я только что написал в другой теме. 1

@Ирина03 6 / 6 / 0 Регистрация: 05.02.2009 Сообщений: 59
	09.02.2009, 18:40 [ТС]
	пробовалане получилось у меня ничего ерунду какую то выводит... делала все по тем примерам... помогите пожалуйста еще разок 0

@Ирина03 6 / 6 / 0 Регистрация: 05.02.2009 Сообщений: 59
	28.02.2009, 16:22 [ТС]
	вот я и прошу у вас помощи сделать запись в последовательный файл и просмотр из него? а предыдущим примером не пользуюсь потому что там ввод элементов массива идет по другому а мне нужно чтобы было как в моем примере 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	28.02.2009, 19:44
	Но в файл-то там обычным способом записывается. И зачем сначала записывать в файл, потом из него просматривать, если можно сам файл посмотреть, да и на экране матрица уже есть. Я смысл не понимаю. Напишите тогда полное задание, буковка в буковку. 1

@Ирина03 6 / 6 / 0 Регистрация: 05.02.2009 Сообщений: 59
	28.02.2009, 20:17 [ТС]
	мне нужно в моем коде программы который я выложила сделать запись в файл и все. 0

@Ирина03 6 / 6 / 0 Регистрация: 05.02.2009 Сообщений: 59
	28.02.2009, 20:57 [ТС]
	спасибо 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	28.02.2009, 21:00
	Ведь оба кусочка кода из своего предыдущего кода просто скопировал. Неужели так трудно? 1