Использование возможностей модуля Crt

@Zhenekk · Регистрация: 22.09.2012

Студворк — интернет-сервис помощи студентам

Написать программу, используя всего два цикла: в одном цикле звездочки бегут сразу по верхней и нижней строкам экрана, в другом - сразу по левому и правому краю. Пусть каждая следующя звездочка выводится случайным цветом.

@domovou2.0 · 26.09.2012, 19:58

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses crt;
var i,i1:integer;
Begin
i1:=16;
for i:= 1 to 80 do begin
     textcolor(random(50));
     gotoxy(i,1);
     write('*');
     gotoxy(i,24);
     write('*');
     delay(150) ;
     clrscr;
      end;
for i1:= 1 to 24 do begin
     textcolor(random(50));
     gotoxy(80,i1);
     write('*');
     gotoxy(1,i1);
     write('*');
     delay(150) ;
     clrscr;
       end;
end.

@Zhenekk · 26.09.2012, 21:33 **[ТС]**

А почему в этих строка вместо двух переменных стоит одна переменная и одно число?
gotoxy(i,1);
gotoxy(i,24);
gotoxy(80,i1);
gotoxy(1,i1)
Так же почему в строке textcolor(random(50)); для изменения цвета стоит число 50? У меня в паскале не больше 15 цветов

Добавлено через 1 час 17 минут
Ну кто ответит?

@domovou2.0 · 26.09.2012, 21:40

Сообщение от Zhenekk

А почему в этих строка вместо двух переменных стоит одна переменная и одно число?
gotoxy(i,1);
gotoxy(i,24);
gotoxy(80,i1);
gotoxy(1,i1)

i,i1 они работают по циклу т.е. изменяются что бы звезда переходила,
а цифры это фиксированные сроки и столбцы.

Сообщение от Zhenekk

Так же почему в строке textcolor(random(50)); для изменения цвета стоит число 50? У меня в паскале не больше 15 цветов

Значит поставь 15

@Zhenekk · 26.09.2012, 22:52 **[ТС]**

domovou2.0, какой Pascal используете вы, что у вас программа работает при любом количестве цветов, когда у меня максимум 15.

@domovou2.0 · 27.09.2012, 19:46

Сообщение от Zhenekk

domovou2.0, какой Pascal используете вы, что у вас программа работает при любом количестве цветов, когда у меня максимум 15.

Обычно использую турбо, но хочу вас огорчить у меня их тоже 15.
Но в рандом вы можете поставить до 255))

Новые блоги и статьи Все статьи Все блоги /
Программный отбор элементов справочника Номенклатура по группе 1С Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор под наименованию группы (на. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	Программный отбор элементов справочника Сотрудники по перечислениям 1С Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .

@Zhenekk 11 / 4 / 1 Регистрация: 22.09.2012 Сообщений: 102

	Использование возможностей модуля Crt 26.09.2012, 18:48. Показов 5143. Ответов 5 Метки нет (Все метки) Написать программу, используя всего два цикла: в одном цикле звездочки бегут сразу по верхней и нижней строкам экрана, в другом - сразу по левому и правому краю. Пусть каждая следующя звездочка выводится случайным цветом. 0

@Zhenekk 11 / 4 / 1 Регистрация: 22.09.2012 Сообщений: 102
	26.09.2012, 21:33 [ТС]
	А почему в этих строка вместо двух переменных стоит одна переменная и одно число? gotoxy(i,1); gotoxy(i,24); gotoxy(80,i1); gotoxy(1,i1) Так же почему в строке textcolor(random(50)); для изменения цвета стоит число 50? У меня в паскале не больше 15 цветов Добавлено через 1 час 17 минут Ну кто ответит? 0

@Zhenekk 11 / 4 / 1 Регистрация: 22.09.2012 Сообщений: 102
	26.09.2012, 22:52 [ТС]
	domovou2.0, какой Pascal используете вы, что у вас программа работает при любом количестве цветов, когда у меня максимум 15. 0