«Отчёт по программе»

<div><p>Нужно сделать отчёт по программе на языке программирования pasal, пример отчёта по другой программе прикрепил. саму программу прикрепить не удалось, поэтому напишу здесь. Условие программы для отчёта есть в самой программе. Для удобства могу скинуть программу в любой соц. сети.</p> <p>uses crt;</p> <p>var a: array [1..15] of integer; //массив а(15) b: array [1..10] of integer; //массив b(10) c: array [1..25] of integer; //массив c(25) i, i1, i2, f, error: integer; //f-флажок, error-переменная ошибки, остальные для циклов ch: char;</p> <p>label l1, l2; begin //оформление clrscr; TextColor(black); gotoxy(20, 6); writeln('<del>~</del><del>~</del><del>~</del><del>~</del><del>~</del><del>~</del><del>~</del><del>~</del><del>~</del>~'); gotoxy(20, 7); writeln('|Вашему вниманию представляется программа, |'); gotoxy(23, 8); writeln('|которая сортирует элементы двух данных |'); gotoxy(27, 9); writeln('| упорядоченных массивов |'); gotoxy(15, 10); writeln('|в порядке возрастания/неубывания методом "слияния". |'); gotoxy(20, 11); writeln('<del>~</del><del>~</del><del>~</del><del>~</del><del>~</del><del>~</del><del>~</del><del>~</del><del>~</del>~'); TextColor(black); gotoxy(35, 13); writeln('Внимание!'); gotoxy(20, 15); writeln(' Элементы - целые числа от -10000 до 10000'); gotoxy(40, 20); TextColor(black); writeln('Программу составила студентка'); gotoxy(40, 21); writeln('РУТ (МИИТ) группы ЭББ-113'); gotoxy(40, 22); writeln('Лубочникова В.А.'); gotoxy(35, 24); writeln('Москва, 2017'); gotoxy(20, 33); writeln(' нажмите любую клавишу для продолжения'); //-оформление//// ch := readkey; //ввод массива l1: clrscr; gotoxy(35, 5); TextColor(black); writeln('Внимание!!!'); gotoxy(15, 6); writeln('Значение элемента должно быть в пределе от -10000 до 10000!'); writeln; TextColor(black); writeln('Введите значения элементов первого массива A(15)'); TextColor(black); i := 1; repeat //ввели с экрана два массива begin write('A[', i, ']: '); readln(a[i]); //error := IOResult; if (a[i] &gt; 10000) or (a[i] &lt; -10000) or (error 0) then begin TextColor(black); writeln('Вы ввели неверное значение элемента массива! Повторите ввод!'); TextColor(black); dec(i); end; inc(i); end; until i = 16; TextColor(black); writeln('Введите значения элементов первого массива B(10)'); TextColor(black); i := 1; repeat begin write('B[', i, ']: '); readln(b[i]); // error := IOResult; if (b[i] &gt; 10000) or (b[i] &lt; -10000) or (error 0) then begin TextColor(black); writeln('Вы ввели неверное значение элемента массива! Повторите ввод!'); TextColor(black); dec(i); end; inc(i); end; until i = 11; //смотрим, какой хотят получить массив по возрастанию или убыванию textcolor(black); writeln('Введите 1, если хотите отсортировать по невозрастанию, 2 - по неубыванию'); textcolor(black); readln(f); clrscr; //вывод исходных массивов textcolor(black); gotoxy(20, 4); writeln('<del>~</del><del>~РЕЗУЛЬТАТЫ_СОРТИРОВКИ</del><del>~</del>~'); gotoxy(30, 8); writeln('Исходные массивы:'); gotoxy(30, 10); writeln('А:'); gotoxy(30, 11); for i := 1 to 15 do write(a[i], ' '); gotoxy(30, 13); writeln('B:'); gotoxy(30, 14); for i := 1 to 10 do write(b[i], ' '); //сортировка слиянием i1 := 1; i2 := 1; for i := 1 to 25 do if i1 &gt; 15 // т.е. если у нас элементы одного массива кончились, просто оставшийся вписываем в с, тк. он по условию упорядоченный then begin c[i] := b[i2]; i2 := 1; end else if i2 &gt; 10 //аналогично с другим then begin c[i] := a[i1]; i1 := i1 + 1; end else //тут уже просто сравниваем два элемента, если if a[i1]</p></div>