x1 ≈ 2,3
x2 ≈ - 1,3
Смотри картинки
Объяснение:
1) В ячейку B1 пишем y = x*x - 2
2) В ячейку C1 пишем y = x + 1
3) В ячейку A2 пишем x
4) В ячейку B2 пишем y
5) В ячейку C2 пишем y
6) В ячейку A3 пишем -1,5
7) В ячейку A4 пишем -1,25
8) Выделите ячейки А3 и А4 в правом нижнем углу появится зелёный квадратик, а рядом с ним квадратик с выпадающим списком, в котором надо выбрать Заполнение. Потяните за зелёный квадратик вниз до А19.
9) В ячейку В3 пишем формулу = A3*A3-2
10) Копируем ячейку В3, выделяем диапазон В4:В19 и вставляем эту формулу
11) В ячейку С3 пишем формулу =A3+1
12) Копируем ячейку С3, выделяем диапазон С4:С19 и вставляем эту формулу
13) Выделяем диапазон А2:С19 выбираем вкладку Вставка, затем Диаграмма, Точечная. Появляется график.
14) По графику смотрим координаты х в точках пересечения графиков.
15) В ячейку N5 пишем x1 ≈ 2,3
16) В ячейку N6 пишем x2 ≈ - 1,3
uses crt;
const nmax=20;
type matr=array [1..nmax,1..nmax] of integer;
mas=array [1..nmax] of integer;
var a: matr;
a1,a2,a3,a4: mas;
n,m: byte;
procedure Vvod (var z: matr; var ri,rj: byte);
var i,j: byte;
begin
repeat
write('Kol-vo strok, ne menee 4, ne bolee ',nmax,', n='); readln(ri);
until ri in [4..nmax];
repeat
write('Kol-vo stolbzov, ne bolee ',nmax,', n='); readln(rj);
until rj in [1..nmax];
writeln('Vvedite elementy matrizy:');
for i:=1 to ri do
for j:=1 to rj do
begin
write('a[',i,',',j,']='); readln(z[i,j]);
end;
end;
procedure Vivod (z: matr; ri,rj: byte);
var i,j: byte;
begin
writeln('Ischodnaja matriza');
for i:=1 to ri do
begin
for j:=1 to rj do
write(z[i,j]:4);
writeln;
end;
end;
procedure Vivod1M (c: char; z: mas; rj: byte);
var j: byte;
begin
writeln('Massiv ',c);
for j:=1 to rj do
write(z[j]:4);
writeln;
end;
procedure MakeArray (ns: byte; x: matr; var y: mas; rj: byte);
var j: byte;
begin
for j:=1 to rj do
y[j]:=x[ns,j];
end;
function Jmin (z: mas; rj: byte): byte;
var j,jm: byte;
begin
jm:=1;
for j:=1 to rj do
if z[j]<z[jm] then jm:=j;
Jmin:=jm;
end;
procedure Zamena (var z: mas; rj: byte);
var j: byte; g: integer;
begin
g:=z[Jmin(z,rj)];
if Jmin(z,rj)<rj then
for j:=Jmin(z,rj)+1 to rj do
z[j]:=g;
end;
begin
Vvod (a,n,m);
clrscr;
Vivod (a,n,m);
MakeArray (1,a,a1,m);
MakeArray (2,a,a2,m);
MakeArray (3,a,a3,m);
MakeArray (4,a,a4,m);
writeln('Massivy do preobrazovania');
Vivod1M ('1',a1,m);
Vivod1M ('2',a2,m);
Vivod1M ('3',a3,m);
Vivod1M ('4',a4,m);
Zamena (a1,m);
Zamena (a2,m);
Zamena (a3,m);
Zamena (a4,m);
writeln('Massivy posle zameny');
Vivod1M ('1',a1,m);
Vivod1M ('2',a2,m);
Vivod1M ('3',a3,m);
Vivod1M ('4',a4,m);
readln;
end.