1 / 1 / 0
Регистрация: 23.01.2013
Сообщений: 37
1

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

22.02.2013, 16:12. Показов 1289. Ответов 8
Метки нет (Все метки)

Нужна срочно любая задача на тему: Применение модуля CRT.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.02.2013, 16:12
Ответы с готовыми решениями:

Нужна любая задача на тему Использование модуля CRT
нужна любая задача на тему Использование модуля CRT

Нужна любая готовая задача по 1с
Добрый день, собственно скиньте кому не жалко любых решенных задачек,допустим задание и написанный...

Нужна задача на знание модуля Stack
Нужна задача на знание модуля Stack, желательно попроще. Я что то не пойму принципа действия.

Нужна задача на тему Юриспруденции (Социальное обеспечение, пенсионное и др.) VBA WORD 2010
Здравствуйте! Нужна срочно помощь. Мой педагог дал задание чтобы я придумал задачу в программе...

8
35 / 21 / 40
Регистрация: 25.02.2012
Сообщений: 170
22.02.2013, 17:28 2
В любую задачу добавь в ее начало uses crt; и будет тебе счастье
0
3028 / 1914 / 1649
Регистрация: 30.04.2011
Сообщений: 3,060
22.02.2013, 17:39 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
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.
0
1 / 1 / 0
Регистрация: 23.01.2013
Сообщений: 37
22.02.2013, 19:03  [ТС] 4
мне бы задачку по сложней, а то эта слишком лёгкая.
0
3028 / 1914 / 1649
Регистрация: 30.04.2011
Сообщений: 3,060
22.02.2013, 19:07 5
Цитата Сообщение от Student32 Посмотреть сообщение
мне бы задачку по сложней, а то эта слишком лёгкая.
например? что должно быть в программе?
0
1 / 1 / 0
Регистрация: 23.01.2013
Сообщений: 37
22.02.2013, 19:25  [ТС] 6
Нужно чтобы было побольше цветов и самих действий,
двигались побольше, исчезали и появлялись
различные фигуры. В общем чтобы было по эффектней.
0
3028 / 1914 / 1649
Регистрация: 30.04.2011
Сообщений: 3,060
22.02.2013, 19:37 7
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Ну вот. Добавил звук, заливку фона и окна:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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.
0
1 / 1 / 0
Регистрация: 23.01.2013
Сообщений: 37
22.02.2013, 21:02  [ТС] 8
как то не очень получилось. Нужно чтобы было по красивей.
0
3028 / 1914 / 1649
Регистрация: 30.04.2011
Сообщений: 3,060
22.02.2013, 21:29 9
Вот все процедуры и функции модуля 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 секунд
Сам делай по-красивей...
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.02.2013, 21:29
Помогаю со студенческими работами здесь

Прога на тему: Модуль CRT с меню.
Вообщем вот задание: Разработать программу вывода на экран меню следующего вида: ...

Glassfish Server + Remote Client. Идеи, протоколы обмена, любая информация! И о применение JMS
Здравствуйте, форумчане! Пришло то время, когда мне пришлось ввалиться в пучину jEE и... Глаза...

процедуры модуля Crt
Составьте программу вывода на экран двух окон. Первое – обрамленное рамкой и в него занесен текст....

С использованием модуля CRT
Помогите, пожалуйста, решить задачу(язык -- Паскаль) Организовать перемещение буквы «Ж» синего...

Использование библиотеки модуля CRT
Всем доброго времени суток. Помогите с задачкой. Задана строка символов. Написать программу...

Процедуры и функции модуля CRT
Составьте программу вывода на экран горизонтального меню, состоящего из четырех пунктов и Выход....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru