Задача по Turbo Pascal

[assis2007]

Большое спасибо т.е. если я поставлю место inc(zero) zero:=zero+1 ничего не измениться насколько я понял.

[Хыиуду]

assis2007, именно!

[Oleg_Rus]

а что если создать еще один одномерный массив, и записывать в нем кол-во ненулевых эл-ов, причем заполнение идет параллельно матрице? например при просмотре 1 столбца, пусть заполняется 1 эл-т второго массива и т.д. и вонце распечатать максимум из второго массива? Согласен программа далеко не оптимизирована, но должна работать.

[Oleg_Rus]

for i:=1 to n do
for j:=1 to m do
if a[i, j]<>0 then b:=b+1;
max:=0;
for i:=1 to n do
if b>max then max:=b;
write(max);

[assis2007]

можно конешно но это дополнительные накрутки и мне они не нужны. У меня другая проблема: найти три точки, чтобы внутри треугольника с вершинами в этих точках содержалось бы наибольшее число заданных точек.

[Хыиуду]

(0, oo), (-oo, -oo), (oo,-oo).
А вообще - точка D находится внутри треугольника ABC, если сумма углов ABD+DBC равна углу ABC, и то же самое для остальных вершин. Углы можно определять по теореме косинусов из длин сторон, а они определяются по координатам по теореме Пифагора

[Alykards]

Привет всем.Помогите пожалуйста мне решить задачу:
Найти значение функции y=(2)х(здесь х - степень)*sinx при заданном значении x и проверить лежит ли точка с координатами(х,у) в областе D(область D - это 1/4 круга координатной площади,
где начало круга(0,2), а конец - (2,0))
Очень нужно!

[Alykards]

Привет всем.Пожалуйста помогите решить задачу:
Найти значение функции y=(2)х(здесь х - степень)*sinx при заданном значении x и проверить лежит ли точка с координатами(х,у) в областе D(область D - это 1/4 круга координатной площади,
где начало круга(0,2), а конец - (2,0))
Очень надо!

[Хыиуду]

f(x)=exp(sin(x)*ln(2))
(sqrt(sqr(x)+sqr(y))<=2) and (x>0) and (y>0)

[assis2007]

Ну что мысли у кого-нибудь есть какие-нибудь?найти три точки, чтобы внутри треугольника с вершинами в этих точках содержалось бы наибольшее число заданных точек.