Delphi 7.

[nvse]

Здравствуйте,программа простая,но есть один непонятный момент.Вот

Код

program QX_35;

{$APPTYPE CONSOLE}

uses
SysUtils;
const
M=3;
N=3;
Type
ARR=Array[1..M,1..N] of real;
K=real;
Var
F1:file of ARR;
F2:file of K;
Mas:ARR;
R,Sum:K;
i,j:byte;
begin
R:=0;
Sum:=0;
For i:=1 to M do
For j:=1 to N do
begin
write('Mas [',i,',',j,']= ');
readln(Mas[i,j]);
end;

Assign(F1,'D:/Массив.txt');
Assign(F2,'D:/Массив.txt');
Rewrite(F1);
write(F1,Mas);
close(F1);
Reset(F2);

For i:=1 to M do
For j:=1 to N do
begin
If (i>j) then
Read(F2,R);
Sum:=Sum+R
end;
close(F2);
writeln('Sum:=',Sum:3:3);
readln;

{ TODO -oUser -cConsole Main : Insert code here }
end.

Теперь собственно вопрос:допустим я ввожу числа от 17 до 25.(В кодировке это как раз числа от 1 до 9)
Но в файле Массив.txt я вижу следущее:

Откуда берётся символ @ после каждой цифры?
Заранее спасибо.

Comments

[Forumsdk]

не могу точно сказать, но это вроде запись числа с плавающей точкой, у тебя ведь тип real

[nvse]

Да,скорее всего именно из-за этого.Я просто integer поставил только что и ввёл числа от 49 до 57.Теперь всё нормально.Спасибо.
Кстати я ошибся,числа от 0 до 9 как раз кодируются в диапазоне от 48 до 57.