Правильно ли написана программа?Осталось добавить кейс меню в эту программу

@Vika19Nami · Регистрация: 02.12.2019

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

1. Реализовать программу вычисления площадь фигуры, ограниченной кривой 1*х^3+(-2)*x^2+(-4)*x+(10) и осью OX (в положительной по оси OY).части
2. Вычисление определенного интеграла должно выполняться численно, c применением метода трапеций.
3. Пределы интегрирования вводятся пользователем.
4. Взаимодействие с пользователем должно осуществляться посредством case-меню.
5. Требуется реализовать возможность оценки погрешности полученного результата.
6. Необходимо использовать процедуры и функции там, где это целесообразно.

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
function f(x:real):real; //интегрируемая функция
begin
f:=1*x*x*x-4*x*x-4*x+10;                  
end;
//первообразная
function f1(x:real):real;
begin
f1:=x*(1*x*x*x+16*x*x-8*x+40)/4;         
end;
var a,b,h,s,y:real;
    n,i:integer;
begin
repeat
writeln('Введите левую границу интервала от -5 до 0 a=');
readln(a);
until (a>=-5)and(a<=0);
repeat
writeln('Введите правую границу интервала от 0 до 5 b=');
readln(b);
until (b>=0)and(b>a)and(b<=5);
repeat
write('Введите число разбиений от 20 до 1000 n=');
readln(n);
until (n>=20)and(n<=1000);
h:=(b-a)/n;
s:=(f(a)+f(b))/2;
for i:=1 to n-1 do
s:=s+f(a+i*h);
s:=s*h;
writeln('S=',s:0:5);
y:=f1(b)-f1(a);    //по формуле  Ньютона-Лейбница
writeln('Аналитическое значение=',y:0:5);            
writeln('Абсолютная погрешность=',abs(y-s):0:5);
writeln('Относительная погрешность=',abs(y-s)/y)
end.

@ZX Spectrum-128 · 02.12.2019, 08:41

Вот что получилось:

@Vika19Nami · 02.12.2019, 10:52 **[ТС]**

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
function f(x:real):real; //интегрируемая функция
begin
f:=1*x*x*x-4*x*x-4*x+10;                  
end;
//первообразная
function f1(x:real):real;
begin
f1:=x*(1*x*x*x+16*x*x-8*x+40)/4;         
end;
var a,b,h,s,y:real;
    n,i:integer;
begin
repeat
writeln('Введите левую границу интервала от -5 до 0 a=');
readln(a);
until (a>=-5)and(a<=0);
repeat
writeln('Введите правую границу интервала от 0 до 5 b=');
readln(b);
until (b>=0)and(b>a)and(b<=5);
repeat
write('Введите число разбиений от 20 до 1000 n=');
readln(n);
until (n>=20)and(n<=1000);
h:=(b-a)/n;
s:=(f(a)+f(b))/2;
for i:=1 to n-1 do
s:=s+f(a+i*h);
s:=s*h;
writeln('S=',s:0:5);
y:=f1(b)-f1(a);    //по формуле  Ньютона-Лейбница
writeln('Аналитическое значение=',y:0:5);            
writeln('Абсолютная погрешность=',abs(y-s):0:5);
writeln('Относительная погрешность=',abs(y-s)/y)
end.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	Установка Emscripten SDK (emsdk) и CMake на Windows для сборки C и C++ приложений в WebAssembly (Wasm) 8Observer8 30.01.2026 Чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. Система контроля версиями Git. . .	Подключение Box2D v3 к SDL3 для Android: физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .

@ZX Spectrum-128 6812 / 4568 / 4820 Регистрация: 05.06.2014 Сообщений: 22,434
	02.12.2019, 08:41
	Вот что получилось: Миниатюры 1