Процедуры и функции модуля Crt и Dos |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Процедуры и функции модуля Crt и Dos |
Вадим |
Сообщение
#1
|
Группа: Пользователи Сообщений: 4 Пол: Мужской Репутация: 0 |
Сделайте кто лабу.
Составить программу вывода на экран окна, которое условно "разбито" на вертикальные столбцы. Верхние части столбцов окрашены одним фоном, нижние - другим. Граница раздела фонов столбцов формирует синусоиду произвольной амплитуды с периодом, равным ширине окна. При нажатии клавиши "Ввод" начинают изменяться соотношения заполнения столбцов разными фонами, т.е. создается эффект "бегущей" слева направо волны. Сообщение отредактировано: Вадим - |
xds |
Сообщение
#2
|
N337 Группа: Пользователи Сообщений: 737 Пол: Мужской Репутация: 26 |
А волшебное слово?
-------------------- The idiots are winning.
|
Amro |
Сообщение
#3
|
Пионер Группа: Пользователи Сообщений: 146 Пол: Мужской Репутация: 2 |
А он скажет, если сделаешь :D
-------------------- Закон иудеев: Семь раз отмерь, один отрежь.
Закон экономии: Семь раз отмерь, семь раз отрежь. Закон программиста: Семь раз отрежь, ошибся, отмерь. |
Altair |
Сообщение
#4
|
Ищущий истину Группа: Пользователи Сообщений: 4 825 Пол: Мужской Реальное имя: Олег Репутация: 45 |
Цитата Сделайте кто лабу. Какая наглость! IP я твой запомню .... -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
APAL |
Сообщение
#5
|
Смотрю... Группа: Пользователи Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: 6 |
Oleg_Z, терпимей... ;)
-------------------- |
BRS |
Сообщение
#6
|
Новичок Группа: Пользователи Сообщений: 45 Пол: Мужской Репутация: 0 |
Не - насамом деле такие посты убивают... Я плохо представляю: о чем задумывается человек постящий такие посты? Что здесь сидят маньяки-кодеры которым абсолютно не чего делать и они просто деруться изза возможности порешить какую нить задачу?
|
GoodWind |
Сообщение
#7
|
Автооответчик Группа: Пользователи Сообщений: 1 188 Пол: Мужской Реальное имя: Александр Репутация: 16 |
смотри а Анекдотах форму приказа
-------------------- Неадекватная чушь может быть адекватным ответом на неадекватный вопрос. Понятно или разжевать?
|
GoodWind |
Сообщение
#8
|
Автооответчик Группа: Пользователи Сообщений: 1 188 Пол: Мужской Реальное имя: Александр Репутация: 16 |
Цитата Что здесь сидят маньяки-кодеры которым абсолютно не чего делать и они просто деруться изза возможности порешить какую нить задачу? сознаюсь, бывают у меня подобные состояния -------------------- Неадекватная чушь может быть адекватным ответом на неадекватный вопрос. Понятно или разжевать?
|
Вадим |
Сообщение
#9
|
Группа: Пользователи Сообщений: 4 Пол: Мужской Репутация: 0 |
Чё вы все так сразу налетели?
Я же вас не заставляю, а прошу, пожалуйста, помочь написать лабу. |
Altair |
Сообщение
#10
|
Ищущий истину Группа: Пользователи Сообщений: 4 825 Пол: Мужской Реальное имя: Олег Репутация: 45 |
Действительно, что все налетели?
Ну у меня наверное как всегда было гадкое настроение, но у вас то? Так, Вадим, тут надо использовать функции: gotoXY (перевод курсора) и процелуры изменения цвета шрифта и фона... -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
volvo |
Сообщение
#11
|
Гость |
Вадим
Это самый первый набросок. Его еще можно улучшать и улучшать... ;)
Исправлено Сообщение отредактировано: volvo - |
Amro |
Сообщение
#12
|
Пионер Группа: Пользователи Сообщений: 146 Пол: Мужской Репутация: 2 |
Прикольно, тока директиву сопроцес -ра надо включить {$N+}
-------------------- Закон иудеев: Семь раз отмерь, один отрежь.
Закон экономии: Семь раз отмерь, семь раз отрежь. Закон программиста: Семь раз отрежь, ошибся, отмерь. |
volvo |
Сообщение
#13
|
Гость |
Так я и не выключал
|
BlackShadow |
Сообщение
#14
|
Гость |
Цитата Цитата Что здесь сидят маньяки-кодеры которым абсолютно не чего делать и они просто деруться изза возможности порешить какую нить задачу? сознаюсь, бывают у меня подобные состояния Та же беда... |
Гость_Вадим |
Сообщение
#15
|
Гость |
Volvo, после этой строчки выдаётся ошибка 116
currDegree := Pred(i) * (360 / numBars); Объясни, пожалуйста, в чём проблема. Спасибо. |
volvo |
Сообщение
#16
|
Гость |
Ну Amro уже написал:
первой строкой программы добавь
|
Bast |
Сообщение
#17
|
Новичок Группа: Пользователи Сообщений: 15 Пол: Женский Репутация: 0 |
Помогите переделать, что бы волна шла в другую сторону. Я сделала, но у меня таогда кусок синусоиды отрубаеться
|
Michael_Rybak |
Сообщение
#18
|
Michael_Rybak Группа: Пользователи Сообщений: 1 046 Пол: Мужской Реальное имя: Michael_Rybak Репутация: 32 |
Код в студию.
|
Bast |
Сообщение
#19
|
Новичок Группа: Пользователи Сообщений: 15 Пол: Женский Репутация: 0 |
{$N+} |
volvo |
Сообщение
#20
|
Гость |
Ну, неужели так сложно догадаться, что надо всего лишь "прокрутить" массив в другом направлении:
Заменить кусок: T := bars[1];вот на это: T := bars[numBars]; |
Текстовая версия | 19.05.2024 22:10 |