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

Zaochnik

Нужно сделать отчёт по программе на языке программирования pasal, пример отчёта по другой программе прикрепил. саму программу прикрепить не удалось, поэтому напишу здесь. Условие программы для отчёта есть в самой программе. Для удобства могу скинуть программу в любой соц. сети. uses crt; 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; label l1, l2; begin //оформление clrscr; TextColor(black); gotoxy(20, 6); writeln('~~~~~~~~~~'); gotoxy(20, 7); writeln('|Вашему вниманию представляется программа, |'); gotoxy(23, 8); writeln('|которая сортирует элементы двух данных |'); gotoxy(27, 9); writeln('| упорядоченных массивов |'); gotoxy(15, 10); writeln('|в порядке возрастания/неубывания методом "слияния". |'); gotoxy(20, 11); writeln('~~~~~~~~~~'); 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] > 10000) or (a[i] < -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] > 10000) or (b[i] < -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('~~РЕЗУЛЬТАТЫ_СОРТИРОВКИ~~'); 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 > 15 // т.е. если у нас элементы одного массива кончились, просто оставшийся вписываем в с, тк. он по условию упорядоченный then begin c[i] := b[i2]; i2 := 1; end else if i2 > 10 //аналогично с другим then begin c[i] := a[i1]; i1 := i1 + 1; end else //тут уже просто сравниваем два элемента, если if a[i1]

руб. 2850 In stock