13.02.2011, 10:58 | #1 (permalink) |
Технарёнок
Регистрация: 30.12.2010
Сообщений: 77
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Здравствуйте! Помогите пожалуйста написать программу в Pascale. До 16 февраля 2011 Задача Создать виртуальный поле чудес , чтобы круг крутился 7 секунд, затем стрелка указывала случайным выбором на одну из девяти ячеек, в каждой ячейки написаны балы первая ячейка 10, Вторая 20, трития 30,и.т.д. написать программу в pascaleABC. примерно так должен ввыглядеть барабан,только цветной,если кто сможет сделать лучьше жду от вас помощи. |
13.02.2011, 10:58 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Скорее всего проблема уже была решена ранее в других обсуждениях Помогите, белое поле с символами на экране Алиса в стране чудес |
13.02.2011, 11:06 | #2 (permalink) |
Технарёнок
Регистрация: 30.12.2010
Сообщений: 77
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
вот мой вариант
uses crt.graphABC; var a:integer; begin крутится барабан a:=random(9); if a = 1 then begin a:=10; потом рисунок - стрелка указывает на 10 балов. if a = 2 then begin a:=20; потом рисунок - стрелка указывает на 20 балов. и.т.д end. |
13.02.2011, 11:56 | #3 (permalink) | |
一步一步地会到目的
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,939
Записей в дневнике: 10
Сказал(а) спасибо: 140
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28362
|
Цитата:
Код:
case a of 1: begin a=10; .... end; 2: begin a=20; .... end; . . . 10: begin a=100; .... end; end; |
|
13.02.2011, 12:09 | #4 (permalink) |
Технарёнок
Регистрация: 30.12.2010
Сообщений: 77
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
MrSTEP - обращаюсь к вам,я могу ошибаца,но здесь вроде,будет так - крутится барабан,затем мы сами выбираем рисунок,а мне надо чтобы программа сама выдовала рисунок.
проблема у меня с графикой я немогу нарисовать барабан,и заставить его крутится! |
13.02.2011, 12:19 | #5 (permalink) |
一步一步地会到目的
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,939
Записей в дневнике: 10
Сказал(а) спасибо: 140
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28362
|
Я тоже не художник, тем более не аниматор. Хотя в делфи я бы это сделал, а в паскале - врядли.
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
14.02.2011, 09:15 | #6 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
В любой версии Pascal
Circle(X,Y,R) - рисует окружность с центром в точке (X,Y) и радиусом R. Sector(X,Y,an,ak,R1,R2) - вычерчивает эллиптический сектор, (X,Y) - центр, R1 - радиус по OX, R2 - радиус по OY, an,ak - углы прямых, ограничивающих сектор. PieSlice(X,Y,an,ak,R) - вычерчивает и заполняет сектор круга с центром в точке (X,Y) и радиусом R, заданный прямыми, проведенными под углами an и ak. SetColor(C) - устанавливает цвет линии. OutTextXY(X,Y,'text') - выводит текст в графическом режиме.
__________________
Убить всех человеков! |
14.02.2011, 09:34 | #7 (permalink) |
Технарёнок
Регистрация: 30.12.2010
Сообщений: 77
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
спасибо за помощь,но у меня неполучается.
я открываю PascalABC,встовляю туда то что вы мне написали,и мне пишут неизвестный индификатор. вы бы немагли нарисовать мне этот барабан,и сделать чтоб он крутился?? |
14.02.2011, 11:19 | #8 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Я работаю в FreePascal под Linux, там совсем другой принцип организации вывода графики, вам любой мой способ решения явно не подойдёт
__________________
Убить всех человеков! |
14.02.2011, 17:08 | #10 (permalink) |
Технарёнок
Регистрация: 30.12.2010
Сообщений: 77
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Код:
uses GraphABC; var i,j,k,m,i1:integer; procedure pr_st; var i,m:integer; begin m:=0; SetPenColor(ClBlack); for i:=0 to 3 do begin LineTo(130+m,200+m); LineTo(130+m,250+m); inc(m,50); end; LineTo(WindowWidth,200+m); SetPenColor(ClGreen); end; begin i:=90; j:=70; k:=i+95; MoveTo(0,200); m:=j+50; SetPenColor(ClGreen); ClearWindow(ClGreen); pr_st; for i1:=1 to 4 do begin while i<k do begin Circle(i,j,30); Circle(i,j+80,50); Circle(i,j-45,15); circle(i-5,j-45,3); Circle(i+5,j-45,3); inc(i); sleep(10); end; inc(k,50); while j<m do begin Circle(i,j,30); Circle(i,j+80,50); Circle(i,j-45,15); circle(i-5,j-45,3); Circle(i+5,j-45,3); inc(j); sleep(10); end; inc(m,50); end; While i<WindowWidth-50 do begin Circle(i,j,30); Circle(i,j+80,50); Circle(i,j-45,15); circle(i-5,j-45,3); Circle(i+5,j-45,3); inc(i); sleep(10); end; end. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|