HoldFast,

Открыть спойлер

Закрыть спойлер

[копировать] [скачать]

1. Program gameOfLife;
2.  
3. Uses crt;
4.  
5. Var
6.   cell,nextGen: array[1..39,1..39] Of Boolean;
7.   x,y,i,j,alertFlag: Integer;
8.   Key: char;
9.   buffer: boolean;
10.  
11. Function scan(x,y:integer): boolean;
12.  
13. Var n: 1..8;
14.   number: integer;
15. Begin
16.   number := 0;
17.   For n:=1 To 8 Do
18.     Begin
19.       Case n Of
20.         1: If ((x-1)>0)And((y-1)>0) Then
21.              Begin
22.                If cell[x-1][y-1] Then inc(number);
23.              End;
24.         2: If y-1>0 Then
25.              Begin
26.                If cell[x][y-1] Then inc(number);
27.              End;
28.         3: If ((x+1)<40)And((y-1)>0) Then
29.              Begin
30.                If cell[x+1][y-1] Then inc(number);
31.              End;
32.         4: If x+1<40 Then
33.              Begin
34.                If cell[x+1][y] Then inc(number);
35.              End;
36.         5: If ((x+1)<40) And ((y+1)<40) Then
37.              Begin
38.                If cell[x+1][y+1] Then inc(number);
39.              End;
40.         6: If y+1<40 Then
41.              Begin
42.                If cell[x][y+1] Then inc(number);
43.              End;
44.         7: If ((x-1)>1) And ((y+1)<40) Then
45.              Begin
46.                If cell[x-1][y+1] Then inc(number);
47.              End;
48.         8: If x-1>0 Then
49.              Begin
50.                If cell[x-1][y] Then inc(number);
51.              End;
52.       End;
53.       If number=3 Then scan := true
54.       Else If number=2 Then
55.              Begin
56.                If cell[x][y] Then scan := true
57.                Else scan := false;
58.              End;
59.     End;
60.   If ((number<>2)And(number<>3)) Then scan := false;
61. End;
62.  
63.  
64. Begin
65.   For i:=1 To 39 Do
66.     Begin
67.       For j:=1 To 39 Do
68.         Begin
69.           cell[i][j] := false;
70.         End;
71.     End;
72.  
73.   x := 1;
74.   y := 1;
75.   TextMode(Lo(lastMode));
76.   While Key<>'k' Do
77.     Begin
78.       gotoXY(x,y);
79.       Key := readKey;
80.       If Key='w' Then y := y-1;
81.       If Key='s' Then y := y+1;
82.       If Key='a' Then x := x-1;
83.       If Key='d' Then x := x+1;
84.       If x>39 Then x := 1;
85.       If x<1 Then x := 39;
86.       If y>39 Then y := 1;
87.       If y<1 Then y := 39;
88.       If Key='x' Then
89.         Begin
90.           If cell[x][y] = true Then
91.             Begin
92.               cell[x][y] := false;
93.               write(' ');
94.             End
95.           Else
96.             Begin
97.               cell[x][y] := true;
98.               write('#');
99.             End;
100.         End;
101.     End;
102.   While true Do
103.     Begin
104.       For i:=1 To 39 Do
105.         Begin
106.           For j:=1 To 39 Do
107.             Begin
108.               buffer := scan(i,j);
109.               nextGen[i][j] := buffer;
110.               If buffer Then
111.                 Begin
112.                   gotoXY(i,j);
113.                   write('#');
114.                   gotoXY(1,1);
115.                 End;
116.               If buffer<>true Then
117.                 Begin
118.                   gotoXY(i,j);
119.                   write('.');
120.                   gotoXY(1,1);
121.                 End;
122.             End;
123.         End;
124.       delay(1000);
125.       For i:=1 To 39 Do
126.         Begin
127.           For j:=1 To 39 Do
128.             Begin
129.               cell[i][j] := nextGen[i][j];
130.             End;
131.         End;
132.     End;
133. End.

Вот

Virus-ON, Завтра запущу, а то дройд разряженный лежит.

Virus-ON,
Сударь:
Форум » Программирование / Разметка
  Pascal/Delphi
А у нас андроид приложение!

Virus-ON (24.11.2013/20:58)HoldFast, [spoiler][code]Program gameOfLife;Uses crt;Var cell,nextGen: array[1..39,1..39] Of Boolean; x,y,i,j,alertFlag: Integer; Key: char; buffer: boolean;Function scan(xв 1ый пост

ПС
Модераторы/Администраторы перенесите тему в нужный раздел пожалуйста. - если все таки не будет еще чего что нужно чтобы было по разделу.

а это на жаве есть?

Bogdan-G, Ну это вроде как для андроида написано на паскале, так что тема наместе

Кальцид, Если забьешь в мидлет паскаль то будет

ВитаминКО, Не-а uses crt как бы намекает

ВитаминКО, MidletPASCAL не поддерживает switch

Обновил ПП.