Решаю, но не получается...ошибки какие-то...может у вас получится...=)

1) Определить, пересекаются ли параболы у=ах^2+bc+c и y=dx^2+mx+n. Если пересекаются, то найти точку пересечения.

2) Записать элементы массива Х, удовлетворяющие условию 1≤Xi≤2, подряд в массив Y. Поменять местами максимальный и минимальный элементы в массиве Y.

1

Ответы и объяснения

2013-06-02T19:56:41+00:00

Укажу ключевые моменты

первая задача сводится к решению (a-d)x^2+(b-m)x+(c-n)=0

Disc=(b-m)^2-4*(a-d)*(c-n)

if Disc<0 then

writeln('Пересечений нет');

else

if disc=0 then

x=-(b-m)/(2*(a-d));

y=a*x^2+b*x+c;

else

x1=(-(b-m)-sqrt(disc))/(2*(a-d));

y1=a*x1^2+b*x1+c;

x2=(-(b-m)+sqrt(disc))/(2*(a-d));

y2=a*x2^2+b*x2+c;

endif;

endif;

 

2 задача

for i:=1 to n do begin

if x[i]<=2 and x[i]>=1 then inc(n1);

end;

j:=1;

for i:=1 to n do begin

if x[i]<=2 and x[i]>=1 then

y[j]:=x[i];

inc(j);

endif;

end;

max:=1;

min:=2;

for i:=1 to n1 do begin

if min>y[i] then

min:=y[i];

i_min:=i;

endif;

 

if max<y[i] then

max:=y[i];

i_max:=i;

endif;

 

end;

 

temp:=y[i_max];

y[i_max]:=y[i_min];

y[i_min]:=temp;