#39;(для курсового проекту з прикладної математики)');
writeln ('Автор: Ткаченко К.С. М-21д');
writeln;
writeln ('Введіть інтервал зміни x1');
write ('Введіть a1: '); readln (a1);
write ('Введіть b1:'); readln (b1);
writeln ('Введіть інтервал зміни x2 ');
write ('Введіть a2: '); readln (a2);
write ('Введіть b2:'); readln (b2);
write ('Введіть похибка eps: '); readln (eps);
write ('Введіть ймовірність пошуку P : '); Readln (P);
write ('Введіть коефіцієнт alpha:'); readln (alpha);
write ('Введіть коефіцієнт dV:'); readln (dV);
writeln;
writeln ('Алгоритм пошуку глобального мінімуму по координатної '+
'Сітці з рівномірним кроком');
writeln;
t: = false; N: = 0;
fS: = large; fmin : = Large;
a1n: = a1; a2n: = a2; b1n: = b1; b2n: = b2;
repeat
d1: = b1n - a1n; d2: = b2n - a2n;
dx1: = d1/alpha; dx2: = d2/alpha;
x1: = a1n; x2 : = A2n;
fT: = f (x1, x2);
N: = N + 1;
if fT
begin
fmin: = fT;
x1min: = x1; x2min: = x2;
end;
repeat
repeat
x1: = x1 + Dx1; (* Крок 1 *)
fT: = f (x1, x2);
N: = N + 1;
if fT
begin
fmin : = FT;
x1min : = X1; x2min: = x2;
end;
until x1> B1n; (* Крок 3 *)
x1: = a1n; x2: = x2 + dx2; (* Крок 4 *)
fT: = f (x1, x2); (* Крок 5 *)
N: = N + 1;
if fT
begin
fmin: = fT;
x1min: = x1; x2min: = x2;
end;
until x2> b2n; (* Крок 7 *)
if abs (fS - fmin)> eps then (* Крок 8 *)
begin (* Крок 9 *)
fS: = fmin;
a1n: = max (x1min-dx1, a1n); b1n: = min (x1min + dx1, b1n);
a2n: = max (x2min-dx2, a2n); b2n: = min (x2min + dx2, b2n);
end
else t: = true; (* Крок 10 *)
until t;
writeln ('Кількість випробувань N =', N);
writeln ('fmin = ', Fmin: 6: 3);
writeln ('x1min = ', X1min: 6: 3);
writeln ('x2min = ', X2min: 6: 3);
writeln;
writeln ('Алгоритм пошуку глобального мінімуму функції '+
'Методом випадкового пошуку');
writeln;
fmin: = large;
x1min: = fmin; x2min: = fmin;
d1: = b1 - a1; d2 : = B2 - a2;
Rho: = dV/(d1 * d2);
N: = ceil (ln (1 - P)/ln (1 - Rho));
writeln ('Кількість випробувань N =', N);
for i: = 1 to N do (* Кроки 1, 2 *)
begin
x1: = a1 + random * d1; (* Кроки 3, 4 *)
x2: = a2 + random * d2;
fT: = f (x1, x2); (* Крок...
