program proga_25_1; Var A: text; i,j,n,m : byte; d: string; Sim:char; Begin write('Введите имя текстового файла '); {Например: "test" он создастся там где находится сама программа } read(d); Assign(A,d); rewrite(A); write('Введите количество строк: N= '); readln(n); write('Введите количество символов в строке: M= '); readln(m); for I:=1 to n do begin Sim:=Chr(Ord('1')+I-1); For J:=1 to m do write(A,Sim); writeln(A); end; close(A); end.
//Я просто опишу метод записи матрицы const n=100; var ar:array of array of integer; ars:array of array of string; i:integer;
procedure complection(var ar:array of array of integer;var ars:array of array of string); var i,j:integer; begin; for i:=1 to n do begin; for j:=1 to n do begin; ar[i,j]:=random(9); str(ar[i,j],ars[i,j]); end; end; end;
procedure burning(ars:array of array of string); var i,j:integer; t:text; begin; assign(t,'text.txt'); rewrite(t); for i:=1 to n do begin; writeln(t,' '); for j:=1 to n do write(t,ars[i,j],' '); end; end;
begin; randomize; setlength(ar,n+1); setlength(ars,n+1); for i:=1 to n do begin; setlength(ar[i],n+1); setlength(ars[i],n+1); end; complection(ar,ars); burning(ars); end.
Обычно 1 символ = 1 байт = 8 бит, если другое не оговаривается в условии задачи следовательно:
14400 * 10 : 8 = 18000 символа
336600 * 10 * 8 = 420750 символа