Паскаль, работа с текстом

[__STDC__]

Сообщение от profi

Инкремировать (прибавить один) можно только одной переменной одновременно, так:

inc(top_sum);

или так:

inc(x[i,j]);

да? почитайте, как время будет http://www2.toki.or.id/fpcdoc/ref/re...201-20700013.3

[profi]

Приведите код вашей программы лучше.

да? почитайте, как время будет http://www2.toki.or.id/fpcdoc/ref/re...201-20700013.3

Это знаю. Но некоторые компиляторы так не воспринимают. У меня были такие случаи.

[__STDC__]

Сообщение от profi

Приведите код вашей программы лучше.

вы мне? он выше написан

[tipson]

так че получается надо по одному инкремировать?
ща попробую

top_sum(X:matrix):integer;


top_sum := 0;

ты сначала пишешь что топ_сум это матрица
а потом пишешь "матрице" присвоить 0 разве так можно
или я о5 че та путаю?

[__STDC__]

оО top_sum возвращает ЦЕЛОЕ значение.. 0 - ЦЕЛОЕ значение.. тип matrix имеет параметр X

[tipson]

Сообщение от __STDC__

оО top_sum возвращает ЦЕЛОЕ значение.. 0 - ЦЕЛОЕ значение.. тип matrix имеет параметр X

как все сложно
ни фига не понял
не понял одно
но proga v borland turbo pascal не запускается

[__STDC__]

приведите полный текст ошибки и исходный код, если вы его модифицировали..

[tipson]

const
	n = 3;
	
type
	matrix = array[1..n,1..n] of integer;
	
procedure fill_matrix(var X:matrix);
var
	i,j:byte;
begin
	randomize;
	for i:=1 to n do
		for j:=1 to n do
			X[i,j] := random(10);
end;
	
procedure out_matrix(X:matrix);
var
	i,j:byte;
begin
	for i:=1 to n do begin
		for j:=1 to n do
			write(X[i,j]:4);
		writeln;
	end;
end;

function top_sum(X:matrix):integer;
var
	i,j:byte;
begin
	top_sum := 0;
	for i:=1 to n do 
		for j:=1 to n-i do
			top_sum := top_sum + x[i,j];
end;

function bot_sum(X:matrix):integer;
var
	i,j:byte;
begin
	bot_sum := 0;
	for i:=1 to n do 
		for j:=n-i+2 to n do
			bot_sum := bot_sum + x[i,j];
end;

var
	A:matrix;
BEGIN
	fill_matrix(A);
	out_matrix(A);
	writeln(top_sum(A)/bot_sum(A):0:5);
	readln;
END.

[tipson]

полный текст ошибки
"<" expected

[__STDC__]

на какой строке ошибка? лично у меня все работает