ьтаті розробки, а також на швидкість і зручність самого процесу розробки. У результаті використання даних мов виходять більш об'ємні і менш швидкодіючі виконувані програми, що, однак, компенсується швидкістю їх розробки і меншим вмістом помилок, хоча б внаслідок малих обсягів вихідних даних. До таких мов відноситься Turbo Pascal. p align="justify"> Мова Паскаль - це один з найбільш поширених мов програмування 80-90х років, що підтримує найсучасніші методології проектування програм (спадне, модульне проектування, структурне програмування), які мають свою досить багату історію розвитку.
Нову життя мови дала фірма Борланд, що розробила на його базі сімейство Паскаль - систем, званих Турбо Паскалем. Інтегрована середовище, забезпечує багатовіконну розробку програмної системи, великий набір вбудованих в неї коштів компіляції та відлагодження, доступних для роботи через легко освоюване меню, - все це забезпечує високу продуктивність праці програміста, недосяжну при роботі зі старими середовищами. p align="justify"> Вибір мови Pascal не випадковий - це навчальний мову, з легко переглядається алгоритміка програми; мова типізований, що дозволяє на його основі вивчати більш складні мови; мова дозволяє навчитися хорошому стилю програмування.
4. Текст програми вирішення задачі
Program tr_s;
uses crt, graph; m, m1;: char;, b: real; {Межі відрізка}
r, r2: real; {Попереднє і поточне наближені значення інтеграла}: integer; {Лічильники}, f2: real; {Чисельник і Знаменник}
s1, s2, s3: real; {Ступені}
k, o: real; {Деякі коефіцієнти}
{інтегрована функція} f (x: real): real;: = k * exp (s1 * ln (x)); {k * (x в ступені s1)}: = exp (s2 * ln (ln (x)/ln (o))); {log ox - це ln (x)/ln (o)}: = f1/f2;;
{Метод трапецій} trap (a, b: real; n: integer): real;
var: real; {Отримана сума}: real; {Крок}: integer; {Лічильник}: = (ba)/(n-1); {Визначається крок}: = (f (a ) + f (b))/2; {Початкове значення суми} m: = 1 to n-2 do s: = s + f (a + m * h); {Підсумовування інших елементів}: = s * h; { Повертається значення інтеграла}
end;
{Метод Сімпсона} simp (a, b: real; n: integer): real;: real; {Сума}: real; {Крок}: integer; {Лічильник}: integer; {Черговий множник}
begin: = (ba)/(n-1); {Розраховується крок}: = f (a) + f (b); {Початкове значення кроку}: = 4; {Перший множник - 4}
{Підсумовування інших елементів}
for m: = 1 to n-2 do begin: = s + mn * f (a + h * m); (mn = 4) then mn: = 2 else mn: = 4; {Зміна множника 2 <> 4}
end;: = s * h/3; {Повертається розрахований значення};
{Процедура обчислення порядку числа}
