1. Составить функцию, вычисляющую в целом N нет одинаковых цифр. (при помощи логической функции Boolean, которая выводила бы значение false, true).
2. Составить процедуру для вычисления количества точек внутри окружности с заданным центром с целоисленными координатами.
3. В массивах X и Y находятся координат точек на плоскости. Определить наименьшую длину отрезка 2-х точек.
4. В квадратной матрице заполнить единицами все элементы главной диагонали и выше, остальные - нулями.
5. Аппроксимировать производную f(x) в точке x0 ('икс нулевое') с шагом dx.
Ну и? Ты просишь нас это сделать на тебя? Тут так не принято.
не, ну мне нравится...
Я завтра зарегюсь, приду, отсканю ползадачника, тему назову "переменные" и буду сидеть хихикать, пока все эти умники решают!
А потом напишу: а зачем вы решали? я вас что - просил что ли?..
Катерина_Рез., уважаемая, начни решать одну из этих задач, и если будет что-то непонятно по программированию (а не по тому, как свалить задание) - тогда приходи, прочти Правила для начала, создай тему по правилам - и мы тогда обязательно поможем!!
А пока - 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.
Кать, если ты не будешь читать, что тебе пишут (в частности - администраторы), то разговора не получится.
Еще раз: прочти Правила и создай тему по правилам.
Закрыто.