justify"> Lineto (10 + trunc (j * mas) ,460-trunc (y [j] * mas)) - (10 + trunc (j * mas) ,460-trunc (y [j] * mas), 9) -
: = detect; (gm, gd, 'c: BP BGI'); (10, 480-20, 10, 480-400); (10, 480-20, 600, 480-20);: = 1; (10,40, 'Yj'); (590,465, 'j'); (10 + trunc (j * mas) ,460-trunc (y [j] * mas)); j: = 1 to m-1 (10 + trunc (j * mas) ,460-trunc (y [j] * mas)); (10 + trunc (j * mas) ,460-trunc (y [j] * mas), 9);
end;
. Повна програма відповідно до алгоритму
Повна робоча програма написана за блок схемою алгоритму представленого на малюнку 1.1 буде мати наступний вигляд:
Kyrs1; crt, graph; = 26; = 0.15; = 2.25; = 20;, c, x: array [1 .. 40] of real;, gm, n, m, i, j: integer;, b, srk, min, max, y1: real;; ('vvedite kol-vo chlenov c, x'); (n, m); ('x massiv'); j: = 1 to m do: = b0 + j * h; [j]: = (exp (2/5 * ln (b)) + a)/(2 * j); (x [j]: 5:2, ''); ;; ('ci massiv'); i: = 1 to n do [i]: = 2/sin (i); (c [i]: 5:2, '');: = s + c [i] ;;; ('y massiv'); j: = 1 to m do: = b0 + j * h; x [j] <(0.9 * b) then [j]: = s + cos (x [j] ) -1 (x [j] <(1.1 * b)) and (x [j]> = (0.9 * b)) then [j]: = b + ln (abs (2 * a))/ln (10)-sqrt (abs (x [j] -2))/5 [j]: = x [j] + (sin (x [j])/cos (x [j])); (y [j ]: 5:2, '');;: = y [1];: = y [1]; j: = 2 to m do beginmax> y [j] then max: = y [j]; min
readln;
end.
4 Результати розрахунків на ПК
В
Графік функції Y (j) представлений на малюнку 4.1
В
Малюнок 4.1-Графік функції Y (j).
Висновок
Ця курсова робота була написана в середовищі програмування Турбо Паскаль. У процесі виконання роботи засвоєні основні принципи написання програми мовою Паскаль, закріплені знання з програмування алгоритмів з використанням функцій користувача і створенню алгоритмів в цілому. Результатом виконаної роботи стала програма по обчисленню складної функції y. Програма зроблена універсальною, тобто за допомогою її можна знайти значення при будь-якому числі елементів масиву та інших параметрів. p align="justify"> З метою перевірки правильності отриманих результатів зробимо ручний розрахунок складної математичної функції Y (j) для значення j = 1.
= b
