В первой части создать окно и вывести все символы от 0 до 255 с указанием номеров - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Разделить экран по горизонтали на две части. В первой части создать окно и вывести все символы от 0 до 255 с указанием номеров, во втором окне в двух строчках вывести два символа, бегающих в противоположные стороны.

Решение задачи: «В первой части создать окно и вывести все символы от 0 до 255 с указанием номеров»

textual
Листинг программы
uses Crt;
var
  i,j,k,dx:integer;
begin
  clrscr;
  window(1,1,80,25);
  textbackground(LightBlue);
  clrscr;
  window(1,1,80,23);
  k:=-1;j:=0;
  repeat
      k:=k+1;j:=j+1;
      textcolor(LightGreen);
      write(k:3,':',chr(k),' ');
      if j mod 13=0 then writeln;
  until k=255;
  window(1,24,80,25);
  textbackground(Green);
  clrscr;
  i:=40;j:=40;dx:=1;
  repeat
    gotoxy(i,1);textcolor(Yellow);write('*');
    gotoxy(j,2);textcolor(White);write('+');
    textcolor(Green);
    delay(100);
    gotoxy(i,1);textcolor(Yellow);write(' ');
    gotoxy(j,2);textcolor(White);write(' ');
    i:=i+dx;j:=j-dx;
    if i=1 then dx:=1 else if i=79 then dx:=-1;
  until keypressed;
end.

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

  1. Создается окно размером 80x25.
  2. Выбирается фоновый цвет текста - светло-синий.
  3. Очищается экран.
  4. Создается окно размером 80x23.
  5. Устанавливается цвет текста - светло-зеленый.
  6. Выводится число k (от 0 до 255) с номером k.
  7. Если номер j (также от 0 до 13) делится на 13 без остатка, выводится строка.
  8. Цикл повторяется, пока k не станет равным 255.
  9. Очищается экран.
  10. Устанавливается цвет фона - зеленый.
  11. Устанавливается координаты i и j для следующего цикла.
  12. Запускается цикл, в котором:
    • выводится символ * с номером i;
    • выводится символ + с номером j;
    • цвет текста меняется на зеленый;
    • задержка в 100 мс;
    • выводится символ с номером i;
    • выводится символ с номером j;
    • координаты i и j сдвигаются так, чтобы i стал на единицу больше, а j на единицу меньше;
    • если i стал равным 1, dx устанавливается в 1, иначе если i стал равным 79, dx устанавливается в -1.
  13. Пока не будет нажата клавиша, цикл продолжается.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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