Хыиуду » 04 дек 2006, 11:39
По-моему, проблемы тут могут возникнуть только с первой задачей. Остальные не так уж сложны.
2. Проверяешь в цикле все точки. Проверяешь во вложенном цикле расстояние от текущей точки до одной из остальных. Если оно меньше R - увеличиваешь счетчик для этой точки. После этого еще раз проверяешь все точки, у которой счетчик больше - та и есть искомая.
3. К примеру, так:
ma:=1;
mb:=1;
for i:=1 to length(c) do
if A[ma]<=B[mb] then
begin
c:=A[ma];
ma:=ma+1;
end
else begin
c:=B[mb];
mb:=mb+1;
end;
4. Сделать цикл по всем строкам. В каждой строке вложенным циклом найти минимальный элемент. После этого еще один вложенный цикл по тому столбцу, где стоит этот элемент. Если в столбце есть элемент, больший, чем найденный минимум - переходим к следующей строке, если все элементы меньше, чем найденный - он и является седловой точкой.
5. Считывать в строку из текста буквы, пока не появится символ "пробел". После этого проверить: if pos(last,newword)=length(newword)-length(last)+1, то вывести это слово. last - заданное окончание, newword - только что считанное слово. После этого очистить эту строку и продолжать читать, пока текст не кончится.
По-моему, проблемы тут могут возникнуть только с первой задачей. Остальные не так уж сложны.
2. Проверяешь в цикле все точки. Проверяешь во вложенном цикле расстояние от текущей точки до одной из остальных. Если оно меньше R - увеличиваешь счетчик для этой точки. После этого еще раз проверяешь все точки, у которой счетчик больше - та и есть искомая.
3. К примеру, так:
ma:=1;
mb:=1;
for i:=1 to length(c) do
if A[ma]<=B[mb] then
begin
c[i]:=A[ma];
ma:=ma+1;
end
else begin
c[i]:=B[mb];
mb:=mb+1;
end;
4. Сделать цикл по всем строкам. В каждой строке вложенным циклом найти минимальный элемент. После этого еще один вложенный цикл по тому столбцу, где стоит этот элемент. Если в столбце есть элемент, больший, чем найденный минимум - переходим к следующей строке, если все элементы меньше, чем найденный - он и является седловой точкой.
5. Считывать в строку из текста буквы, пока не появится символ "пробел". После этого проверить: if pos(last,newword)=length(newword)-length(last)+1, то вывести это слово. last - заданное окончание, newword - только что считанное слово. После этого очистить эту строку и продолжать читать, пока текст не кончится.