Регистрация
Afakado
21.05.2023 15:06
Информатика
Есть ответ 👍

Двухфакторная линейная (билинейная) интерполяция

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

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

жанна19882
жанна19882
4,5(83 оценок)
1) program average; var     i: integer;     answer,  s, tmp: real; begin     for i : = 1 to 5 do     begin         readln(tmp);         s : = s + tmp       end;     answer : = s  / 5;     writeln(answer) end. 2) program  equation; var     a, b, c, d, x1, x2: real; begin       writeln('ввеедите коэфициенты квадратного многочлена');       readln(a);       readln(b);       readln(c);     if a < >   0 then      begin      d : = b*b - 4*a*c;       if d < 0 then         writeln('действительных корней нет')     else if d = 0 then     begin         x1 : = -b/(2*a);         writeln('единственный корень:   ',x1)     end else     begin         x1 : = (-b + sqrt(d))  /  (2*a);         x2 : = (-b - sqrt(d))  /  (2*a);         writeln('два корня:   ',x1,', ',x2)       end;     end         else writeln('старший коэфициент не может равняться 0') end.

Популярно: Информатика