Мәтін берілген. Мәтіндегі гиперсілтемені көрсетіңіз және гиперсілтеменің қолданылу мақсатын түсіндіріңіз: Мәтіннің бірегейлігін тексеру: https://text.ru/antiplagiat

Итак, для начала разберемся с формулой:

+ bx + c = 0

Возьмем случайные значения

a = 1

b = -11

c = -152

Подставим и получим

x^2 - 11x - 152 = 0

d = 27

x1 = 19

x2 = -8

Теперь подставим всё это в программу:

var

  a,b,c,i,n : integer;

  r1,r2,d       : real;

begin

  i:=0;

  write('Введите колличество повторений: ');

  read(n);

  while i <> n do

     begin

 i:=i+1;

        writeln('Ввод номер ', i, ': ');

 write('a = '); read(a);

 write('b = '); read(b);

 write('c = '); read(c);

 d:=(sqr(b) - (4*a*c));

 if d > 0 then

 begin

    r1:=((-b + sqrt(d)) / (2*a));

    writeln('x1= ', r1:3:2);

    r2:=((-b - sqrt(d)) / (2*a));

    writeln('x2= ', r2:3:2)

 end

     else

 if (d = 0) then

 begin

    writeln('x = ');

    writeln(-b / (2 * a))

 end

     else

 if (d < 0) then

 begin

    writeln('Нет корней')

 end

     end;

end.

Написать оператор, который описывает массив num из 10 вещественных элементов, индекс первого элемента равен 2.

var num: array[2..12] of real;

2. Написать оператор, который вводит с клавиатуры одномерный массив В из 30 элементов, начиная с нулевого.

for i:=0 to 29 do

read(B[i]);

3. Написать оператор, который выводит на экран в столбик номера и значения элементов одномерного массива mas из 30 элементов.

for i:=1 to 30 do

writeln(i, ' ',mas[i]);

4. Написать оператор, который выводит на экран ненулевые элементы одномерного массива mas из 20 элементов.

for i:=1 to 20 do

if mas[i]<>0 then

writeln(mas[i]);

5. Сдвинуть все элементы массива a[1..n] вправо на 1 позицию

t:=a[n];

for i:=n-1 downto 1 do

a[i+1]:=a[i];

a[1]:=t;

6. Получить инвертированный одномерный массив (с использованием вс массива)

program invert_massiv;

const n=7;

Var a,b:array[1..n] of integer; i: integer;

begin

Randomize;

for i:=1 to n do

a[i]:=random(11);

writeln('Исходный массив');

for i:=1 to n do

write(a[i]:3, ' ');

for i:=0 to n-1 do

b[i+1]:=a[n-i];

writeln;

writeln('Инвертированный массив');

for i:=1 to n do

write(b[i]:3, ' ');

end.

7. Та же задача, но с использованием одного массива и вс переменной t

for i:=1 to n div 2 do

begin

t:=a[i];

a[i]:=a[n-i+1];

a[n-i+1]:=t;

end;