Решите уравнение х2-5x+6=0 используя ниже приведенный пример. оформи решение задачи в тетради на языке паскаль, с использованием уже известных данных. Запишите полностью построчное решение и ответ.(фотография - это пример

220

378

Посмотреть ответы 1

Ответы на вопрос:

MoonyGirl04

Информатика

4,6(53 оценок)

// pascalabc.net 3.2, сборка 1439 от 09.05.2017 // внимание! если программа не работает, обновите версию! type point=(real,real); function readpoint(n: integer): point; begin var a,b: real; write('координаты точки ',n,': '); read(a,b); result: =(a,b) end; function getpoints(n: integer): array of point; begin result: =new point[n]; for var i: =0 to n-1 do result[i]: =readpoint(i+1) end; function lsqr(a,b: point): =sqr(b[0]-a[0])+sqr(b[1]-a[1]); function diags(a: array of point; n: integer): array of real; begin result: =new real[n*(n-3) div 2]; var k: =0; for var i: =0 to n-3 do for var j: =i+2 to min(n+i-2,n-1) do begin result[k]: =lsqr(a[i],a[j]); k+=1 end; end; begin var n: =readinteger('количество вершин: '); if n> 3 then begin var a: =getpoints(n); writeln('длина наибольшей диагонали равна ',sqrt(diags(a,n).max): 0: 5) end else writeln('диагонали отсутствуют') end. пример количество вершин: 5 координаты точки 1: -3 2.5 координаты точки 2: 3 5.2 координаты точки 3: 6.1 1 координаты точки 4: 2 -7.3 координаты точки 5: -5 -7 длина наибольшей диагонали равна 14.58904