GAECHKA
Твоя помощница в решении задач

Нужно решение с паскалем. Я почти доделал тетрис без графики, но мне нужна поддержка

Проблема состоит в движении не упавших блоков вправо или влево, если кто сможет подсобите, только. Нужны простейшие команды т.к версия для андроид, код программы я прикрепил

Добавлено через 18 секунд
program tetris;
uses crt;
type
matrix=array [0..10,0..11] of integer
 ; var
a:matrix;
d:string;
i,j,c,b,e:integer
 ; procedure list
 ; begin
 clrscr;
  ;  ; writeln('————————TETRIS—————————')
 ; write(a[10,0],'-')
 ; write(a[10,1],'-')
 ; write(a[10,2],'-')
 ; write(a[10,3],'-')
 ; write(a[10,4],'-')
 ; write(a[10,5],'-')
 ; write(a[10,6],'-')
 ; write(a[10,7],'-')
 ; write(a[10,8],'-')
 ; write(a[10,9],'-');
 write(a[10,10],'-',);
 ;  ; writeln(a[10,11])
 ; write(a[9,0],'-')
 ; write(a[9,1],'-')
 ; write(a[9,2],'-')
 ; write(a[9,3],'-')
 ; write(a[9,4],'-')
 ; write(a[9,5],'-')
 ; write(a[9,6],'-')
 ; write(a[9,7],'-')
 ; write(a[9,8],'-')
 ; write(a[9,9],'-');
 write(a[9,10],'-',);
 ;  ; writeln(a[9,11])
 ; write(a[8,0],'-')
 ; write(a[8,1],'-')
 ; write(a[8,2],'-')
 ; write(a[8,3],'-')
 ; write(a[8,4],'-')
 ; write(a[8,5],'-')
 ; write(a[8,6],'-')
 ; write(a[8,7],'-')
 ; write(a[8,8],'-')
 ; write(a[8,9],'-');
 write(a[8,10],'-',);
 ;  ; writeln(a[8,11])
 ; write(a[7,0],'-')
 ; write(a[7,1],'-')
 ; write(a[7,2],'-')
 ; write(a[7,3],'-')
 ; write(a[7,4],'-')
 ; write(a[7,5],'-')
 ; write(a[7,6],'-')
 ; write(a[7,7],'-')
 ; write(a[7,8],'-')
 ; write(a[7,9],'-');
 write(a[7,10],'-',);
 ;  ; writeln(a[7,11],'       ',c)
 ; write(a[6,0],'-')
 ; write(a[6,1],'-')
 ; write(a[6,2],'-')
 ; write(a[6,3],'-')
 ; write(a[6,4],'-')
 ; write(a[6,5],'-')
 ; write(a[6,6],'-')
 ; write(a[6,7],'-')
 ; write(a[6,8],'-')
 ; write(a[6,9],'-');
 write(a[6,10],'-',);
 ;  ; writeln(a[6,11])
 ; write(a[5,0],'-')
 ; write(a[5,1],'-')
 ; write(a[5,2],'-')
 ; write(a[5,3],'-')
 ; write(a[5,4],'-')
 ; write(a[5,5],'-')
 ; write(a[5,6],'-')
 ; write(a[5,7],'-')
 ; write(a[5,8],'-')
 ; write(a[5,9],'-');
 write(a[5,10],'-',);
 ;  ; writeln(a[5,11])
 ; write(a[4,0],'-')
 ; write(a[4,1],'-')
 ; write(a[4,2],'-')
 ; write(a[4,3],'-')
 ; write(a[4,4],'-')
 ; write(a[4,5],'-')
 ; write(a[4,6],'-')
 ; write(a[4,7],'-')
 ; write(a[4,8],'-')
 ; write(a[4,9],'-');
 write(a[4,10],'-',);
 ;  ; writeln(a[4,11])
 ; write(a[3,0],'-')
 ; write(a[3,1],'-')
 ; write(a[3,2],'-')
 ; write(a[3,3],'-')
 ; write(a[3,4],'-')
 ; write(a[3,5],'-')
 ; write(a[3,6],'-')
 ; write(a[3,7],'-')
 ; write(a[3,8],'-')
 ; write(a[3,9],'-');
 write(a[3,10],'-',);
 ;  ; writeln(a[3,11]);
write(a[2,0],'-')
 ; write(a[2,1],'-')
 ; write(a[2,2],'-')
 ; write(a[2,3],'-')
 ; write(a[2,4],'-')
 ; write(a[2,5],'-')
 ; write(a[2,6],'-')
 ; write(a[2,7],'-')
 ; write(a[2,8],'-')
 ; write(a[2,9],'-');
 write(a[2,10],'-',);
 ;  ; writeln(a[2,11])
 ; write(a[1,0],'-')
 ; write(a[1,1],'-')
 ; write(a[1,2],'-')
 ; write(a[1,3],'-')
 ; write(a[1,4],'-')
 ; write(a[1,5],'-')
 ; write(a[1,6],'-')
 ; write(a[1,7],'-')
 ; write(a[1,8],'-')
 ; write(a[1,9],'-');
 write(a[0,10],'-');
 ;  ; writeln(a[1,11]);
write(a[0,0],'-')
 ; write(a[0,1],'-')
 ; write(a[0,2],'-')
 ; write(a[0,3],'-')
 ; write(a[0,4],'-')
 ; write(a[0,5],'-')
 ; write(a[0,6],'-')
 ; write(a[0,7],'-')
 ; write(a[0,8],'-')
 ; write(a[0,9],'-');
 write(a[0,10],'-',);
 ;  ; writeln(a[0,11]);
 read(e)
; if (a[9,0]=2) then
begin
clrscr
; writeln('вы проиграли')
end
; if (a[9,2]=2) then
begin
clrscr
; writeln('вы проиграли')
end
; if (a[9,1]=2) then
begin
clrscr
; writeln('вы проиграли')
end
; if (a[9,3]=2) then
begin
clrscr
;writeln('вы проиграли')
end
;if (a[9,4]=2) then 
begin
clrscr
;writeln('вы проиграли')
end
;if (a[9,5]=2) then
begin
clrscr
;writeln('вы проиграли')
end
;if (a[9,6]=2) then 
begin
clrscr
;writeln('вы проиграли')
end
;if (a[9,7]=2) then
begin
clrscr
;writeln('вы проиграли')
end
;if (a[9,8]=2) then
begin
clrscr
;writeln('вы проиграли')
end
;if (a[9,9]=2) then
begin
clrscr
;writeln('вы проиграли')
end
;if (a[9,10]=2) then
begin
clrscr
; writeln('вы проиграли')
end
; if (a[9,11]=2) then
begin
clrscr
;writeln('вы проиграли')
end
 a[1,3]:=1; a[1,2]:=0
;if (a[1,1]=1) and(a[1,2]=0) then a[1,2]:=1; a[1,1]:=0
end
 ; if e=4 then
begin
If(a[10,1]=1)and(a[10,0]=0)then a[10,0]:=1;a[10,1]:=0
;If(a[10,2]=1)and(a[10,1]=0)then a[10,1]:=1;a[10,2]:=0
;If(a[10,3]=1)and(a[10,2]=0)then a[10,2]:=1;a[10,3]:=0
;If(a[10,4]=1)and(a[10,3]=0)then a[10,3]:=1;a[10,4]:=0
;If(a[10,5]=1)and(a[10,4]=0)then a[10,4]:=1;a[10,5]:=0
;If(a[10,6]=1)and(a[10,5]=0)then a[10,5]:=1;a[10,6]:=0
;If(a[10,7]=1)and(a[10,6]=0)then a[10,6]:=1;a[10,7]:=0
;If(a[10,8]=1)and(a[10,7]=0)then a[10,7]:=1;a[10,8]:=0
;If(a[10,9]=1)and(a[10,8]=0)then a[10,8]:=1;a[10,9]:=0
;If(a[10,10]=1)and(a[10,9]=0)then a[10,9]:=1;a[10,10]:=0
;If(a[10,11]=1)and(a[10,10]=0)then a[10,10]:=1;a[10,11]:=0
;If(a[9,1]=1)and(a[9,0]=0)then a[9,0]:=1;a[9,1]:=0
;
0
вопрос задан

Источник


0 ответов