М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
alesqwer
alesqwer
11.02.2023 22:38 •  Информатика

Программирование на си написать программу приближённого вычисления интеграла функции f(x) = (x^2 + e^x)^0.5 методом прямоугольников. интервал [a, b] и точность вычисления ε должны задаваться во время работы программы. исходя из заданной точности ε, программа должна определить такое n — количество отрезков разбиения интервала [a, b], чтобы вычисленное значение интеграла sn отличалось от s(n+1) на величину не более ε, т. е. расчет интеграла продолжать до тех пор, пока |sn − s(n+1)| > ε.

👇
Ответ:
К5О5Т5
К5О5Т5
11.02.2023
Ну-ка, опробуй. Такую хочешь?

В конце сообщает n, при котором достигнуто решение, и, собственно, само решение (sum).

Просто. Квадратно. Дубово. Надёжно (как мне кажется).

Есть данные, на которых верифицируется расчёт? 
4,6(11 оценок)
Открыть все ответы
Ответ:
Линда133
Линда133
11.02.2023

// PascalABC.NET 3.6.3

uses School;

function Divizors(n: integer): List<integer>;

begin

 var L := new List<integer>;

 L.Add(1);

 L.Add(n);

 if n > 3 then

   begin

   var k := 2;

   while (k * k <= n) and (k < 46341) do

   begin

     if n mod k = 0 then

     begin

       var t := n div k;

       L.Add(k);

       if k < t then L.Add(t)

       else break

     end;  

     Inc(k)

   end;

   L.Sort;

 end;

 Result := L

end;

begin

 // 1

 if ReadInteger.IsPrime then Println('YES')

 else Println('NO');

 // 2

 ReadInteger.Factorize.First.Println;

 // 3

 var a := Divizors(ReadInteger);

 Print(a.Count, a.Sum)

end.

4,4(49 оценок)
Ответ:
csnoleg
csnoleg
11.02.2023
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var fn:='MtFile.bin';
  var n:=ReadInteger;
  var f:file of integer;
  var s:=SeqRandom(n,-3000,8000); // последовательность не хранится
  Rewrite(f,fn);
  foreach var m in s do Write(f,m);
  f.Close; // файл создан и закрыт
  Reset(f,fn);
  var b:integer; // буфер
  while not Eof(f) do begin Read(f,b); Print(b) end; Writeln;
  Seek(f,0); // стали в начало файла
  Read(f,b);
  var iOdd:=0;
  while not Eof(f) and b.IsEven do
  begin Read(f,b); iOdd+=1 end;
  if Eof(f) and b.IsEven then
    begin Writeln('Нет нечетных компонентов'); exit end;
  var (bb,iEven):=(b,n);
  repeat
    iEven-=1; Seek(f,iEven); Read(f,b)
  until (iEven=1) or b.IsEven;
  if b.IsOdd then begin Writeln('Нет четных компонентов'); exit end;
  Seek(f,iEven); Write(f,bb);
  Seek(f,iOdd); Write(f,b);
  Seek(f,0);
  while not Eof(f) do begin Read(f,b); Print(b) end; Writeln;
  f.Close
end.

Пример
10
3166 6355 3596 6926 1266 6143 7401 7624 1402 -627
3166 1402 3596 6926 1266 6143 7401 7624 6355 -627
4,5(5 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ