, посчитайте с написанием кода программы в Pascal. По заданным координатам двух точек определить какой является линейная функция( убывающая ,возрастающая, монотонной) . Даю 100 поинтов

program program1;

Type

coord = Array[0. . 1] of integer;

var x,y:coord;

i:integer;

begin

writeln('Введите координаты точек, после каждого числа нажмите enter');

writeln('Координаты для x:');

for i:=0 to 1 do readln(x[i]);

writeln('Координаты для y:');

for i:=0 to 1 do readln(y[i]);

writeln('x[',x[0],',',x[1],'], ','y[',y[0],',',y[1],']');

if (x[0]=y[0]) and (x[1]=y[1]) then writeln('Координаты на одной точке, линии нет')

else

if (x[0]=y[0]) or (x[1]=y[1]) then writeln('Функция монотонна')

else

if ((x[0]<y[0]) and (x[1]<y[1])) or ((x[0]>y[0]) and (x[1]>y[1]))

then writeln('Функция возрастающая')

else

if ((x[0]>y[0]) and (x[1]<y[1])) or ((x[0]>y[0]) and (x[1]<y[1]))

then writeln('Функция убывающая')

else

writeln('С вашей функцией происходит какая-то ерунда')

end.

Просто представь две точки на координатной сетке и посмотри как отличаются значения координат в большую и меньшую сторону для разных позиций. В общем по коду всё должно быть понятно.