Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal ABC Тема: Процедуры и функции https://www.cyberforum.ru/ pascalabc/ thread720703.html Даны вещественные числа A и R, представляющие собой длину стороны квадрата и радиус круга на плоскости. Написать подпрограмму, выводящую одно из трех сообщений: "КРУГ ПОМЕЩАЕТСЯ В КВАДРАТ", "КВАДРАТ ПОМЕЩАЕТСЯ В КРУГ", "КРУГ И КВАДРАТ НЕ ПОМЕЩАЮТСЯ ДРУГ В ДРУГЕ", в зависимости от величин А и R. Желательно с блок-схемой	дано трёхзначное число узнать что оно заканчивается и начинается на одну и туже цифру Pascal ABC дано трёхзначное число узнать что оно заканчивается и начинается на одну и туже цифру
Pascal ABC ТЕМА: Циклы Вывести на дисплей календарь на текущий год. p.s: нужно еще блок-схема https://www.cyberforum.ru/ pascalabc/ thread720680.html	Pascal ABC массивы https://www.cyberforum.ru/ pascalabc/ thread720675.html подскажите пожалуйста как найти номера одинаковых элементов в массиве?????
Pascal ABC Ввести с клавиатуры целочисленную матрицу размерности n x m Ввести с клавиатуры целочисленную матрицу размерности n x m (заданы константами). Найти элемент кратный заданному числу. Вывести на экран найденный элемент, его индексы, степень кратности.	Pascal ABC В одномерном массиве, состоящем из п вещественных элементов, вычислить: В одномерном массиве, состоящем из n вещественных элементов, вычислить: 1. Минимальный элемент массива. 2. Сумму элементов массива, расположенных между первым и последним положительными элементами. Преобразовать массив таким образом, чтобы сначала располагались все элементы, равные нулю, а потом - все остальные. https://www.cyberforum.ru/ pascalabc/ thread720668.html
Pascal ABC Линейный алгоритм. Ввод-вывод данных Вычислите значение выражений по формуле: https://www.cyberforum.ru/ pascalabc/ thread720658.html	Pascal ABC Вывести на экран массив. Найти среднее арифмитическое положительных элементов 2)Дан одномерный массив А(M). Вывести на экран массив. Найти среднее арифмитическое положительных элементовю Вывести результат на экран
Pascal ABC Лабораторная по типизированным файлам https://www.cyberforum.ru/ pascalabc/ thread720623.html Создать файл действительных чисел. Получить новый файл, компоненты которого являются отклонениями соответствующих компонент исходного файла от среднего арифметического значения всех его компонент. Что такое отклонение? Как это понять?	Pascal ABC Ввести файл F1, из положительных элементов которого сформировать другой файл F2 читая F1 от конца к началу https://www.cyberforum.ru/ pascalabc/ thread720613.html Ввести файл F1, из положительных элементов которого сформировать другой файл F2 читая F1 от конца к началу. Из этих файлов сформировать, соответственно, квадратные матрицы A1 n1×n1 и A2 n2×n2 максимально возможного размера записывая в них элементы построчно. В полученных матрицах поменять местами первую строку и главную диагональ. В процессе решения задачи выводить файлы и матрицы как до,...
Pascal ABC Даны целые числа m, a1,..., a20. Найти три натуральных числа i, j, k, каждое из которых не превосходит двадцати, такие, что ai+ aj+ ak = m. Даны целые числа m, a1,..., a20. Найти три натуральных числа i, j, k, каждое из которых не превосходит двадцати, такие, что ai+ aj+ ak = m. Если таких чисел нет, то сообщить об этом.	Pascal ABC Даны натуральные числа https://www.cyberforum.ru/ pascalabc/ thread720599.html Даны натуральные числа n, b0, ...,bn. Вычислить f(b0)+f(b1)+...+f(bn),где

leobrn

26 / 26 / 15

Регистрация: 20.10.2012

Сообщений: 180

Управление объектом с клавиатуры (задать движение) - Pascal ABC - Ответ 3808456

06.12.2012, 13:34. Показов 10185. Ответов 5

Метки (Все метки)

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

есть флаг, нужно сделать так, чтобы можно было управлять им с клавиатуры.
Код флага:

Pascal

program pr;
uses graphABC;
 
var
x,y:integer;
l,h:integer;
w:integer;
i:integer;
begin
x:=100;
y:=100;
l:=50;
h:=25;
w:=round(h/3);
SetBrushColor(clWhite); 
Rectangle(x,y,x+l,y+w); 
 
SetBrushColor(clBlue); 
Rectangle(x,y+w,x+l,y+2*w); 
 
SetBrushColor(clRed); 
Rectangle(x,y+2*w,x+l,y+3*w); 
 
 
 
readln;
end.

Добавлено через 16 часов 59 минут
помогитеееее

Вернуться к обсуждению:
Управление объектом с клавиатуры (задать движение) Pascal ABC

Следующий ответ

Лучшие ответы (1)

Сообщение: #3811583

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

06.12.2012, 13:34

Готовые ответы и решения:

Управление объектом с клавиатуры
Добрый день пытаюсь сделать игру Астероид, и вот столкнулся с проблемой управления космическим...

Движение за объектом
Возник еще один вопрос.. Надеюсь, последний в этом разделе)) Есть блок слева(Heroy), а справа...

Движение камеры за объектом
Добрый день! Захотелось:) написать что-то похожое на гонки. Возник вопрос - как перемещать камеру...

Движение, вращение, управление движением, управление вращением фигуры
Написать программу, выполняющую четыре операции над графическим...

	06.12.2012, 13:34

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

06.12.2012, 13:34

Помогаю со студенческими работами здесь

Управление объектом в canvas
Graphics::TBitmap* gBitmap = new Graphics::TBitmap; gBitmap->LoadFromFile("0.bmp");...

Тач-управление объектом
Здравствуйте гуру У меня возникла проблема При движении пальца вверх или вниз по экрану...

Движение камеры вслед за объектом
Ребята привет. Есть скрипт движения камеры с помощью мышки по X Y Z + вращение, прям как в...

Управление объектом в экранных координатах
Здравствуйте , хочу узнать как можно выставить объект не в мировых координатах , а в экранных

Наверх