="justify"> readln (n, m);
Або, наприклад, блок № 22 виводить значення середньо квадратичного значення функції y j :
writeln ('sredkvadr', srk: 5:2);
Програмування циклічних структур
У нашій програмі циклічні структури описують блоки:
-6, 7-10, 11-18, 19-21.
Перших два цикли схожі за своєю структурою, в тіла цих циклів входять блоки:
-6:
Блок № 5 - обчислення масиву x [j] і b.
Блок № 6 - висновок цих масивів почленно:
for j: = 1 to m do
begin
b: = b0 + j * h;
x [j]: = (exp (2/5 * ln (b)) + a)/(2 * j);
write (x [j]: 5:2, '');
end;
7-10:
Блок № 8 - обчислення масиву С [i]
Блок № 9 - висновок цього масиву почленно:
for i: = 1 to n do
begin
c [i]: = 2/sin (i); (c [i]: 5:2, '');: = s + c [i];
end;
-19:
Цикл 11-18 описує обчислення складної функції y j і заповнення відповідного масиву. У тіло цього циклу входять два умовних оператора, які здійснюють обчислення складної функції з заданим умовам, що йде по трьох гілок програми:
Блоки № 13,15: блоки умовного оператора if
Блоки № 14,16,17 обчислення складної функції
for 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))/5x [j]> = (1.1 * b) then [j]: = x [j] + (sin (x [j])/cos ( x [j])); (y [j]: 5:2, '');;
19-22;
У цих блоках йде обчислення середнього квадратичного значення функції:
: = 0; j: = 1 to m doj mod 5 = 0 then: = srk + y [j] * y [j];: = sqrt (srk/m);
:
У цьому циклі йде побудова графіка складної математичної функції:
line (10, 480-20, 10, 480-400) і line (10, 480-20, 600, 480-20) - побудова координатних осей.
outtextXY (10,40, 'Yj') і outtextXY (590,465, 'j') - позначення осей Y (j) і j відповідно.
Moveto (10 + trunc (j * mas) ,460-trunc (y [j] * mas)) - побудова відповідних точок. Де trunc (j * mas) і trunc (y [j] * mas) - округлення дробових чисел до цілого числа. br/>
