Решение задачи ещё актуально? Лично я сейчас тестирую загрузку текстовых данных отличных от картинок )). Если листинг программы загрузится, чудесно, ознакамливайтесь кому интересно.
В оригинале файл называется script.php.txt, кодировка файла UTF-8, язык программирования PHP.
Из работы оценочного алгоритма можно увидеть почему последовательности на основе GGB самые эффективные, а остальные являются лишь инверсиями, смещениями или объединениями того и другого.
Program array2d;
var
v_range, v_neg, i, j, n: integer;
array: array of array of integer;
i_range, i_neg: array[1..2] of integer;
begin
randomize;
write('введіть n: ');
readln(n);
SetLength(array, n, n);
write('введіть а та b: );
readln(a, b);
for i:= 1 to n do
for j:= 1 to n do
array(i, j) := random(100);
for i:= 1 to n do
for j:= 1 to n do
begin
if array(i, j) in a..b then
begin
if Assigned(v_neg) then
break; {перевірка, чи є негативне значення знайденим}
v_range := array(i, j);
i_range[1] := i;
i_range[2] := j;
end;
if array(i, j) < 0 then
begin
if Assigned(v_range) then
break;
v_neg := array(i, j);
i_neg[1] := 1;
i_neg[2] := 2;
end;
end;
if Assigned(v_range) and Assigned(v_neg) then
begin
array(i_range[1], i_range[2]) := v_neg;
array(i_neg[1], i_neg[2]) := v_range;
end;
writeln('Виконано.');
end.
1.162 = 10100010<span>2
2.</span>162 = 0242<span>8
3.</span>162 = 0A2<span>16</span>
Program abc;
var a,b,c:integer;
begin
writeln('Введите первую сторону');
read(a);
writeln('Введите вторую сторону');
read(b);
writeln('Введите третью сторону');
if (a>b) and (a>c) then write(a);
if (b>a) and (b>c) then write(b);
if (c>a) and (c>b) then write(c);
if (a=b) or (a=c) or (c=b) then write('Есть равные стороны и нет большей')
end.
Он изпользует сбережения и обработку.
Заранее не за что!
