Программу дала училка условия немного тупы хотя бы с 1 написать 2 программы на языке паскаль 1) массив чисел a1, упорядочить так, чтобы положительные и отрицательные числа чередовались, учитывая что их количество одинаковое. 2) 1: реализовать процесс полного построения алгоритма для , выполняющей следующие операции: • ввод с клавиатуры числовой последовательности (одномерного массива); • сортировка последовательности по возрастанию (убыванию) указанным методом; • поиск заданного элемента в последовательности (по вариантам) цель поиска данных: - варианты 19 – поиск ключевого (заданного) элемента; сортировку данных реализовать: - варианты 1, 9 - алгоритмом хоара в форме программы отобразить поля вывода с пояснениями для следующих данных программы: исходная последовательность; отсортированная последовательность; ключевой элемент для поиска для вариантов 1, 3, 6, 9; результат поиска

Задача 1.
const
  n=30;
var
  a,b:array[1..n] of integer;
  i,j,k:integer;
begin
  { самое сложное - создать такой массив,
    где положительные и отрицательные элементы будут случайно
    перемешаны и их будет по n/2.
    Если организовать ввод с клавиатуры, то это гораздо проще.
  }
  Randomize;
  { инициализация "флажком" - значением 1000 }
  for i:=1 to n do a[i]:=1000;
  { сначала генерируем n/2 случайных отрицательных на случайных местах }
  for i:=1 to (n div 2) do
  begin
    k:=Random(50)-50; { случайное отрицательное значение }
    { а теперь ищем случайное свободное место }
    repeat
      j:=Random(30)+1
    until a[j]=1000;
    a[j]:=k
  end;
  { теперь осталось сгенерировать n/2 случайных положительных чисел
    и разместить их на свободных местах }
  for i:=1 to (n div 2) do
  begin
    k:=Random(50)+1; { случайное положительное значение }
    { а теперь ищем свободное место }
    j:=0;
    repeat
      Inc(j)
    until a[j]=1000;
    a[j]:=k
  end;
  { и только отсюда начинается собственно задание }
  Writeln('Исходный массив');
  for i:=1 to n do Write(a[i]:4);
  Writeln;
  { j - количество обработанных отрицательных,
    k - количество положительных,
    а массив строим так, что отрицательные элементы на нечетных местах }
  if a[1]<0 then begin b[1]:=a[1]; j:=1; k:=0 end
  else begin b[2]:=a[1]; j:=0; k:=1 end;
  for i:=2 to n do
    if a[i]<0 then
    begin Inc(j); b[2*j-1]:=a[i] end
    else begin Inc(k); b[2*k]:=a[i] end;
  Writeln('Результирующий массив');
  for i:=1 to n do Write(b[i]:4);
  Writeln
end.

Тестовое решение:
Исходный массив
  43  44  34  21  14 -26  32  35 -25  -8  42 -35 -37  12  45 -25  31   8 -16  -5   8 -25 -19 -15 -27 -16  12  26 -14 -41
Результирующий массив
 -26  43 -25  44  -8  34 -35  21 -37  14 -25  32 -16  35  -5  42 -25  12 -19  45 -15  31 -27   8 -16   8 -14  12 -41  26

1. Для наглядности построй в столбик значения двойки в степенях от 0 до 7. Это будет 1, 2, 4, 8, 16, 32, 64, 128.

2. Разложи число (Внимание! Обязательно только из десятичной системы счисления) на числа из построенного ранее столбика.

К примеру возьмем число 37. 37=32+4+1.

2. Отсчитывай от числа из столбика 128 до 1. Если в разложении имеется это число, то пиши 1. Иначе 0.

0(128 нету) 0(64 нету) 1(32 есть!) 0(16 нету) 0 1 0 1

Цифр должно получиться восемь. Лучше пересчитать на случай, если случайно забыл ряд.

То есть по этому алгоритму .

И, конечно же, пробуй переводить числа самостоятельно. Сухая теория тут не имеет места.

Зачем нужны программы распознавания текста.

С их выполняется редактирование информации, исправление ошибок, сохранение данных в нужном формате и т.

Как происходит распознавание текста?

Поэтапное сканирование и распознавание текста. ... Далее происходит проверка на предмет синтаксических и орфографических ошибок

Какие программы распознавание текста вы знаете?

Они с легкостью переведут pdf, jpg, png или «бумажный файл» в редактируемый формат для Word и прочих офисных приложений.

ABBYY FineReader.

OCR CuneiForm.

Readiris Pro.

Freemore OCR.

ABBYY Screenshot Reader.

Adobe Acrobat Pro.

Scanitto Pro.

RiDoc.

Какими пользовались?

ABBYY FineReader.

OCR CuneiForm.