обработка массива

[parshuk]

Парни,составляю программу по преобразованию массива.Написал пока часть. Но вот кусок для вычисления суммы 3й строки матрицы B 3х6 вызывает сомнение.Вроде программа работает,но при проверке этой суммы на калькуляторе почему-то эта самая сумма не совпадает на 2-3 тысячных.
В чём может быть дело?

Вот сама программа:

Program Massiv(Input,Output);
Uses Crt;
Label 12;
Type Vector=array[1..6] of real;
Matrica=array[1..3,1..6] of real;
Var A,A1:Vector; B:Matrica;
Sum3B,R:real; i,j:byte; Flag:boolean;
Begin
{'enter the array data A'}
ClrScr;
writeln('calculation of the values of the array A');
for i:=1 to 6 do read(A[i]);
{'calculation of the values of the array B'};
for i:=1 to 3 do
for j:=1 to 6 do 
B[i,j]:=sin(i)+cos(A[j]);
{'The output of the elements of the arrays A and B'}
writeln;
writeln('array A:');
for i:=1 to 6 do write(A[i]:7:3,' ');
writeln;
writeln('array B:');
for i:=1 to 3 do
begin
for j:=1 to 6 do write(B[i,j]:7:3,' ');
writeln;
Sum3B:=0;
for j:=1 to 6 do 
Sum3B:=Sum3B+B[3,j];
end;
writeln('Summa 3 line Sum3B=',Sum3B:7:3);
End.

Подсчёт суммы 5-6я строка от конца программы Sum3B.

[Abstraction]

0) Программный код на форуме оформляется тегом CODE.

1) Вероятно, дело в превышении точности. Если я правильно помню синтаксис write, Вы выводите три знака после запятой. Попробуйте выводить, скажем, пять.

[parshuk]

Да,направление понято. Изменил на 5,теперь несовпадение на 0.00002-3.
Получается,если изменить вычисление члена B[i,j] с точностью до 5 знаков,а подсчёт суммы 3й строки оставить как есть(до 3х),то при округлении должно всё совпасть.
Ага,получилось.Спасиб.

for j:=1 to 6 do write(B[i,j]:7:5,' ');
writeln;
Sum3B:=0;
for j:=1 to 6 do 
Sum3B:=Sum3B+B[3,j];
end;
writeln('Summa 3 line Sum3B=',Sum3B:7:3);

[interacia]

for i:=1 to 3 do
begin
for j:=1 to 6 do write(B[i,j]:7:3,' ');
writeln;
end; // а здесь надо

Sum3B:=0;
for j:=1 to 6 do Sum3B:=Sum3B+B[3,j];
//end; ненадо.
writeln('Summa 3 line Sum3B=',Sum3B:7:3);
End.

end; нужно закрывать вовремя

[s-andriano]

И еще совет: никогда не используйте в Паскале тип real.
Он был изобретен в свое время для компьютеров на 88/86/286 процессорах без сопроцессоров (FPU).
Вместо него следует применять single, double либо extended, которые обрабатываются аппаратно. Заодно получаете более высокую (и контролируемую) точность вычислений.

[parshuk]

Спасиб за советы. "end" переставил,сразу получился правильный вывод.
Насчёт real ,буду пробовать.