В первой части создать окно и вывести все символы от 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.
Объяснение кода листинга программы
- Создается окно размером 80x25.
- Выбирается фоновый цвет текста - светло-синий.
- Очищается экран.
- Создается окно размером 80x23.
- Устанавливается цвет текста - светло-зеленый.
- Выводится число k (от 0 до 255) с номером k.
- Если номер j (также от 0 до 13) делится на 13 без остатка, выводится строка.
- Цикл повторяется, пока k не станет равным 255.
- Очищается экран.
- Устанавливается цвет фона - зеленый.
- Устанавливается координаты i и j для следующего цикла.
- Запускается цикл, в котором:
- выводится символ
*
с номером i; - выводится символ
+
с номером j; - цвет текста меняется на зеленый;
- задержка в 100 мс;
- выводится символ
- выводится символ
- координаты i и j сдвигаются так, чтобы i стал на единицу больше, а j на единицу меньше;
- если i стал равным 1, dx устанавливается в 1, иначе если i стал равным 79, dx устанавливается в -1.
- выводится символ
- Пока не будет нажата клавиша, цикл продолжается.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д