Question

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

Answer 1

Ответ:

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.

Объяснение:

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