Метод левых / правых треугольников

@klubni4ka · Регистрация: 11.01.2011

Студворк — интернет-сервис помощи студентам

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Program prakt31;
const
  n=30;
var
  a,b,x,h,t,s,s1,s2:real;
  i:integer;
function f(x:real):real;
  begin
    f:=1/(sqrt(t)+ln(t));
    end;
begin
  writeLn('vvedite nijnij predel');
  readLn(a);
  writeLn('vvedite verhnij predel');
  readLn(b);
  h:=(b-a)/n;
  x:=a;
  s:=0;
  for i:=0 to n-1 do
      begin
        s:=s+h*f(x);
        x:=x+h;
      end;
    writeLn('po metody levih treygolnikov s=',s:7:4);
    readLn;
   x:=a;
   s1:=0;
   for i:=0 to n-1 do
      begin
        s1:=s1+h*f(x+h);
        x:=x+h;
      end;
    writeLn('po metody pravih treygolnikov s=',s:7:4);
    readLn;
    x:=a;
    s2:=0;
    for i:=0 to n-1 do
      begin
        i:=i+1;
        s2:=s2+h*(f(x)+f(x+h))/2;
        x:=x+h;
      end;
    writeLn('po metody trapecij s=',s:7:4);
    readLn;
end.

@Vovcheg · 29.06.2011, 20:39

Сообщение от klubni4ka

i:=i+1;

В 40 строке, если не ошибаюсь

@Daemon025 · 29.06.2011, 20:40

Pascal
1
f:=1/(sqrt(t)+ln(t));

деление на 0

@Symon · 14.12.2012, 14:28

Сообщение от Vovcheg

i:=i+1;

Нельзя менять переменную цикла i в теле цикла. Она сама меняется.

Новые блоги и статьи Все статьи Все блоги /
И решил я переделать этот ноут в машину для распределенных вычислений Programma_Boinc 09.11.2025 И решил я переделать этот ноут в машину для распределенных вычислений Всем привет. А вот мой компьютер, переделанный из ноутбука. Был у меня ноут асус 2011 года. Со временем корпус превратился. . .	Мысли в слух kumehtar 07.11.2025 Заметил среди людей, что по-настоящему верная дружба бывает между теми, с кем нечего делить.	Новая зверюга volvo 07.11.2025 Подарок на Хеллоуин, и теперь у нас кроме Tuxedo Cat есть еще и щенок далматинца: Хочу еще Симбу взять, очень нравится. . .	Инференс ML моделей в Java: TensorFlow, DL4J и DJL Javaican 05.11.2025 Python захватил мир машинного обучения - это факт. Но когда дело доходит до продакшена, ситуация не так однозначна. Помню проект в крупном банке три года назад: команда data science натренировала. . .	Mapped types (отображённые типы) в TypeScript Reangularity 03.11.2025 Mapped types работают как конвейер - берут существующую структуру и производят новую по заданным правилам. Меняют модификаторы свойств, трансформируют значения, фильтруют ключи. Один раз описал. . .
Адаптивная случайность в Unity: динамические вероятности для улучшения игрового дизайна GameUnited 02.11.2025 Мой знакомый геймдизайнер потерял двадцать процентов активной аудитории за неделю. А виновником оказался обычный генератор псевдослучайных чисел. Казалось бы - добавил в карточную игру случайное. . .	Протоколы в Python py-thonny 31.10.2025 Традиционная утиная типизация работает просто: попробовал вызвать метод, получилось - отлично, не получилось - упал с ошибкой в рантайме. Протоколы добавляют сюда проверку на этапе статического. . .	C++26: Read-copy-update (RCU) bytestream 30.10.2025 Прошло почти двадцать лет с тех пор, как производители процессоров отказались от гонки мегагерц и перешли на многоядерность. И знаете что? Мы до сих пор спотыкаемся о те же грабли. Каждый раз, когда. . .	Изображения webp на старых x32 ОС Windows XP и Windows 7 Argus19 30.10.2025 Изображения webp на старых x32 ОС Windows XP и Windows 7 Чтобы решить задачу, использовал интернет: поисковики Google и Yandex, а также подсказки Deep Seek. Как оказалось, чтобы создать. . .	Passkey в ASP.NET Core identity stackOverflow 29.10.2025 Пароли мертвы. Нет, серьезно - я повторяю это уже лет пять, но теперь впервые за это время чувствую, что это не просто красивые слова. В . NET 10 команда Microsoft внедрила поддержку Passkey прямо в. . .

Опции темы