Получите на экране рамочку из символов псевдографики - 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.

Объяснение кода листинга программы

  1. В начале кода подключается библиотека crt, которая является стандартной для языка Turbo Pascal.
  2. Переменная i инициализируется значением byte, что означает, что она может хранить целочисленное значение от 0 до 255.
  3. Функция clrscr очищает экран, чтобы начать новый рисунок.
  4. Функция gotoxy(x, y) перемещает курсор мыши на экран в позицию x, y.
  5. Первая строка кода выводит на экран символ #201, который представляет собой вертикальную линию.
  6. Вторая строка кода выводит на экран символ #205, который представляет собой горизонтальную линию.
  7. Третья строка кода выводит на экран символ #187, который представляет собой точку.
  8. Четвертая строка кода выполняет цикл for, который повторяется 15 раз. На каждой итерации цикла gotoxy(20,5+i) перемещает курсор мыши на экран в позицию 20,5+i, а затем gotoxy(61,5+i) перемещает курсор мыши на экран в позицию 61,5+i. Выводится символ #186 на каждой итерации.
  9. Пятая строка кода выводит на экран символ #200, который представляет собой горизонтальную линию.
  10. Шестая строка кода выполняет цикл for, который повторяется 40 раз. На каждой итерации цикла выводится символ #205.
  11. Седьмая строка кода выводит на экран символ #188, который представляет собой горизонтальную линию.
  12. Конец функции readln() означает, что программа завершила чтение ввода пользователя.
  13. Конец программы.

Оцени полезность:

6   голосов , оценка 4 из 5
Похожие ответы