Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Определить, попадает ли число Х в интервалы от –14 до 2 и от 5 до 10 Определить, попадает ли число Х в интервалы от –14 до 2 и от 5 до 10. Напечатать модуль этого числа в случае положительного ответа. https://www.cyberforum.ru/ turbo-pascal/ thread1354994.html	Turbo Pascal Разработать программу, позволяющую осуществлять перевод чисел из одной системы счисления в другую Ребят всем привет. Пишу курсовую работу по паскалю. Задание таково: Разработать программу, позволяющую осуществлять перевод чисел из одной системы счисления в другую. Пользователь в диалоговом режиме вводит число в десятичной системе счисления и систему счисления, в которой число должно быть представлено. Основание системы должно находиться в пределах от 2 до 16. Программу я дописал, но...
Turbo Pascal Составить подпрограмму вычисления среднего арифметического элементов заданного участка массива помогите решить задачу в паскале Дана таблица из 10 элементов. Составить подпрограмму вычисления среднего арифметического элементов заданного участка. Обращаясь к подпрограмме вычислить среднее арифметическое элементов на участках 1-6, 7-10. https://www.cyberforum.ru/ turbo-pascal/ thread1354596.html	Turbo Pascal Обнулить минимальное количество элементов так, чтобы сумма элементов столбца матрицы не превышала заданную https://www.cyberforum.ru/ turbo-pascal/ thread1354579.html Составить процедуру обнуляющую минимальное количество элементов так, чтобы сумма элементов столбца матрицы из натуральных чисел A(m x n) не превышала заданную Благодарю заранее!
Turbo Pascal Найти минимальный элемент среди столбцов матрицы которые упорядочены uses crt; const nmax=5000; type mas=array of real; const glav:array of string=('1-Zadanie1', '2-Zadanie2 ', '3-O razrabot', '4-Vihod'); zadan1:array of string=('1-Vvod iz faila', '2-Vvod c klaviaturi', ...	Turbo Pascal Написать рекурсивную функцию нахождения цифрового корня натурального числа https://www.cyberforum.ru/ turbo-pascal/ thread1354373.html Написать рекурсивную функцию нахождения цифрового корня натурального числа. Цифровой корень данного числа получается следующим образом. Если сложить все цифры этого числа, затем все цифры найденой суммы и повторять этот процесс, то в результате будет получено однозначное число (цифра), которая и называется цифровым корнем данного числа.
Turbo Pascal Задания по блок-схеме https://www.cyberforum.ru/ turbo-pascal/ thread1354363.html Не могли бы вы помочь с заданиями на этой фотографии.	Turbo Pascal Найти все натуральные числа, не превосходящие 600, у которых сумма цифр является делителем самого числа Найти все натуральные числа, не превосходящие 600, у которых сумма цифр является делителем самого числа.
Turbo Pascal Приписать к числу 999 слева три такие цифры, чтобы полученное шестизначное число делилось на 13, 14, 19 Приписать к числу 999 слева три такие цифры, чтобы полученное шестизначное число делилось на 13, 14, 19. https://www.cyberforum.ru/ turbo-pascal/ thread1354328.html	Turbo Pascal 4-х значное число, а также число, записанное теми же цифрами в обратном порядке, оба - точные квадраты https://www.cyberforum.ru/ turbo-pascal/ thread1354327.html четырехзначное число, а также число, записанное теми же цифрами в обратном порядке, оба являются точными квадратами. Найти эти числа.
Найти все трехзначные числа, которые являются полными квадратами и записываются тремя нечетными цифрами Turbo Pascal Найти все трехзначные числа, которые являются полными квадратами и записываются тремя нечетными цифрами.	Turbo Pascal Как восстановить случайно закрытое окно вывода https://www.cyberforum.ru/ turbo-pascal/ thread1354315.html после запуска программы, после ввода данных внизу появляется "вывод", я его случайно закрыл, как восстановить?

bormant

Модератор

7769 / 4598 / 2823

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

Сообщений: 13,077

Записей в блоге: 1

16.01.2015, 16:53

Движение фигуры по нажатию на клавиши-стрелки - Turbo Pascal - Ответ 7113178

16.01.2015, 16:53. Показов 5522. Ответов 16

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

Ответ

Полагаю, так будет понятнее:

Pascal

tPoint=object
  x,y:integer;
...
tLine=object(tPoint)
  Lx,Ly:integer;
...
procedure tLine.Draw;
begin
...
  Line(x,y,Lx,Ly);
end;
 
procedure tLine.Move(NewX,NewY:integer);
begin
  Hide;
  x:=NewX; y:=NewY;
  Draw;
end;

Вот поменяли вы при сдвиге x,y, потом нарисовали из новой точки (x,y) опять в старую (Lx,Ly).
Разве этого хотелось?

Вернуться к обсуждению:
Движение фигуры по нажатию на клавиши-стрелки Turbo Pascal

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

16.01.2015, 16:53

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

Движение круга по нажатию клавиши
Здравствуйте, мне надо сделать движение шарика при нажатии стрелочки(движение соответствует...

Движение картинки по нажатию клавиши
нужно сделать движение picturebox при нажатии на клавиши(вверх, вниз, вправо, влево)

Движение слова по нажатию клавиши
Имеется код, нужно дописать его так, чтобы слово Внимание двигалось по нажатию клавиш W,A,S,D....

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

	16.01.2015, 16:53

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

16.01.2015, 16:53

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

Движение фигуры по нажатию двух клавиш
Здравствуйте! Подскажите, как прописать код, чтобы фигура начинала двигать при нажатии Alt+любая...

Как реализовать движение фигуры на canvas при нажатии на клавиши up, down, left, right?
как реализовать движение фигуры на canvas с помощью клавиш up, down, left, right? Проблема в том...

Нарисовать летающий в пространстве куб. Движение и остановку реализовать по нажатию на клавиши клавиатуры
Нарисовать летающий в пространстве куб. Движение и остановку реализовать по нажатию на клавиши...

Нарисовать летающий в пространстве мяч. Движение и останов реализовать по нажатию на клавиши клавиатуры
Нарисовать летающий в пространстве мяч. Движение и останов реализовать по нажатию на клавиши...

Наверх