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

[tipson]

Сообщение от Вавел из ГМТУ

Ты великий взломщик... Может ругается на отсутствие ";" в конце строки?

фуу... ненавижу хакеров...
а на счет проги, я просто пробел не там поставил

[__STDC__]

вот, пришел... прокомментирую

{
 Процедура генерации перестановок
 s   - исходная строка
 new - фрагмент сгенерированной строки 
 }
procedure change(s,new:string);
var
	t1,t2:string; //временные переменные, значение аналогично значениям параметров ф-ции
	i:byte;
begin
	t1 := s; t2 := new;
	if (length(t1) > 1) then //если длина исходной строки больше одного символа
		for i:=1 to length(t1) do begin 
			t2 := t2 + t1[i]; //помещаем i-й символ исходной строки в t2
			delete(t1,pos(t1[i],t1),1); //удаляем i-й символ из исходной строки
			change(t1,t2); //рекурсивно вызываем функцию change
			t1 := s; t2 := new; //восстанавливаем переменные в первоначальное значение
		end
	else //когда длина строки становится равной 1
		writeln(t2,t1); //выводим полученную перестановку
end;

var
	s,new:string;
begin
	new := ''; //изначально переменная пуста
	readln(s); //считываем строку
	change(s,new); 
	readln;
end.

Не знаю, будет ли вам понятно... Проще сделать, чем объяснить... Вся суть в рекурсии... Если сможете сформулировать вопрос, что вам конкретно непонятно, я постараюсь ответить как можно более доходчиво

[tipson]

t2 := t2 + t1[i]; //помещаем i-й символ исходной строки в t2

если у нас t1 Это просто символьная переменная откуда там '[i]'ый элемент? (раз это не массив)

[__STDC__]

не путайте символьные и строковые переменные... t1 - строковая переменная... строка - это массив символов.. поэтому мы и можем обращаться к отдельным элементам строки по индексам

[tipson]

аааа
понятно
плс НЕ обращайся во мн числе

аа все вроди понятно
спасибо
+ тебе

посмотри плс сюда
тут мне тоже с кодом помогли но нужно как нить внедрить туда процедуры

[__STDC__]

я не знаю, что там у вас, не хочу разбираться.. я бы сделал так

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
			inc(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
			inc(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]

ГУРУ
еще раз спс
токо вот

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

пишет invalid variable reference

[__STDC__]

ну измените так

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

[profi]

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

ГУРУ
еще раз спс
токо вот

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

пишет invalid variable reference

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

inc(top_sum);

или так:

inc(x[i,j]);

[tipson]

а теперь пишет что там должен быть знак "<"