Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 29.05.2011, 20:33   #1
Andrey770
Пользователь
 
Регистрация: 11.03.2011
Сообщений: 83
По умолчанию Обьясните, непонимающему!

Доброго времени суток!
Вот нарыл задачку, только не разберусь, что здесь к чему!
Обьясните пожалуйста, уже перечитал все что есть в сети.
Код:
  function F(x:real):real;
   begin
   F:=cos(x)
   end;
   var
   a,b,dx,x,y,y1,y2:real;
   n:integer;
   ch:char;
   begin
   write('Po4atok integruvann9I -------- a= ');readln(a);
   write('Kinecb integruvann9I  -------- b= ');readln(b);
   write('Vveditb shag          -------- n= '); readln(n);
    dx:=(b-a)/n;
   
 y:=0; x:=1;
    while x<b do begin {x<Xn}
    y:=y+f(x);
    x:=x+dx; {x= x0,x1,x2..xn-1}
    end;
    y:=y*dx;
     clrscr;
     writeln('integral of formul left  rectangles: ',y: 10:3);
   
     y:=0; x:=a+dx; {x= X1}
     while x<=b do begin {x<= Xn}
     y:=y+f(x);
     x:=x+dx; {x=x1,x2,x3..xn}
     end;
     y:=y*dx;
     writeln('integral of formul right rectangles: ', y:10:3);
   read;
   end;
Я понял что
Код:
 y:=0; x:=1;
    while x<b do begin {x<Xn}
    y:=y+f(x);
    x:=x+dx; {x= x0,x1,x2..xn-1}
    end;
    y:=y*dx;
     clrscr;
     writeln('integral of formul left  rectangles: ',y: 10:3);
это вычисление определенных интегралов методом левых прямоугольников
а
Код:
 y:=0; x:=a+dx; {x= X1}
     while x<=b do begin {x<= Xn}
     y:=y+f(x);
     x:=x+dx; {x=x1,x2,x3..xn}
     end;
     y:=y*dx;
     writeln('integral of formul right rectangles: ', y:10:3);
   read;
правых!
dx -это высота я так понял,а все остальное не доганяю. Обьясните пожалуйста!!!!:

Последний раз редактировалось Andrey770; 29.05.2011 в 20:35.
Andrey770 вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Обьясните! Andrey770 Паскаль, Turbo Pascal, PascalABC.NET 2 14.05.2011 13:07
Обьясните FreeZeT Помощь студентам 3 15.06.2010 04:27
обьясните!!!! gnom63 Помощь студентам 1 12.03.2009 14:56
Обьясните... Droid Общие вопросы Delphi 4 12.05.2008 12:57