создать двумерный массив, заполнить случайными числами, сохранить в файл

[buba]

Добрый вечер!
Немогу разобраться.Написал прогу (как смог):создать двумерный массив заполнить случайными числами сахранить в файл и тд... Так вот на экран выводится матрица полностью а в файл сохраняется не вся.Подскажите в чём прикол? Зарание спасибо.

[Mixasik]

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

Добрый вечер!
Немогу разобраться.Написал прогу (как смог):создать двумерный массив заполнить случайными числами сахранить в файл и тд... Так вот на экран выводится матрица полностью а в файл сохраняется не вся.Подскажите в чём прикол? Зарание спасибо.

А где же сам код программы?

[buba]

. Сформировать двумерный массив D размером N x 6 (N – количество строк, равное предпоследней цифре номера студенческого билета +2 6 – количество столбцов) с помощью генератора случайных чисел и вывести элементы массива на экран и в файл (см. п.3.4. и п.3.6.). В каждом столбце матрицы D найти максимальный элемент (оформить нахождение максимального элемента в виде функции). Среди найденных чисел найти минимальное и вывести на экран и в файл.-задание.

var    	T: array [1..6] of integer;
        D: array [1..7,1..6] of integer;
	i,j,s,a,x,y,q: integer;
        f1:text;
function min(x,y:integer):integer;
begin
    if x<y then min:=x
            else min:=y;
                    y:=s;
                     s:=a;
                      a:=x;
                        end;
function max(x,y:integer):integer;
begin
    if x>y then max:=x
            else max:=y;
                    y:=s;
                     s:=a;
                      a:=x;
                        end;
begin
assign(f1,'rez.txt');
              rewrite(f1);
    randomize;
       for i:=1 to 7 do
begin
       for j:=1 to 6 do
begin
    D[i,j]:=random(100);
	  
write (f1,D[i,j]:4);
write (D[i,j]:4);
                       end;
		    
writeln (f1);
writeln;
                         end;
begin
       for j:= 1 to 6 do 
begin
       for i:= 1 to 7 do
       x:= max(x,D[i,j]);
                  T[j]:=x;
                      x:=0;
end;
end;
   writeln ('max=');
    for j:= 1 to 6 do
       write (T[j]:4);
               x:=T[1];
       for i:= 2 to 6 do
         x:= min(x,T[i]);
                  writeln;
          write ('min=',x);
                        end.

Народ ну хоть намекните или посоветуйте

Всё всем большое спасибо за помощь. Разобрался сам.

[felixandr]

У меня такое-же задание.
Поделись исправленным кодом. Пожалуйста!!

[Mad_Cat]

16.11.2008

Пацан уж институт закончил наверное)

[dima-bashlykov]

Знаю, что уже старая тема, но новичкам пригодится) В конце программы не дописана строка close (f1); перед end иначе результат не сохранится.

Конечный вариант:

uses
  crt;

var
  T: array [1..6] of integer;
  D: array [1..7, 1..6] of integer;
  i, j, s, a, x, y, q: integer;
  f1: text;

function min(x, y: integer): integer;
begin
  if x < y then min := x
  else min := y;
  y := s;
  s := a;
  a := x;
end;

function max(x, y: integer): integer;
begin
  if x > y then max := x
  else max := y;
  y := s;
  s := a;
  a := x;
end;

begin
  assign(f1, 'Control rezult.txt');
  rewrite(f1);
  clrscr;
  randomize;
  writeln('Znachenie massiva D razmerom 7x6');
  writeln(f1, 'Znachenie massiva D razmerom 7x6');
  for i := 1 to 7 do
  begin
    for j := 1 to 6 do
    begin
      D[i, j] := random(100);
      write(D[i, j]:4);
      write(f1, D[i, j]:4);
    end;
    writeln;
    writeln(f1);
  end;
  begin
    for j := 1 to 6 do
    begin
      for i := 1 to 7 do
        x := max(x, D[i, j]);
      T[j] := x;
      x := 0;
    end;
  end;
  begin
    writeln('Max. elementy massiva:');
    writeln(f1, 'Max. elementy massiva:');
    for j := 1 to 6 do
    begin
      write(T[j]:4);
      write(f1, T[j]:4);
    end;
    begin
      x := T[1];
      for i := 2 to 6 do
        x := min(x, T[i]);
    end;
  end;
  writeln;
  writeln(f1);
  write('Min. element massiva:');
  write(f1, 'Min. element massiva:');
  writeln;
  writeln(f1);
  write(' ', x);
  write(f1, ' ', x);
  writeln;
  close(f1);
end.

[dima-bashlykov]

Немного переписал программу, стала компактнее:

const
  a = 4;

const
  b = 6;

type
  D = array [1..a, 1..b] of integer;

var
  T: D;
  a1, b1, x, y, z: integer;
  tx: text;

function m2(m1: D): integer;
var
  a2, b2: integer;
begin
  y := 100;
  Writeln('Max. elementy massiva:');
  Writeln(tx, 'Max. elementy massiva:');
  for b2 := 1 to b do
  begin
    x := m1[1][b2];
    for a2 := 2 to a do
    begin
      if x < m1[a2][b2] then x := m1[a2][b2];
    end;
    Write(x:4);
    Write(tx, x:4);
    if y > x then y := x;
  end;
  writeln;
  writeln(tx);
  m2 := y;
end;

begin
  assign(tx, 'Control result.txt');
  rewrite(tx);
  //clrscr;
  Randomize;
  Writeln('Znachenie massiva D razmerom 4x6');
  Writeln(tx, 'Znachenie massiva D razmerom 4x6');
  for a1 := 1 to a do
  begin
    for b1 := 1 to b do
    begin
      T[a1, b1] := Random(100);
      Write(T[a1][b1]:4);
      Write(tx, T[a1][b1]:4);
    end;
    Writeln;
    Writeln(tx);
  end;
  z := m2(T);
  Writeln('Min. element massiva:');
  Writeln(tx, 'Min. element massiva:');
  write(z:4);
  write(tx,z:4);
  readln;
  close(tx);
end.

a = высота, b = ширина массива

[Golden_RUS]

const a = 6;
  b = 6;
  n=100;
var ar:array[0..a, 0..b] of integer;
i, j:byte;
f:text;
begin
assign(f,'mas.txt');
rewrite(f);
randomize;
for i:=0 to a do
begin
  for j:=0 to b do
  begin
    ar[i, j]:=random(n);
    write(IntToStr(ar[i, j])+' ');
    write(f, IntToStr(ar[i, j])+' ');
  end;
writeln(f, '');
writeln('');
end;
close(f);
end.

Еще немного компактней и понятней.