Нужна любая задача на тему: Применение модуля CRT

@Student32 · Регистрация: 23.01.2013

Нужна срочно любая задача на тему: Применение модуля CRT.

@ZLO1988 · 22.02.2013, 17:28

В любую задачу добавь в ее начало uses crt; и будет тебе счастье

Kodzaev · 22.02.2013, 17:39

Pascal

Uses crt;
BEGIN
Clrscr;
Randomize;
Repeat
 TextColor(Random(15)+1);
 GotoXY(Random(80)+1,Random(25)+1);
 Write(Chr(Ord(Random(200))));
 Delay(200);
until KeyPressed;
END.

@Student32 · 22.02.2013, 19:03 **[ТС]**

мне бы задачку по сложней, а то эта слишком лёгкая.

Kodzaev · 22.02.2013, 19:07

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

мне бы задачку по сложней, а то эта слишком лёгкая.

например? что должно быть в программе?

@Student32 · 22.02.2013, 19:25 **[ТС]**

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

Kodzaev · 22.02.2013, 19:37

Ну вот. Добавил звук, заливку фона и окна:

Pascal

Uses crt;
BEGIN
Randomize;
Repeat
 Clrscr;
 Sound(Random(1000));
 TextBackGround(Random(15)+1);
 TextColor(Random(15)+1);
 Window(Random(80)+1,Random(25)+1,Random(80)+1,Random(25)+1);
 GotoXY(Random(80)+1,Random(25)+1);
 Write(Chr(Ord(Random(200))));
 Delay(500);
 NoSound;
until KeyPressed;
END.

@Student32 · 22.02.2013, 21:02 **[ТС]**

как то не очень получилось. Нужно чтобы было по красивей.

Kodzaev · 22.02.2013, 21:29

Вот все процедуры и функции модуля CRT:

Код

AssignCrt Proc Связывает текстовый файл с окном CRT.
ClrEol Proc Очищает все символы с позиции курсора до
конца строки без перемещения курсора.
ClrScr Proc Очищает экран и устанавливает курсор в
верхний левый угол.
Delay Proc Процедура задержки по таймеру.
DelLine Proc Удаляет строку, содержащую курсор.
GotoXY Proc Перемещает курсор в заданную позицию экрана.
HighVideo Proc Устанавливает высокую интенсивность символов.
InsLine Proc Вставляет пустую строку в позиции курсора.
KeyPressed Func Определяет, была ли нажата клавиша на клавиатуре.
LowVideo Proc Включает низкую интенсивность символов.
NormVideo Proc Выбирает первоначальное значение атрибута текста.
NoSound Proc Выключает внутренний динамик компьютера.
ReadKey Func Читает символ из буфера клавиатуры.
Sound Proc Включает внутренний динамик.
TextBackground Proc Устанавливает цвет фона.
TextColor Proc Выбирает цвет символов.
TextMode Proc Устанавливает определенный текстовый режим.
WhereX Func Возвращает X-координату текущего положения курсора.
WhereY Func Возвращает Y-координату текущего положения курсора.
Window Proc Определяет на экране текстовое окно.

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

как то не очень получилось. Нужно чтобы было по красивей.

Что по-твоему еще можно сделать?

Добавлено через 47 секунд
Сам делай по-красивей...

Нужна любая задача на тему: Применение модуля CRT

Решение

Решение

@Student32 1 / 1 / 0 Регистрация: 23.01.2013 Сообщений: 37
		1
	Нужна любая задача на тему: Применение модуля CRT 22.02.2013, 16:12. Показов 1289. Ответов 8 Метки нет (Все метки) Нужна срочно любая задача на тему: Применение модуля CRT. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@ZLO1988 35 / 21 / 40 Регистрация: 25.02.2012 Сообщений: 170
	22.02.2013, 17:28	2
	В любую задачу добавь в ее начало uses crt; и будет тебе счастье 0

@Student32 1 / 1 / 0 Регистрация: 23.01.2013 Сообщений: 37
	22.02.2013, 19:03 [ТС]	4
	мне бы задачку по сложней, а то эта слишком лёгкая. 0

Kodzaev 3028 / 1914 / 1649 Регистрация: 30.04.2011 Сообщений: 3,060
	22.02.2013, 19:07	5
	Сообщение от Student32 мне бы задачку по сложней, а то эта слишком лёгкая. например? что должно быть в программе? 0

@Student32 1 / 1 / 0 Регистрация: 23.01.2013 Сообщений: 37
	22.02.2013, 19:25 [ТС]	6
	Нужно чтобы было побольше цветов и самих действий, двигались побольше, исчезали и появлялись различные фигуры. В общем чтобы было по эффектней. 0

@Student32 1 / 1 / 0 Регистрация: 23.01.2013 Сообщений: 37
	22.02.2013, 21:02 [ТС]	8
	как то не очень получилось. Нужно чтобы было по красивей. 0

Опции темы