Const N = 10; //Задаём размерность массива Var A: array[1..N] of integer; //Объявляем массив i, B: integer; Begin Randomize; Write('Исходный массив:'); For i:= 1 to N do Begin A[i] := random(2*N+1)-N; //Заполняем массив случайными числами Write(' ',A[i]); //и выводим его на экран End; WriteLn;
B := A[N]; //В переменной B будет находится искомое число For i:= 1 to N-1 do if (A[i] > 0)and(A[i] < B) then B := A[i]; WriteLn('Наименьшее положитиельное чилсо: ',B); End.
Алгоритм должен быть формализован по некоторым правилам посредством конкретных изобразительных средств. К ним относятся следующие записи алгоритмов: Алгоритм должен быть формализован по некоторым правилам посредством конкретных изобразительных средств. К ним относятся следующие записи алгоритмов: словесный, формульно-словесный, графический, язык операторных схем, алгоритмический язык.Наибольшее распространение благодаря своей наглядности получил графический (блок-схемный записи алгоритмов. При всем многообразии алгоритмов решения задач в них можно выделить три основных вида вычислительных процессов: линейный; ветвящийся; циклический.
function f(A,B) { if (A.length < B.length) {return false;} var Result = false; for ( var i = 0; i < A.length; i++) { if ((B[0] === A[i]) && (A.length-i >= B.length)) { Result = true; for ( var j = 0; j < B.length; j++) { if (A[i+j] !== B[j]) { Result = false; break; } } if (Result) {return true;} } } return false; }
Страничка для тестирования функции в приложении. Открывать через браузер (правой кнопкой мыши по файлу, "открыть с ", и выбрать браузер, или изменить расширение с txt на HTML, и просто открыть..)
N = 10; //Задаём размерность массива
Var
A: array[1..N] of integer; //Объявляем массив
i, B: integer;
Begin
Randomize;
Write('Исходный массив:');
For i:= 1 to N do
Begin
A[i] := random(2*N+1)-N; //Заполняем массив случайными числами
Write(' ',A[i]); //и выводим его на экран
End;
WriteLn;
B := A[N]; //В переменной B будет находится искомое число
For i:= 1 to N-1 do
if (A[i] > 0)and(A[i] < B) then
B := A[i];
WriteLn('Наименьшее положитиельное чилсо: ',B);
End.