Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Численное интегрирование

73K
26 декабря 2011 года
✖ЛиЧнОсТь✖
9 / / 07.12.2011
Пожалуйста напишите что бы в программе выводилось 2 результата: при n=32 и n=64
Код:
program metotTriygilnikov;
 
var
  n,i : integer;
  a,b,shag,sum,itog : real;


function F(x:real):real;
  begin
    F:=cos(4*x)-x+1  
  end;


BEGIN
  write('vvedite nizhnyuyu granitsu a = '); readln(a);
  write('Vvedite verxnyuyu granitsu b = '); readln(b);
  write('Kolichestvo razbivanii intervala n = '); readln(n);

  shag:=(b-a)/n;
  sum:=0;
  for i:=1 to n-1 do
    sum := sum + F(shag*i+a);
  sum := sum + (F(a)+F(b))/2;

  itog:=(b-a)/n * sum;
  writeLn('Inregral = ', itog:0:5);
readln;
END.
76K
26 декабря 2011 года
knazty
2 / / 20.11.2011
т.е. тебе не нужна возможность ввода n. А просто фиксировано. n=32 и n=64?
73K
26 декабря 2011 года
✖ЛиЧнОсТь✖
9 / / 07.12.2011
ну как бы да...можно зафиксировать или чтоб вводилось, но именно 2 , а не одно значение
416
26 декабря 2011 года
MaitreDesir
380 / / 02.01.2008
Код:
program metotTriygilnikov;
 

var
  a,b:real;
  n,i : integer;
  shag,sum,itog : real;

function F(x:real):real;
  begin
    F:=cos(4*x)-x+1  
  end;

BEGIN
  write('vvedite nizhnyuyu granitsu a = '); readln(a);
  write('Vvedite verxnyuyu granitsu b = '); readln(b);
  write('Kolichestvo razbivanii intervala n = '); readln(n);
  while n>0 do
    begin
      shag:=(b-a)/n;
      sum:=0;
      for i:=1 to n-1 do
        sum := sum + F(shag*i+a);
      sum := sum + (F(a)+F(b))/2;
      itog:=(b-a)/n * sum;
      writeLn('Inregral = ', itog:0:5);
      readln;
      write('Kolichestvo razbivanii intervala n = '); readln(n);
   end;
END.
73K
27 декабря 2011 года
✖ЛиЧнОсТь✖
9 / / 07.12.2011
MaitreDesir,Большое спасибо!
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог