Реферат: Ввод вывод данных в дельфи

2. Вывод матрицы В в компонент Memo с расчетом позиций чисел и в файл ' d:\ rez. txt'

var ff : textfile ;

d,p,z,i,j:integer; // позиции, счетчик пробелов, длина числа

ss,aa :string; // промежуточные строки ss –строка матрицы ;

// аа-строка для числа

begin

assignfile ( ff,' d:\ rez. txt'); // связь с файлом на диске

rewrite ( ff); // открыть файл для записи

ss:='';

d:=8; // 8 позиций на число

memo2.Lines.Add('матрица В') ; // вывод в memo2

writeln( ff,'матрица В') ; // вывод в файл

for I:=1 to m do begin

For j:=1 to n do

Begin aa:= floattostr (b[i,j]); //расчет длины числа и добавление пробелов

// до 8 символов (на 1 число)

z:= d - length (aa);

if b[i,j] <0 then z:=z+1;

for p:=1 to z do SS:=ss+' '; // 1 пробел между апострофами

ss := ss + floattostr (b[i,j]) +' '; // 2 пробела между апострофами

end;

memo2.Lines.Add(ss) ;

writeln( ff, ss) ;

ss:=''; // без пробелов между апострофами

d:=8; end;

closefile(ff); // закрыть файл

end;

end.

Вид файла D : \ rez. txt с результатами :