Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
da1z
191 / 191 / 29
Регистрация: 03.12.2009
Сообщений: 853
#1

Круглые идущие часы

03.12.2009, 22:58. Просмотров 1253. Ответов 1
Метки нет (Все метки)

Помогите написать прогу ,которая выводит на экран круглые часы со всеми стрелками и по нажатию Enter они начинаюи идти.
Или хотябы помогите сделать хоть одну идущую стрелку

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

0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.12.2009, 22:58
Ответы с готовыми решениями:

В массиве A=(a1, а2, ..., аn) удалить все подряд идущие отрицательные элементы, идущие вслед за минимальным элементом массива.
Помогите написать на паскале программу для: В массиве A=(a1, а2, ..., аn)...

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

Удалить подряд идущие одинаковые буквы
помогите,пожалуйста, с составлением программы: Оставить в данном слове из...

Удалить из строки все подряд идущие одинаковые символы
Удалить из строки все подряд идущие одинаковые символы(КУмир/Паскаль)

Определить все числа идущие перед отрицательными числами
Помогите с задачкой. С клавиатуры вводятся целые числа. Признак конца ввода –...

1
Puporev
Модератор
54217 / 41850 / 28922
Регистрация: 18.05.2008
Сообщений: 98,526
04.12.2009, 11:12 #2
Лучший ответ Сообщение было отмечено da1z как решение

Решение

Вот пример с одной стрелкой. Добавите еще 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
27
28
29
30
31
uses crt,graph;
var gd,gm,x0,y0,r,a,x,y:integer;
    x1,y1:real;
    c:char;
begin
gd:=0;
initgraph(gd,gm,'');
x0:=getmaxX div 2;
y0:=getmaxY div 2;
r:=100;
setcolor(2);
circle(x0,y0,r);
setcolor(12);
line(x0,y0,x0,y0-r+5);
setcolor(15);
outtextXY(250,30,'Press Enter...');
readln;
outtextXY(250,50,'Vyhod Esc...');
a:=0;
repeat
  x:=x0+round((r-5)*sin(a*pi/180));
  y:=y0-round((r-5)*cos(a*pi/180));
  setcolor(12);
  line(x0,y0,x,y);
  delay(100);
  setcolor(0);
  line(x0,y0,x,y);
  a:=a+6;
if keypressed then c:=readkey;
until c=#27;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.12.2009, 11:12

Перемножить все элементы массива, идущие после максимального элемента
Помогите пожалсто.

Функция: заменить все подряд идущие одинаковые символы одним
Составить функцию преобразования строки, которая заменяет все подряд идущие...

Определить, есть ли в однонаправленном списке L1 подряд идущие элементы, составляющие список L2.
Помогите решить задачу на Pascal. Дан однонаправленный список L1. Определить,...


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

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

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