полностью убрать дробную часть числа

[Rainz]

С паскалем столкнулся недавно, попросили решить задачу по информатике.
качнул мануал, накидал, но вот вывод меня не устраивает..

Задача: Из заданной матрици А(5х7) элементы которой формируются по формуле ..... сформировать одномерный массив В состоящий из элементов матрицы, которые стоят на пересечении четных строк и четных столбцов матрицы А и т.д

Код:

program zadanie1;
var
i,j,k:integer;
sa:real;
matrixA:array[1..5,1..7] of real;
arrB:array[1..6] of real;
filename:string;
wfile:text;
begin

for i:=1 to 5 do
  for j:=1 to 7 do
    matrixA[i,j]:=2*sin(3*i)+3*(sin(3*j*i)/cos(3*j*i));

k:=1;

for i:=2 to 5 do begin
  if (i mod 2)=0 then begin
    for j:=2 to 7 do begin
      if (j mod 2)=0 then begin
        arrB[k]:=matrixA[i,j];
        inc(k);
      end;
    end;
  end;
end;

for i:=1 to 6 do
  writeln(arrB[i]);

for i:=1 to 6 do
  sa:=sa + arrB[i];
sa:=sa/6;

writeln('Srednee arifmiticheskoe:=', sa);

filename:='result.txt';
Assign(wfile,filename);
Rewrite(wfile);
Writeln(wfile, 'matrixA, ishodnaya matriza:');
for i:=1 to 5 do
  for j:=1 to 7 do
    Writeln(wfile,matrixA[i,j]);
Writeln(wfile, 'arrB, massiv B:');
for i:=1 to 6 do
  Writeln(wfile, arrB[i]);
Writeln('Information write to the file');
Close(wfile);
end.

Массив В:
-2.46641078238099E+0000
-6.96352108956489E+0000
2.26925817207084E+0001
-7.47783592916676E+0000
2.52723589334710E+0000
-1.86039796850673E+0000

мне нужно убрать все после и вместе с точкой, либо как то привести к типу integer. Нашел в мане функцию int() она возвращает тоже самое, только после точки везде нули..

[Stilet]

Writeln(wfile, arrB[i]:5);

[Grag]

Чтобы привести к целочисленному типу применяй функции Round(X) или Trunc(X). Можно форматировать вывод Writeln(Y:xx:zz)... zz - количество цифр после запятой. Функция Int() возвращает вещественный тип данных...

[Rainz]

Фунцию Trunc() пробывал использовать, рукается что не хватает библиотеки WINCRT кажется, буквально вчера столкнулся с паскалем, скачал TurboPascal 7.0. Там просто среднеарифмитическое подсчитать нужно, а с этой дробной частью все в кривь и в кось, да и сама она не красиво выглядит..

[Grag]

И причем тут WINCRT? Эти функции находятся в модуле SYSTEM...

[Rainz]

Виноват.. исправил. теперь другая тема:
arrB[k]:=Trunc(matrixA[i,j]); - добавил тут..
вывод раньше был таким:
-2.46641078238099E+0000
-6.96352108956489E+0000
2.26925817207084E+0001
-7.47783592916676E+0000
2.52723589334710E+0000
-1.86039796850673E+0000

теперь:
-2
-6
22
-7
2
-1
Мне интересно как получилось 22 из 2.26925817207084E+0001, когла все другие числа остались нормальными отбросив свою дробную часть..

[Alex Cones]

Мне интересно как получилось 22 из 2.26925817207084E+0001

Для кого тут единица стоит?

[Rainz]

Alex Cones мэн объясни, или хотяб скажи где про это почитать можно?

[Alex Cones]

Похоже про экспотенциальную запись числа Вы ничего не знаете?

Ну ладно, объясню.

YYEXX означает YY * 10^XX.

Примеры:

1E00 = 1
1E01 = 1 * 10^1 = 1 * 10 = 10
1E02 = 1 * 10^2 = 1 * 100 = 100
1E-01 = 1 * 10^-1 = 1 / 10 = 0.1

[Serge_Bliznykov]

а ещё можно почитать на википедии - Экспоненциальная запись

2.26925817207084E+0001

это, если записать в обычной форме значит мантисса умноженная на 10 в первой степени...
получается: 22.6925817207084