juanlf/Borland-C
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Backup proyecto Joyfe - Borland

Browse Source
This commit is contained in:
juanlf
2025-06-16 22:54:10 +02:00
commit d61829a1a7
130 changed files with 11881 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

56
CPP/DIBUJO.CPP Normal file
View File

@ -0,0 +1,56 @@
// pintar soga
for (int a=1;a<30;a++)
cprintf("<EFBFBD>");
gotoxy(8,21);
for (int b=1;b<26;b++)
cprintf("<EFBFBD>");
for (int f=1,y=20;f<=17;f++,y--) {
gotoxy(19,y);
for (int c=1;c<=4;c++)
cprintf("<EFBFBD>");
}
for (int d=1;d<44;d++)
cprintf("<EFBFBD>");
gotoxy(64,3);
cprintf("<EFBFBD>");
gotoxy(65,3);
cprintf("<EFBFBD>");
gotoxy(64,5);
cprintf("<EFBFBD>");
gotoxy(65,5);
cprintf("<EFBFBD>");
for (int g=1,y2=4;g<=5;g++,y2++) {
gotoxy(62,y2);
textcolor(14);
cprintf("<EFBFBD>");
}
// Inicializaci<63>n de la soga.
soga [0][2]='<EFBFBD>';soga [1][1]='<EFBFBD>';soga [1][3]='<EFBFBD>';soga [2][0]='<EFBFBD>';
soga [2][4]='<EFBFBD>';soga [3][1]='<EFBFBD>';soga [3][3]='<EFBFBD>';soga [4][2]='<EFBFBD>';
for (int jfila=0;jfila<=4;jfila++)
for (int jcolumna=0;jcolumna<=4;jcolumna++) {
gotoxy (jcolumna+60,jfila+8);
if (soga[jfila][jcolumna]=='<EFBFBD>') {
textcolor(14);
cprintf ("%c",soga[jfila][jcolumna]);
}
}
// Inicializaci<63>n de la cabeza.
cabeza [0][3]='<EFBFBD>';cabeza [1][2]='<EFBFBD>';cabeza [2][1]='<EFBFBD>';cabeza [3][0]='<EFBFBD>';
cabeza [4][1]='<EFBFBD>';cabeza [5][2]='<EFBFBD>';cabeza [6][3]='<EFBFBD>';cabeza [5][4]='<EFBFBD>';
cabeza [4][5]='<EFBFBD>';cabeza [3][6]='<EFBFBD>';cabeza [2][5]='<EFBFBD>';cabeza [1][4]='<EFBFBD>';
cabeza [1][3]='<EFBFBD>';cabeza [2][3]='<EFBFBD>';cabeza [3][3]='<EFBFBD>';cabeza [4][3]='<EFBFBD>';
cabeza [5][3]='<EFBFBD>';cabeza [2][2]='<EFBFBD>';cabeza [3][2]='<EFBFBD>';cabeza [4][2]='<EFBFBD>';
cabeza [3][1]='<EFBFBD>';cabeza [2][4]='<EFBFBD>';cabeza [3][4]='<EFBFBD>';cabeza [4][4]='<EFBFBD>';
cabeza [3][5]='<EFBFBD>';cabeza [4][5]='<EFBFBD>';
for (jfila=0;jfila<=6;jfila++)
for (jcolumna=0;jcolumna<=6;jcolumna++) {
gotoxy (jcolumna+60,jfila+7);
if (cabeza[jfila][jcolumna]=='<EFBFBD>') {
textcolor(6);
cprintf ("%c",cabeza[jfila][jcolumna]);
}
}
// fin pintar soga