Имеется текстовый файл. В данном текстовом файле, в каждой строке находится два числа. Первое число – X, второе число – Y т.е. значение некоторой функции Y=f(X). Необходимо считать данные из файла в массивы. Найти 3 точки, значение которых максимально сильно отличается от тех значений, которые будут вычислены с полученного уравнения этой прямой.
Для нахождения 3-х точек необходимо вычислять значение y и сравнивая разности вычисленных и хранящихся в файле найти максимальные разности.
Данные из файла необходимо считывать несколько раз, первый раз для подсчёта среднего значения переменных x и y, после это необходимо еще раз считать для нахождения суммы отклонений (шаг 2 и 3).
После вычисления коэффициентов k и b эти значения необходимо вывести в файл, который должна создать ваша программа. Также необходимо вывести значение x и y тех точек, которые имели наибольшее отклонение (отклонение должно считаться по модулю).

👇

Увидеть ответ

Ответ:

54Азиз

02.12.2022

ответ:Прллдшголлмшпщр

Объяснение:тслпшагп6а

4,5(61 оценок)

Открыть все ответы

Ответ:

Dmitry0232141

02.12.2022

1) uses crt;
var a,s:real;
i,n:integer;
begin
write('Введите число А: ');
readln(a);
write('Введите число N: ');
readln(n);
s:=1;
for i:=1 to n do begin
s:=s*a;
end;
writeln('Число ',a,' в степени ',n,' равно ',s);
end.

2)uses crt;
var a,s:real;
i,n:integer;
begin
write('Введите число А: ');
readln(a);
write('Введите число N: ');
readln(n);
s:=1;
for i:=1 to n do begin
s:=s*a;
writeln(a,' в степени ',i,' равно ',s);
end;
end.

3)uses crt;
var a,s,p:real;
i,n:integer;
begin
write('Введите число А: ');
readln(a);
write('Введите число N: ');
readln(n);
s:=1;
p:=1;
write('1 + ');
for i:=1 to n do begin
s:=s*a;
p:=p+s;
if i<n then write(s,' + ');
if i=n then write(s,' = ');
end;
writeln(p);
end.

4,5(4 оценок)

Ответ:

ученик6бкласса

02.12.2022

FOR15

program fofgogjoj;
var
n,i : integer;
a,p : real;
begin
Writeln('Введите число.');
Readln(a);
Writeln('Введите степень');
Readln(n);
p:=1;
for i:=1 to n do
begin
p:=p*a;
end;
if a<0 then
p:=1/p;
Writeln(p :6:3);
readln;
end.

FOR16

program fofgogjoj;
var
i, n: integer;
a, p: real;
begin
Writeln('Введите число:');
Write(' a = ');
Readln(a);
Writeln('Введите показатель степени (n > 0):');
Write(' N = ');
Readln(N);
Writeln('Все степени числа ', a, ' от 1 до ', n, ':');
p:= 1;
for i:=1 to n do
begin
p:= p*a;
Writeln(' ', a, ' в степени ', i, ': ', p:0:2)
end
end.

4,8(87 оценок)

Это интересно:

Семейная-жизнь

28.05.2021

Как помочь родителям, которые похоронили своего ребенка: советы и рекомендации...

Компьютеры-и-электроника

26.03.2023

Как изменить проверочный номер для кода безопасности iCloud на iPhone...

Здоровье

02.09.2020

Польза и способы приема пчелиной пыльцы...

Компьютеры-и-электроника