пользовательские процедуры и функции Опции

[Катерина Рез.]

1. Составить функцию, вычисляющую в целом N нет одинаковых цифр. (при помощи логической функции Boolean, которая выводила бы значение false, true).
2. Составить процедуру для вычисления количества точек внутри окружности с заданным центром с целоисленными координатами.
3. В массивах X и Y находятся координат точек на плоскости. Определить наименьшую длину отрезка 2-х точек.
4. В квадратной матрице заполнить единицами все элементы главной диагонали и выше, остальные - нулями.
5. Аппроксимировать производную f(x) в точке x₀ ('икс нулевое') с шагом dx.

[TarasBer]

Ну и? Ты просишь нас это сделать на тебя? Тут так не принято.

[Lapp]

не, ну мне нравится...
Я завтра зарегюсь, приду, отсканю ползадачника, тему назову "переменные" и буду сидеть хихикать, пока все эти умники решают!
А потом напишу: а зачем вы решали? я вас что - просил что ли?..


Катерина_Рез., уважаемая, начни решать одну из этих задач, и если будет что-то непонятно по программированию (а не по тому, как свалить задание) - тогда приходи, прочти Правила для начала, создай тему по правилам - и мы тогда обязательно поможем!!

А пока - have a good day!

[Катерина Рез.]

Доброго времени суток.
Я совсем запуталась с задачкой(Умножение прямоугольных матриц 2 на 3 и матрицы 3 на 2). Нужно при помощи функции или процедуры, если есть у кого желание..скажите пожалуйста,что нужно сделать чтобы программа работала. в результате произведения у меня получается матрица, сосстоящая из нулей или ошибка error 26 при добавлении строчки s:=Pr(X,Y,Z), а хочется верный ответ.

program lab73;

type Matrice=array[1..5,1..5] of longint;
var X:Matrice;
    Y:Matrice;
    Z:Matrice;
    s:integer;
    i,j,k:integer;
Function Pr(X:Matrice;Y:Matrice;Z:Matrice):real;

begin
s:=s+X[i,k]*Y[k,j];
Z[i,j]:=s;
end;

begin
writeln('nahogdenie proizvedenia dvyh matric.');
writeln('vvedite poocheredno elementy 1y matricy: ');
for i:=1 to 2 do
for j:=1 to 3 do
begin
write('X[',i,',',j,']= ');
readln(X[i,j]);
end;
writeln('vvedite poocheredno elementi 2y matricy: ');
for i:=1 to 3 do
for j:=1 to 2 do
begin
write('Y[',i,',',j,']= ');
readln(Y[i,j]);
end;
begin
for k:=1 to 2 do
s:=Pr(X,Y,Z);
Z[i,j]:=s;
end;
writeln;
writeln('polychennai matrica: ');
for i:=1 to 2 do
begin
for j:=1 to 2 do
write(Z[i,j]:5);
writeln;
end;
readln;
end.

[Lapp]

Кать, если ты не будешь читать, что тебе пишут (в частности - администраторы), то разговора не получится.
Еще раз: прочти Правила и создай тему по правилам.

Закрыто.