Регистрация | Вход
#include<stdio.h>void main(void) { int x,y,i; char MaccuB[3][3];a01: for(x=0;x<3;x++) { for(y=0;y<3;y++) { MaccuB[x][y]=' '; } } i=0;a02: printf("BBeguTe X(1-3) u Y(1-3):\n"); scanf("%d %d",&x,&y); if((x!=1&&x!=2&&x!=3)||(y!=1&&y!=2&&y!=3)||MaccuB[x-1][y-1]!=' ') { printf("HeBepHblij xog\n"); goto a02; } i++; MaccuB[x-1][y-1]='X'; printf("+-+-+-+\n"); for(y=0;y<3;y++) { printf("|%c|%c|%c|\n",MaccuB[0][y],MaccuB[1][y],MaccuB[2][y]); printf("+-+-+-+\n"); } for(x=0;x<3;x++) if(MaccuB[x][0]=='X'&&MaccuB[x][1]=='X'&&MaccuB[x][2]=='X') goto a03; for(y=0;y<3;y++) if(MaccuB[0][y]=='X'&&MaccuB[1][y]=='X'&&MaccuB[2][y]=='X') goto a03; if(MaccuB[0][0]=='X'&&MaccuB[1][1]=='X'&&MaccuB[2][2]=='X') goto a03; if(MaccuB[2][0]=='X'&&MaccuB[1][1]=='X'&&MaccuB[0][2]=='X') goto a03; printf("Komn xoguT KaK\n");a04: x=rand()%3; y=rand()%3; if(MaccuB[x][y]!=' ') goto a04; i++; MaccuB[x][y]='O'; printf("+-+-+-+\n"); for(y=0;y<3;y++) { printf("|%c|%c|%c|\n",MaccuB[0][y],MaccuB[1][y],MaccuB[2][y]); printf("+-+-+-+\n"); } for(x=0;x<3;x++) if(MaccuB[x][0]=='O'&&MaccuB[x][1]=='O'&&MaccuB[x][2]=='O') goto a05; for(y=0;y<3;y++) if(MaccuB[0][y]=='O'&&MaccuB[1][y]=='O'&&MaccuB[2][y]=='O') goto a05; if(MaccuB[0][0]=='O'&&MaccuB[1][1]=='O'&&MaccuB[2][2]=='O') goto a05; if(MaccuB[2][0]=='O'&&MaccuB[1][1]=='O'&&MaccuB[0][2]=='O') goto a05; if(i>=9) goto a06; goto a02;a03: printf("Bbl no6eguJlu\n"); goto a07;a05: printf("Bbl npou7paJlu\n"); goto a07;a06: printf("Hu4b9l\n");a07: printf("CHoBa?(1-Yes 0-No)\n"); scanf("%d",&x); if(x==1) goto a01; }
#include<stdio.h>int main(void) { int i;a01: i=rand()%11 if(i==10) goto 02; printf("%d"); goto a01;a02: printf("\n"); printf("CHoBa?(1-Yes 0-No)\n"); scanf("%d",&x); if(x==1) goto a01; return 0 }
FUNCTION IN_12(PROVERJAEMOE_CISLO64,Q64,W64,E64,R64,T64,Y64,U64,I64,O64,P64,A64,S64: INT64): BOOLEAN;// LABEL100;BEGININ_12:=TRUE;IF PROVERJAEMOE_CISLO64=Q64 THEN GOTO 100;IF PROVERJAEMOE_CISLO64=W64 THEN GOTO 100;IF PROVERJAEMOE_CISLO64=E64 THEN GOTO 100;IF PROVERJAEMOE_CISLO64=R64 THEN GOTO 100;IF PROVERJAEMOE_CISLO64=T64 THEN GOTO 100;IF PROVERJAEMOE_CISLO64=Y64 THEN GOTO 100;IF PROVERJAEMOE_CISLO64=U64 THEN GOTO 100;IF PROVERJAEMOE_CISLO64=I64 THEN GOTO 100;IF PROVERJAEMOE_CISLO64=O64 THEN GOTO 100;IF PROVERJAEMOE_CISLO64=P64 THEN GOTO 100;IF PROVERJAEMOE_CISLO64=A64 THEN GOTO 100;IF PROVERJAEMOE_CISLO64=S64 THEN GOTO 100;IN_12:=FALSE;100:END;
FUNCTION CITALNIK(IMJA_FAILA_SOHRANKI5: ANSISTRING;VAR S5: ARRAY OF STRING; VAR Z5: ARRAY OF ANSISTRING;LIMIT: LONGINT): BOOLEAN;VARDLINA_A2: LONGINT=1000;QQ3,ADRESA3: ARRAY OF BYTE;ADRESA2: ARRAY OF LONGINT;M2,E2,C2,I2,R2,Y2,T2: LONGINT;KOLP: LONGINT;X64: INT64;{$IFNDEF LINUX}Z64: SYSUTILS.THANDLE;{$ENDIF}{$IFDEF LINUX}Z64: INT64;{$ENDIF LINUX}LABEL1,2,5, 99,100,101;BEGINCITALNIK:=FALSE;IF PADLOFAIL(IMJA_FAILA_SOHRANKI5)=FALSE THEN GOTO 101;KOLP:=LENGTH(S5);Z64:=SYSUTILS.FILEOPEN(IMJA_FAILA_SOHRANKI5, fmOpenRead);IF Z64=VINDOFAILOBAG THEN GOTO 100; // , 32 64X64:=SYSUTILS.FILESEEK(Z64,0,2);SYSUTILS.FILESEEK(Z64,0,0);IF X64>LIMIT THEN X64:=LIMIT;IF X64<1 THEN GOTO 99;SETLENGTH(QQ3,X64+200);FOR M2:=X64 TO X64+200-1 DO QQ3[M2]:=0;M2:=X64;E2:=0;SYSUTILS.FILEREAD(Z64,QQ3[1],X64);SETLENGTH(ADRESA2,DLINA_A2+2);SETLENGTH(ADRESA3,DLINA_A2+2);ADRESA2[0]:=1;ADRESA2[1]:=X64;ADRESA3[1]:=0;C2:=0;FOR E2:=1 TO X64 DO BEGIN IF QQ3[E2] IN [10,13]=FALSE THEN GOTO 5; IF QQ3[E2+1]<>36 THEN GOTO 5; INC(C2); IF C2>DLINA_A2 THEN BEGIN DLINA_A2:=DLINA_A2+2000; SETLENGTH(ADRESA2,DLINA_A2+2); SETLENGTH(ADRESA3,DLINA_A2+2); END; ADRESA2[0]:=C2; ADRESA2[C2]:=E2; ADRESA3[C2]:=0;5: END;FOR I2:=0 TO KOLP-1 DO BEGIN Z5[I2]:=''; FOR C2:=1 TO ADRESA2[0] DO BEGIN IF ADRESA3[C2]=1 THEN GOTO 2; E2:=ADRESA2[C2]; FOR R2:=1 TO LENGTH(S5[I2]) DO BEGIN IF QQ3[E2+R2+1]<>ORD(S5[I2,R2]) THEN GOTO 2; IF QQ3[E2+R2+1]=39 THEN BEGIN Y2:=1; ADRESA3[C2]:=1; FOR T2:=R2+1 TO X64 DO BEGIN IF QQ3[E2+T2+1] {=10} IN [10,13] THEN GOTO 1; Z5[I2]:=Z5[I2]+CHR(QQ3[E2+T2+1]); IF QQ3[E2+T2+1]=39 THEN GOTO 1; INC(Y2); END; GOTO 1; END; END;2: END;1: END;99:CITALNIK:=TRUE;100:SYSUTILS.FILECLOSE(Z64);101:END;