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

[tipson]

ошибка где "+" в выделенных строчках
пишет "<" Нужен
borland turbo pascal 7.0 если че у меня

[__STDC__]

вы < и ( различаете? пришло скачать tp7 и dosbox... в общем вся проблема в том, что в tp имя функции как переменную можно использовать только в левой части выражения... используйте временную переменную для подсчета суммы, а результат в конце присваивайте

[tipilat]

uses crt;
const bk=['A'..'Z','a'..'z','А'..'п','р'..'ё'];
Var s: string;
    j,i,len,max: integer;
Begin
clrscr;
write('s: ');
readln (s);
i:= 1;max:=0;
while i<=length (s) do
if not(s[i] in bk) then
  begin
    j:= i+1;
    while (j<=length(s)) and not(s[j] in bk) do inc (j);
    len:=j-i;
    if len>max then max:=len;
    i:=j+1;
  end
else inc (i);
writeln('Max dlina serii=',max);
readln;
end.

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

на счёт этой проги: Как процедуры в нее включить..?

может кто то ответит мне по этой теме?..

[puporev]

Неужели часть кода с места на место трудно переставить?

uses crt;
const bk=['A'..'Z','a'..'z','А'..'п','р'..'ё'];
procedure MaxLen(st:string; var max:byte);
var  j,i,len: integer;
begin
i:= 1;max:=0;
while i<=length (st) do
if not(st[i] in bk) then
  begin
    j:= i+1;
    while (j<=length(st)) and not(st[j] in bk) do inc (j);
    len:=j-i;
    if len>max then max:=len;
    i:=j+1;
  end
else inc (i);
writeln('Max dlina serii=',max);
end;
var s: string;
    mx:byte;
begin
clrscr;
write('s: ');
readln (s);
MaxLen(s,mx);
readln
end.

Инкремировать (прибавить один) можно только одной переменной одновременно, так:
inc(top_sum);
или так:
inc(x[i,j]);

Вот посмотрите здесь, этому же господину писал, нормально работает inc(sm,x[i,j]); и не надо ничего выдумывать, инкремировать не значит прибавлять один, а прибавлять любое целое число, в том числе и отрицательное, это просто заменитель знака плюс.
http://www.programmersforum.ru/showp...1&postcount=10

[tipson]

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

вы < и ( различаете? пришло скачать tp7 и dosbox... в общем вся проблема в том, что в tp имя функции как переменную можно использовать только в левой части выражения... используйте временную переменную для подсчета суммы, а результат в конце присваивайте

а пример?

[__STDC__]

на примере одной функции

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

или же, как было сказано выше.. вместо этого

			res := res + x[i,j];

отлично отработает это

			inc(res,x[i,j]);

[tipson]

все пашет
терь нада сделать так, чтобы матрица вводилась не рэндомом, а вручную
нада же заменить ту часть где randomize?
Нада убрать что N=3 эт о константа, и сделать так, чтобы и его тоже вводили

я так понял, нада вообще убрать процедуру ввод матрицы, так как по другому не получицца

program prog1;
uses crt;
type
	matrix = array[1..20,1..20] of integer;
	

	
procedure out_matrix(X:matrix);
var
	n,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
 n,i,j:byte;
  res:integer;

begin
	res:=0;
	for i:=1 to n do
		for j:=1 to n-i do
			res:=res+x[i,j];
      top_sum:=res;
end;

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

var
	A:matrix;
  i,j,n:byte;
BEGIN
clrscr;
writeln('enter n');
readln(n);
for i:=1 to n do
for j:=1 to n do
begin
write('vvedite a[',i,',',j,']=');
readln(A[i,j]);
end;
	out_matrix(A);
	writeln(top_sum(A)/bot_sum(A):0:5);
	readln;
end.

не пашет
че та

invalid floating point operation

[puporev]

Да выкинь все нафиг, оставь begin и end. Никаких ошибок не будет.

[tipson]

создание матрицы я не выкинул, а просто сделал не в виде функции а в виде обычного цикла
в самом конце проги

[puporev]

Не умеешь, не лезь. Если n у тебя не константа, то размер матрицы должен передаваться из программы в процедуры и функции как параметр, иначе никакой матрицы нет, а есть безвоздушное пространство и все числа которые ты вводишь не знают куда им идти.
Короче матрицу ты не создаешь и не спорь, если не рубишь, а спрашивай, и не обижайся, если пошлют. Это как нищий на паперти, проявит гордость, ничего не заработает.

program prog1;
uses crt;
type
matrix = array[1..20,1..20] of integer;
procedure out_matrix(var X:matrix;n:byte);
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;n:byte):integer;
var
  i,j:byte;
  res:integer;

begin
res:=0;
for i:=1 to n do
for j:=1 to n-i do
res:=res+x[i,j];
top_sum:=res;
end;

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

var
	A:matrix;
  i,j,n:byte;
BEGIN
clrscr;
writeln('enter n');
readln(n);
for i:=1 to n do
for j:=1 to n do
begin
write('vvedite a[',i,',',j,']=');
readln(A[i,j]);
end;
	out_matrix(A,n);
	writeln(top_sum(A,n)/bot_sum(A,n):0:5);
	readln;
end.