Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Free Pascal Сдвиг массива вправо https://www.cyberforum.ru/ free-pascal/ thread1922561.html
Вот нашел интересную задачку. Вращение массива вправо. Объявите массив из 10 чисел и заполните его случайным образом. Напишите процедуру, перемещающую 1-й элемент на 2-е место, 2-й — на 3-е место и т.д. Последний элемент должен занять 1-е место. Сделал, неработало. Отладчик обьяснил почему. Даже если вручную прописать копирование, то tb:=tb;tb:=tb, или с попощью цикла, чилсло из первого...
Free Pascal Неориентированный Граф
Доброго времени суток! Помогите пожалуйста решить задачу: Простой неориентированный граф задан матрицей смежности. Посчитайте количество рёбер в заданном графе. В первой строке входного файла задано число N (1<N<100) - количество вершин в графе. Далее следует N строк по N чисел - матрица смежности графа. Программа должна вывести в выходной файл целое число - количество рёбер в графе. ...
Free Pascal Расшифровать ребус Расшифровать ребус, полученный в результате замены одинаковых букв одинаковыми цифрами. Найти также такие значения цифр, при которых сумма цифр в результате окажется наибольшей ГОД+ГОД+ГОД+ГОД=ВЕК https://www.cyberforum.ru/ free-pascal/ thread1922272.html Free Pascal Вычислить максимальные нетривиальный делитель Ввести натуральное k>1 и вычислить максимальный нетривиальный делитель. https://www.cyberforum.ru/ free-pascal/ thread1921914.html
Определить, через сколько лет вклад превысит заданный размер Free Pascal
Известен начальный вклад клиента в банк и процент годового дохода. Определить, через сколько лет вклад превысит заданный размер и каков при этом будет размер вклада.
Free Pascal Дан массив A(N). Получить массив B(N), i-й элемент которого равен среднему арифметическому первых i элементов Дан массив A(N). Получить массив B(N), i-й элемент которого равен среднему арифметическому первых i элементов массива А: bi = (a1 + a2 + ... + ai ) / i https://www.cyberforum.ru/ free-pascal/ thread1921254.html
Free Pascal Ошибка exitcode 201 https://www.cyberforum.ru/ free-pascal/ thread1920841.html
При вводе вектора выдаёт exitcode 201. Задание было такое: В задаваемом вещественном векторе A размерности n>5. Найти значение и индекс последнего минимального элемента program h56e; var a:array of integer; min,i,n,k:integer; begin repeat writeln('Введите размерность вектора');
Free Pascal Для заданного натурального числа N требуется найти ближайшее к нему двоякое число.
Натуральное число называется двояким, если в его десятичной записи встречается не более двух различных цифр. Например, числа 3, 23, 33, 100, 12121 — двоякие, а числа 123 и 9980 — нет. Для заданного натурального числа N требуется найти ближайшее к нему двоякое число. Входные данные Во входном файле INPUT.TXT записано одно натуральное число N, не превосходящее 30 000. Выходные данные
Free Pascal Вывести букву стоящую справа от заданной буквы на клавиатуре Для данной буквы латинского алфавита нужно вывести справа стоящую букву на стандартной клавиатуре. При этом клавиатура замкнута, т.е. справа от буквы «p» стоит буква «a», от буквы «l» стоит буква «z», а от буквы «m» — буква «q». Входные данные Входной файл INPUT.TXT содержит один символ — маленькую букву латинского алфавита. Выходные данные В выходной файл OUTPUT.TXT следует вывести... https://www.cyberforum.ru/ free-pascal/ thread1920432.html Free Pascal О Компиляции https://www.cyberforum.ru/ free-pascal/ thread1919453.html
В free pascal можно скомпилировать под множество ОС, но у меня стоит версия ОС под архитектуру i386 и я могу компилировать лишь под i386. Сам то процеесор amd64. Почему я не могу скомпилировать под amd64, и если у меня будет ОС под amd64 смогу ли я компилировать под i386?
Free Pascal Работа с модулем Crt
Помогите пожалуйста с написанием программы. 1)Нужно разделить экран на 4 прямоугольника. 2)При переходе стрелочками в прямоугольник, в нем должна появляться надпись из файла. 3)При переходе к другому прямоугольнику надпись пропадает. 4)Конец программы - ESC. Я не понимаю как сделать сразу 4 window активными
Free Pascal Сортировка списка Нужно дописать к основной программе процедуру сортировки списка по любому признаку. Список создан путем введения сссылочных переменных. Буду очень признателен https://www.cyberforum.ru/ free-pascal/ thread1917850.html
Эксперт Pascal/Delphi
6810 / 4567 / 4819
Регистрация: 05.06.2014
Сообщений: 22,438
18.02.2017, 15:14 0

Как избавиться от мерцания в графическом режиме на Free Pascal? - Free Pascal - Ответ 10127722

18.02.2017, 15:14. Показов 1958. Ответов 6
Метки (Все метки)

Ответ

Прорисовка и жуткое мерцание

Можно попробовать поработать с видеостраницами. SetActivePage/SetVisualPage
Или как вариант, библиотека wingraph - http://math.ubbcluj.ro/~sberin... index.html
Пример:
Pascal
1
2
3
4
5
6
7
8
UpdateGraph(UpdateOff); //used to reduce flickering
  repeat
    Delay(15); // задержка
    PutAnim(80+Round(10*Sin(i*Pi12)),130+Round(10*Cos(i*Pi12)),anim,BkgPut); // выбили маску для спрайта
    Inc(i); // сменили координату
    PutAnim(80+Round(10*Sin(i*Pi12)),130+Round(10*Cos(i*Pi12)),anim,TransPut); // вывели спрайт
    UpdateGraph(UpdateNow);
  until KeyPressed;
Еще пример:
от Polinom2686

Pascal
1
2
3
4
UpdateGraph(UpdateOff);
Circle(0,0,50);          //Рисуем круг
Bar(0,0,100,100)         //Рисуем закрашенный прямоугольник
UpdateGraph(UpdateNow);  //Выводим на экран все примитивы


Вернуться к обсуждению:
Как избавиться от мерцания в графическом режиме на Free Pascal? Free Pascal
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.02.2017, 15:14
Готовые ответы и решения:

Как вывести картинки на экран В графическом режиме pascal abc
например если ваш знак овен ,вывести эту картину uses graphABC; const kol=1000; ...

Штриховка уголка в графическом режиме - Pascal
Всем доброго дня, необходима помощь. Не поможете ли кодом, нужно написать ПО на паскале, для...

Строка с бегущим текстом в графическом режиме (Pascal)
Здравствуйте, помогите, пожалуйста, решить следующую задачу (используя графический режим): ...

Создать в графическом режиме Pascal игру Сокровища
Случайным образом разбросать сокровища (например,окружность) на экране.Реализовать движение паучка...

6
18.02.2017, 15:14
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.02.2017, 15:14
Помогаю со студенческими работами здесь

Нарисовать 2 функции в графическом режиме ABC Pascal.NET
Есть готовый код программы только для 1 функции, а нужно для 2 : sin(e^(-x)) и cos(e^(-x))...

Как избавиться от мерцания?
Здравствуйте, возникла такая проблема. При быстром прогоне таймера появляется мерцание, есть ли...

Как избавиться от мерцания ToolTip?
суть в чем: есть checkedListBox при наведении мыши на элемент появляется описание в ToolTip...

Как избавиться от мерцания в gdi?
Как избавиться от мерцания в gdi? Пробовал делать двойную буфферизацию с помощью...

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