Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.64/14: Рейтинг темы: голосов - 14, средняя оценка - 4.64
petrovalex07
0 / 0 / 0
Регистрация: 18.10.2012
Сообщений: 15
1

Нарисуйте шахматную доску с шашками

21.10.2012, 21:45. Просмотров 2639. Ответов 5
Метки нет (Все метки)

Нарисуйте шахматную доску с шашками пжл
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.10.2012, 21:45
Ответы с готовыми решениями:

Изобразить шахматную доску
Помогите пожалуйста, написать программу шахматной доски (Pascal ABC)

Нарисовать шахматную доску
Нужно с помощью цикла вайл и графического модуля создать "шахматную доску"...

Нарисовать шахматную доску
1)создать программу ,когда рисуешь один прямоугольник и из него делаешь...

Изобразить шахматную доску
помогите сделать шахматную доску 400 рикселей на 400,но нужно что бы...

Нарисовать шахматную доску
Уважаемые программисты , помогите пожалуйста нарисовать на pascal abc...

5
КонецСвета
Почетный модератор
7929 / 3900 / 2464
Регистрация: 30.10.2011
Сообщений: 5,379
21.10.2012, 23:23 2
petrovalex07, Изобразить шахматную доску и случайным образом расставленные на ней шашки
1
petrovalex07
0 / 0 / 0
Регистрация: 18.10.2012
Сообщений: 15
22.10.2012, 07:01  [ТС] 3
а можно чтобы там ничего не двигалось шашки стояли на месте и чтобы были надписи по краям(1,2,3,4,5 и т.д.)
0
КонецСвета
Почетный модератор
7929 / 3900 / 2464
Регистрация: 30.10.2011
Сообщений: 5,379
22.10.2012, 13:18 4
petrovalex07, там ничего не движется, это прорисовка так осуществляется =)
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
uses graphabc;
Var x,y,c,n,k,t,ys,xs,w,z:integer;
begin
setwindowsize (500,500);
rectangle(49,49,451,451);
y:=50;
for k:=1 to 8 do
 begin x:=50;
 
 for n:=1 to 8 do
 begin
 if (n+k) mod 2=0 then
 c:=clwhite else c:=clblack;
 setpencolor(c);
 rectangle(x,y,x+50,y+50);
 FloodFill(x+1,y+1,c);
 x:=x+50;
 setfontsize(14);
 textout(30,x-40,inttostr(n));
 textout(x-30,460,chr(n+96));
 end;
 y:=y+50;
 end;
 
 for n:=1 to 24 do
     begin
     x:=25;y:=25;
     xs:=random(8)+1;
     ys:=random(8)+1;
     x:=x+(50*xs);
     y:=y+(50*ys);
     z:=GetPixel(x,y);
     if z=clblack then dec(n) else
        begin
        w:=random(2);
        if w=0 then
           begin
           c:=clwhite;
           k:=clblack;
           end else
           begin
           c:=clblack;
           k:=clblack;
           end;
        setbrushcolor(c);
        setpencolor(k);
        circle(x,y,20);
        end;
     end;
end.
впрочем, даже видимости движения не будет, если самой первой строкой программы прописать lockdrawing; а последней - redraw;
1
petrovalex07
0 / 0 / 0
Регистрация: 18.10.2012
Сообщений: 15
23.10.2012, 17:06  [ТС] 5
Нарисуйте шахматную доску с шашками пжл чтобы шашки не двигались стояли как в начале игры
0
КонецСвета
Почетный модератор
7929 / 3900 / 2464
Регистрация: 30.10.2011
Сообщений: 5,379
23.10.2012, 17:37 6
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
uses graphabc;
Var i,j,c:integer;
begin
setwindowsize (500,500);
rectangle(49,49,451,451);
for i:=1 to 8 do
    for j:=1 to 8 do
        begin
        if (i+j) mod 2=0 then
           c:=clwhite else c:=clblack;
           setpencolor(c);
           rectangle(i*50,j*50,(i*50)+50,(j*50)+50);
           FloodFill((i*50)+1,(j*50)+1,c);
        if (j<=3) and ((i+j) mod 2=0) then
           begin
           setpencolor(clblack);
           circle((i*50)+25,(j*50)+25,20);
           end;
        if (j>=6) and ((i+j) mod 2<>0) then
           begin
           setpencolor(clwhite);
           setbrushcolor(clblack);
           circle((i*50)+25,(j*50)+25,20);
           setbrushcolor(clwhite);
           end;
           setfontsize(14);
           textout(30,(i*50)+10,inttostr(9-i));
           textout((i*50)+20,460,chr(i+96));
        end;
end.
1
23.10.2012, 17:37
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.10.2012, 17:37

Нарисовать шахматную доску и расставленные на ней шашки
Pascal ABC

Используя цикл, изобразить шахматную доску 8х8.
Используя цикл, изобразить шахматную доску 8х8.

Какое количество зерна может покрыть шахматную доску?
По древней легенде мудрец, который изобрел шахматы, потребовал от персидского...


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

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

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