Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
0 / 0 / 4
Регистрация: 20.03.2014
Сообщений: 221
1

Изобразить на экране окружность и ее радиус; при нажатии на клавишу «Enter» радиус должен вращаться по часово

27.03.2016, 11:17. Просмотров 1100. Ответов 1
Метки нет (Все метки)


Изобразить на экране окружность и ее радиус; при нажатии на клавишу «Enter» радиус должен
вращаться по часовой стрелке.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.03.2016, 11:17
Ответы с готовыми решениями:

программа вычерчивающая на экране монитора окружность заданного радиуса и цвета,радиус и цвет с клавиатуры
Есть программа ,надеюсь правильно написана,нужно добавить лишь ввод цвета и радиуса окружности с...

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

Событие определенной кнопки при нажатии на клавишу Enter
В программе есть несколько кнопок, при нажатии на Enter надо, чтобы сработало событие определённой...

Звук при нажатии на клавишу enter. Как изменить его?
Так не работает PlaySound(L"mv.wav", NULL, SND_ASYNC);

1
Модератор
62830 / 46889 / 32315
Регистрация: 18.05.2008
Сообщений: 113,619
27.03.2016, 17:41 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
uses graph,wincrt;
var x0,y0,r,x,y:integer;
    u:real;
    c:char;
begin
initgraph(x0,y0,'');
x0:=getmaxX div 2;
y0:=getmaxY div 2;
r:=100;
circle(x0,y0,r);
line(x0,y0,x0,y0-r);
c:=readkey;
if c=#13 then
 begin
  u:=pi/2;
  repeat
  delay(50);
  cleardevice;
  u:=u-0.05;
  x:=x0+round(r*cos(u));
  y:=y0-round(r*sin(u));
  circle(x0,y0,r);
  line(x0,y0,x,y);
  until keypressed;
 end;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.03.2016, 17:41

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

При нажатии на клавишу Enter в центре формы появляется квадрат размера 10×10
Напишите такое приложение: при нажатии на клавишу Enter в центре формы появляется квадрат размера...

Составить блок-схему и нарисовать с помощью операторов языка движущуюся по прямой окружность уменьшающую радиус при движении
Составить блок-схему и нарисовать с помощью операторов языка движущуюся по прямой окружность...

Как сделать так, чтобы при нажатии на клавишу Enter вызывалась кнопка Button
Имеется два TextBox, два RegularExpressionValidator, два RequiredFieldValidator и кнопка Button ...

При нажатии на клавишу Энтер курсор должен перейти в следующее поле, а оно никак (
Всем добрый день. Занимаюсь самостоятельным изучением Delphi XE, столкнулся с таким вот событием. ...

Треугольник. Окружность. Какой радиус?
Здравствуйте. Вот задача тут одна есть. Помогите пожалуйста решить. Буду благодарен. Вот условие: ...

Считать радиус и выдать на печать диаметр окружности, радиус и площадь
Здравствуйте, уважаемые! Начал изучать язык С и столкнулся с задачей такой. //Напишите программу,...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.