НАПИШИТЕ ПРОГРАММУ Необходимо вычислить площадь криволинейной трапеции, ограниченной квадратной параболой, а также точность – величину, на которую истинное значение может отличаться от вычисленного нами. Задаются коэффициенты параболы, правая и левая границы, а также N – количество элементарных трапеций, на которые мы разбиваем криволинейную трапецию. Выводится вычисленное значение площади и точностьВ задаче есть проблема. Тем методом, что описан в учебнике, точность можно определить только при условии монотонности функции. Но квадратная парабола не монотонна. Проблема решается Нужно найти участки монотонности, применить метод к ним по-отдельности и сложить результаты.Ниже находится «рыба» для программы. Вместо многоточий вы можете описать дополнительные переменные, ну и собственно программу.Program xxx;Vara, b, c:real;x1, x2:real;N:integer;S, e:real;…BeginWrite(‘Введите коэффициенты параболы’);Read(a, b, c);Write(‘Введите границы интервала’);Read(x1, x2);Write(‘Введите N’);Read(N);…Write(‘Площадь:’, S, ‘ Точность:’, e);End.
Ответы
Const
n1=15;
n2=10;
n3=12;
type
V=array[1..15] of string;
procedure M_in(s:string; var a:V; n:integer);
{ ввод данных в массив }
var i:integer;
begin
Writeln('Вводите по одному ',n,' элементов массива ',s);
for i:=1 to n do Readln(a[i])
end;
procedure M_out(var a:V; n:integer; c:char);
{ выводит элементы, начинающиеся с указанного символа }
var i:integer;
begin
Writeln('*** Слова на букву ',c,' ***');
for i:=1 to n do
if a[i][1]=c then Writeln(a[i]);
Writeln
end;
var
s1,s2,s3:V;
begin
M_in('S1',s1,n1);
M_in('S2',s2,n2);
M_in('S3',s3,n3);
M_out(s1,n1,'В');
M_out(s2,n2,'Ц');
M_out(s3,n3,'А');
end.
n1=15;
n2=10;
n3=12;
type
V=array[1..15] of string;
procedure M_in(s:string; var a:V; n:integer);
{ ввод данных в массив }
var i:integer;
begin
Writeln('Вводите по одному ',n,' элементов массива ',s);
for i:=1 to n do Readln(a[i])
end;
procedure M_out(var a:V; n:integer; c:char);
{ выводит элементы, начинающиеся с указанного символа }
var i:integer;
begin
Writeln('*** Слова на букву ',c,' ***');
for i:=1 to n do
if a[i][1]=c then Writeln(a[i]);
Writeln
end;
var
s1,s2,s3:V;
begin
M_in('S1',s1,n1);
M_in('S2',s2,n2);
M_in('S3',s3,n3);
M_out(s1,n1,'В');
M_out(s2,n2,'Ц');
M_out(s3,n3,'А');
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Составьте программу вывода на экран таблицы деления на 7.
Автор: itartdesignprof
Можете написати на листочку! ів .Будь-ласка до ть
Автор: Карапетян
Роботтын сызык бойымен козгалатын жарысының талаптары?
Автор: larson96
1)дано число n . вывести 2 в степени 5 2)найти сумму натуральных чисел от 35 до 132
Автор: mikchaylovaalex
// 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.