ВУЗ: Не указан
Категория: Не указан
Дисциплина: Не указана
Добавлен: 18.10.2024
Просмотров: 7
Скачиваний: 0
ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.
5.2 Блок-схема алгоритма подпрограммы–процедуры Otraz (a, n)
6. Текст исходной программы
Program Kursovik;
Uses
CRT;
Const // Описание константы максимального размера матрицы
nmax = 15;
Type // Описание матрицы
mtr = array[1..nmax, 1..nmax] of integer;
Procedure Otraz(var a: mtr; n: byte); // Описание процедуры зеркального отражения
Var
i, j: byte;
x: integer;
Begin
for j := 1 to n do
for i := 1 to n div 2 do
begin
x := a[i, j];
a[i, j] := a[n - i + 1, j];
a[n - i + 1, j] := x;
end;
End;
Var // Описание переменных основной программы
a: mtr;
n, i, j: byte;
Begin // Основная программ
ClrScr; // Очистка экрана
writeln(' '); // Заставка
writeln(' Министерство образования Республики Беларусь');
writeln(' Белорусский национальный технический университет');
writeln;
writeln;
writeln(' Программа вычисления зеркального отображения');
writeln(' элементов двухмерного массива');
writeln(' относительно горизонтальной оси симметрии ряда');
writeln;
writeln;
writeln;
writeln;
writeln(' Курсовая работа ');
writeln(' по дисциплине "Информатика" ');
writeln;
writeln;
writeln(' Руководитель: Витушко Е.А.');
writeln(' Исполнитель: Щипачёв Д.С.');
writeln(' гр. 30205121');
writeln;
writeln;
writeln;
writeln(' Минск 2022 ');
writeln;
writeln(' Для продолжения нажмите любую клавишу... ');
ReadKey;
ClrScr; // Очистка экрана
Randomize; // Запуск генератора случайных чисел
repeat // цикл с постусловием
write('Размер матрицы до ', nmax, ' n=');
readln(n);
until n in [1..nmax]; // условие цикла
writeln('Исходная матрица:');
for i := 1 to n do
begin
for j := 1 to n do
begin
a[i, j] := Random(20); // Заполняем случайными числами матрицу
write(a[i, j]:4);
end;
writeln;
end;
writeln;
Otraz(a, n);// Вызов процедуры для горизонтального отражения матрицы
writeln('Отраженная по горизонтальной оси:');
for i := 1 to n do
begin
for j := 1 to n do
write(a[i, j]:4);
writeln;
end;
writeln('Для продолжения нажмите любую клавишу... ');
ReadKey
End.
7. Результаты работы программы
После запуска программы в соответствии с поставленной задачей на проектирование выводится окно заставки. Как показано на рисунке 1.
Рисунок 1. Окно заставки.
После нажатия любой клавиши появится предложение сделать ввода значения n, т.е. размер нашей матрицы (N*N).
Рисунок 2. Ввод значения.
После ввода определённого значения 5, получаем результаты, приведённые на рисунке 3.
Рисунок 3.
8. Анализ результатов
Для анализа результатов вводим значение n = 5. Т.е. нечетное - видим, что наша программа выполнила свою задачу. Смогла преобразовать исходную матрицу в зеркально отображенную по горизонтали. Программ устойчива к вводу целых чисел. Прекрасно отображает результат в новом «Окне», после завершает свою работу.
Для анализа результатов вводим любое целое значение не больше 15, и проверяем. Больше 15 не увидим в окне ВЫВОДА.
9. Инструкция по работе с программой
Файл Kursav.PAS с исходным текстом Паскаль - программы находится по адресу c:\My_Kyrsach\. Результат компиляции исходной программы Kursav.exe находится в той же папке.
Необходимо запустить на выполнение Kursav.exe либо загрузить Turbo Pascal 7.0, сделать текущим каталог, открыть файл с исходной Паскаль - программой Kursav.pas и запустить ее на выполнение командой Run.
После вывода заставки программы нажать любую клавишу для перехода в окно ввода значения. Результаты вычисления выводятся в новом окне.
Для продолжения следует ответить на запрос программы нажатием любой клавиши.
Заключение
В данной курсовой работе разработана блок-схема и реализована средствами языка программирования Турбо-Паскаль программа, позволяющая вычислить зеркальное отображение элементов двухмерного массива относительно горизонтальной оси симметрии.
Программа обладает дружеским интерфейсом, по запросу пользователя сообщает общие сведения по работе с программой и производит вычисления, ввод осуществляется с клавиатуры по запросу программы.
Из анализа результатов вычисления можно сделать вывод работу. Работает программа и при указанных условиях. Нельзя нарушать «Зеркало».
Список использованных источников
-
Кудинов, Ю.И. Основы современной информатики: учеб. пособие / Ю.И. Кудинов, Ф.Ф. Пащенко. – Санкт-Петербург: Лань, 2009. – 256 с. -
Кудинов, Ю.И. Практикум по основам современной информатики: учеб. пособие / Ю.И. Кудинов, Ф.Ф. Пащенко, А.Ю. Келина. – Санкт-Петербург: Лань, 2011. – 326 с. -
Лучников, В.А. Программирование на языке Паскаль: учеб. пособие / В.А. Лучников – Иркутск: ирГУПС, 2014. – 168 с. -
Меркулова, Н.Ф. Электронный учебник ABC Pascal / Н.Ф. Меркулова –http://videouroki.net. -
Цветков, А.С. Язык программирования PASCAL. – Система программирования ABC Pascal: учеб. пособие / А.С. Цветков. – Санкт-Петербург: Павловск. –2013. – 46 с. -
Письменный Д. Т. Часть 2 // Конспект лекций по высшей математике. — 6-е изд. — М.: Айрис-пресс, 2008. -
Савельева Р. Ю. Высшая математика. Теория рядов.