Получите на экране рамочку из символов псевдографики - Turbo Pascal
Формулировка задачи:
Помогите пожалуйста написать программу. Просто чтоб на экране появилась рамочка из символов псевдографики и ничего больше. Тупо рамочка)) Знаю задача лёгкая,элементарная.
Решение задачи: «Получите на экране рамочку из символов псевдографики»
textual
Листинг программы
uses crt; var i:byte; begin clrscr; gotoXY(20,5); write(#201); for i:=1 to 40 do write(#205); write(#187); for i:=1 to 15 do begin gotoXY(20,5+i);write(#186); gotoXY(61,5+i);write(#186); end; gotoXY(20,21);write(#200); for i:=1 to 40 do write(#205); write(#188); readln end.
Объяснение кода листинга программы
- В начале кода подключается библиотека crt, которая является стандартной для языка Turbo Pascal.
- Переменная i инициализируется значением byte, что означает, что она может хранить целочисленное значение от 0 до 255.
- Функция clrscr очищает экран, чтобы начать новый рисунок.
- Функция gotoxy(x, y) перемещает курсор мыши на экран в позицию x, y.
- Первая строка кода выводит на экран символ #201, который представляет собой вертикальную линию.
- Вторая строка кода выводит на экран символ #205, который представляет собой горизонтальную линию.
- Третья строка кода выводит на экран символ #187, который представляет собой точку.
- Четвертая строка кода выполняет цикл for, который повторяется 15 раз. На каждой итерации цикла gotoxy(20,5+i) перемещает курсор мыши на экран в позицию 20,5+i, а затем gotoxy(61,5+i) перемещает курсор мыши на экран в позицию 61,5+i. Выводится символ #186 на каждой итерации.
- Пятая строка кода выводит на экран символ #200, который представляет собой горизонтальную линию.
- Шестая строка кода выполняет цикл for, который повторяется 40 раз. На каждой итерации цикла выводится символ #205.
- Седьмая строка кода выводит на экран символ #188, который представляет собой горизонтальную линию.
- Конец функции readln() означает, что программа завершила чтение ввода пользователя.
- Конец программы.