Вопрос № 95326: Здравствуйте, уважаемые экперты!
Помогите, пожалуйста, полному чайнику в разрешении задачи.
1)Даны действительные числа x,y. Определить, принадлежит ли точка с координатами x,y заштрихованной части плоскости.(заштрихованная часть плоскости-кр...
Вопрос № 95.326
Здравствуйте, уважаемые экперты!
Помогите, пожалуйста, полному чайнику в разрешении задачи.
1)Даны действительные числа x,y. Определить, принадлежит ли точка с координатами x,y заштрихованной части плоскости.(заштрихованная часть плоскости-круг радиусом 1 и центром в начале координат).
2)Дана целочисленная матрица [Aij]i, j=1,...,n. Получить b1,...,bn, где bi-это сумма j=1 до n |Aij|.
3)Даны натуральное число a, символы s1,...,sn. Группы символов, разделенные пробелами (одним или несколькими) и не содержащие пробелов внутри себя, будем называть словами. Найти какое нибудь слово, начинающееся на букву a.
Помогите пожалуйста, от этого зависит дальнейшая моя судьба в университете!
Отвечает: Зенченко Константин Николаевич
Здравствуйте, Соловьев Максим Сергеевич!
1-я и 2-я задача.
Смотрите приложение!
Удачи!
Приложение:
--------- И только наступив на грабли мы приобретаем драгоценный опыт!
Ответ отправил: Зенченко Константин Николаевич (статус: Практикант)
Ответ отправлен: 16.07.2007, 17:44 Оценка за ответ: 5
Отвечает: Дмитрий С.
Здравствуйте, Соловьев Максим Сергеевич!
Дана целочисленная матрица [Aij]i, j=1,...,n. Получить b1,...,bn, где bi-это сумма j=1 до n |Aij|.
var A: array [1..n, 1..n] of integer;
B: array [1..n] of integer;
i,j: integer;
function ABC(var elem: integer): integer;
VAR ch: integer;
Begin
ch := 0;
for j:=1 to n do
ch := ch + abs(A[elem, j]);
ABC := ch;
end;
BEGIN
// Заполнение Массива А
for i:=1 to n do B[i] := ABC(i);
END.
--------- Наши программисты самые программистые программисты!..
Ответ отправил: Дмитрий С. (статус: 3-ий класс)
Ответ отправлен: 19.07.2007, 16:02
