Ingeniero Técnico en Informática de Gestión

Introducción al lenguaje C. Solución ejercicios

Compartir 0 Me sirvió 0 No me sirvió

Soluciones a los

ejercicios

1. Introducción

/ Capítulo 1. Ejercicio 1 /
LÍNEA	PONE	DEBE PONER
1	include studio.h	#include <stdio.h>
2	... semana /*	... semana */
3	main {}	main ()
4	(	{
5	int d	int d;
6	d := 7;	d = 7;
7	print (Hay d días en una semana);	printf ("Hay %d días en una semana", d);
8		}

/* Capítulo 1. Ejercicio 2 */

a) Historias de cronopios y famas.Autor: Julio Cortázar

b) ¿Cuántas líneas

ocupa esto?

c) Estamos

aprendiendo /naprogramar en C

d) 2 + 2 = 4

/* Capítulo 1. Ejercicio 3 */

#include <stdio.h>

main ()

{

int R;

float S, L;

printf ("\nCálculo del área de un círculo y longitud de su circunferencia");

printf ("\nRadio: ");

scanf ("%d", &R);

S = 3.14 * R * R;

L = 2 * 3.14 * R;

printf ("\nAREA: %f", S);

printf ("\nCIRCUNFERENCIA: %f", L);

}

/* Capítulo 1. Ejercicio 4 */

#include <stdio.h>

main ()

{

int L1, L2, S1, S2, S;

printf ("\nLongitud del cuadrado mayor: ");

scanf ("%d", &L1);

printf ("\nLongitud del cuadrado menor: ");

scanf ("%d", &L2);

S1 = AreaCuadrado (L1);

S2 = AreaCuadrado (L2);

S = S1 - S2;

printf ("\nSolución: %d", S);

}

AreaCuadrado (int x)

{

return x * x;

}

2. Elementos de un programa C

/* Capítulo 2. Ejercicio 1 */

Como carácter de escape '\n'

Código ASCII en octal '\012'

Código ASCII en hex '\xA'

/* Capítulo 2. Ejercicio 2 */

a) Es una constante entera decimal: 12

b) Es una constante entera octal: 012 (10 decimal)

c) Es una constante entera hexadecimal: 0x12 (18 decimal)

d) Es una constante entera hexadecimal: 0X12 (18 decimal)

e) Es el carácter N

f) Es el carácter de código ASCII hexadecimal 12 (18 decimal)

g) Es el carácter de código ASCII hexadecimal 1B (27 decimal): ESCAPE

h) Es el carácter de código octal 34 (28 decimal)

/* Capítulo 2. Ejercicio 3 */

f) 2dias comienza por un número

h) Suma-Total no se permite el guión -

/ Capítulo 2. Ejercicio 4 /
	x	y	z	u	v	t
valores iniciales ⇒	2	3	4	5	6	7
x++;	3
y = ++z;		5	5
t = --v;					5	5
v = x + (y += 3) / 2;		15			10
u = x + y / 2;				10

/* Capítulo 2. Ejercicio 5 */

El carácter '\a' es el carácter de escape correspondiente al ASCII 7 (beep), mientras que el carácter '\A' es lo mismo que 'A'.

La diferencia entre 'A' y "A" estriba en que el primero es un carácter simple (comillas simples) mientras que el segundo es una cadena de caracteres (comillas dobles) y, por tanto, consta de dos caracteres: el carácter 'A' y el carácter nulo.

/* Capítulo 2. Ejercicio 6 */

a) x > y && z > t * V && z > t * V && V * V

b) x < y && z > t * F && z > t * F && V * F

c) x < y || z > t * F || z > t * F || V * V

d) !0 * !F * V

e) !1 * !V * F

f) 0 != 1 * V

g) 0 != !1 * F != !V * F != F * F

h) 0 == !1 * F == !V * F == F * V

i) 200 || x * V || V * V

j) x * 0 * 0 * F

k) x * y * 200 * V

l) !!0 * !!F * !V * F

m) !(0 == 0) * !V * F

n) 10 > 5 && !(10 < 9) || 3 <= 4 * 10 > 5 && !F || 3 <= 4 *

* 10 > 5 && V || 3 <= 4 * V && V || 3 <= 4 * V && V || V *

* V || V * V

ñ) 1 && !0 || 1 * V && !F || V * V && V || V * V || V * V

o) 1 && !(0 || 1) * V && !(F || V) * V && !V * V && F * F

/ Capítulo 2. Ejercicio 7 /
	Si x = 10	Si x = 8
y = (x > 9 ? ++x : --x);	y = 11, x = 11	y = 7, x = 7
y = (x > 9 ? x++: x--);	y = 10, x = 11	y = 8, x = 7

/* Capítulo 2. Ejercicio 8 */

#include <stdio.h>

main ()

{

int C;

float F;

printf ("\nGrados centígrados: ");

scanf ("%d", &C);

F = ((float) 9 / 5) * C + 32;

printf ("\n%d grados Centígrados equivalen a %f grados Fahrenheit", C, F);

}

/* Capítulo 2. Ejercicio 9 */

#include <stdio.h>

main ()

{

unsigned int nhex, alto, bajo;

printf ("\nTeclee un número hexadecimal: ");

scanf ("%x", &nhex);

bajo = (nhex & 0x00FF) << 8;

alto = (nhex & 0xFF00) >> 8;

nhex = alto | bajo;

printf ("\nResultado: %x", nhex);

}

/* Capítulo 2. Ejercicio 10 */

#include <stdio.h>

main ()

{

unsigned int nhex;

printf ("\nTeclee un número hex: ");

scanf ("%x", &nhex);

nhex &= 0xFDB6; // máscara = 1111 1101 1011 0110

nhex |= 0x0924; // máscara = 0000 1001 0010 0100

nhex ^= 0xF492; // máscara = 1111 0100 1001 0010

printf ("\nResultado: %x", nhex);

}

/* Capítulo 2. Ejercicio 11 */

#include <stdio.h>

main ()

{

int num1, num2, dif;

printf ("\nTeclee 2 números enteros: ");

scanf ("%d %d", &num1, &num2);

dif = (num1 > num2 ? num1 - num2 : num2 - num1);

dif *= 3;

printf ("\nResultado: %d", dif);

}

/* Capítulo 2. Ejercicio 12 */

#include <stdio.h>

main ()

{

int num, cociente, resto, solucion;

printf ("\nTeclee un número entero de 4 cifras: ");

scanf ("%d", &num);

cociente = num / 100;

resto = num % 100;

solucion = (resto >= 50 ? cociente + 1 : cociente);

solucion *= 100;

printf ("\nResultado: %d", solucion);

}

3. Tipos básicos de datos

/* Capítulo 3. Ejercicio 1 */

a) unsigned long int

b) unsigned char

c) float

d) char

e) float

f) unsigned int

g) unsigned char

h) float

i) float

/* Capítulo 3. Ejercicio 2 */

Se admite por teclado un carácter (sentencia scan). Si el código ASCII de este carácter es mayor que 127 (es decir, si es un carácter del conjunto ASCII extendido) se incrementa su código en 1. En caso contrario se decrementa en 1. Por tanto, si se teclea un carácter del conjunto ASCII extendido, se visualiza el siguiente de la tabla; en caso contrario se visualiza el anterior.

/ Capítulo 3. Ejercicio 3 /
	ÁMBITO	TIEMPO DE VIDA
a	Todo el programa, pues es una variable global.	Durante todo el programa.
b	La función main() pues es local a ella.	Mientras se ejecuta main().
c	La función MiFuncion(), pues es local a ella.	Mientras se ejecuta MiFuncion().
d	La función MiFuncion(), pues es local a ella.	Durante todo el programa, pues es una variable estática.

4. E/S básica

/* Capítulo 4. Ejercicio 1 */

#include <stdio.h>

#define CLS printf ("\033[2J") // Borra pantalla

main ()

{

unsigned char caracter;

CLS;

printf ("\033[7m"); // Vídeo inverso

printf ("Teclee un código ASCII (0-255): ");

scanf ("%d", &caracter);

printf ("\033[5;1;37;41m"); // Blanco intenso parpadeante sobre rojo

printf ("\nEl carácter correspondientes es %c", caracter);

printf ("\033[0m"); // Atributos normales

}

/* Capítulo 4. Ejercicio 2 */

#include <stdio.h>

#include <conio.h>

main ()

{

unsigned int caracter;

clrscr ();

textcolor (YELLOW);

textbackground (BLUE);

cprintf ("Teclee un carácter: ");

caracter = getche ();

textcolor (WHITE);

textbackground (RED);

cprintf ("\n\rCODIGO ASCII Decimal ........... %u", caracter);

cprintf ("\n\r Octal ............... %o", caracter);

cprintf ("\n\r Hexadecimal ... %X", caracter);

textattr (LIGHTGRAY | BLACK * 16);

}

/* Capítulo 4. Ejercicio 3 */

#include <stdio.h>

#include <conio.h>

main ()

{

float n1, n2;

textattr (YELLOW | BLUE * 16);

clrscr ();

cprintf ("\n\rA continuación debe teclear dos números de tipo float");

cprintf ("\n\rLa parte entera no debe tener más de 3 dígitos");

cprintf ("\n\rLa parte decimal se redondeará a 2 dígitos");

cprintf ("\n\r==> ");

cscanf ("%f %f", &n1, &n2);

textcolor (YELLOW);

textbackground (RED);

gotoxy (35, 10); cprintf ("%6.2f", n1);

gotoxy (35, 11); cprintf ("%6.2f", n2);

gotoxy (35, 12); cprintf ("------");

gotoxy (35, 13); cprintf ("%6.2f", n1 + n2);

textcolor (LIGHTGRAY);

textbackground (BLACK);

}

/* Capítulo 4. Ejercicio 4 */

#include <stdio.h>

#include <conio.h>

main ()

{

int n1, n2, unidad, decena, centena, resto;

textattr (YELLOW | BLUE * 16);

clrscr ();

cprintf ("\n\rTeclee dos números enteros de 3 dígitos: ");

cscanf ("%d %d", &n1, &n2);

centena = n2 / 100;

resto = n2 % 100;

decena = resto / 10;

unidad = resto % 10;

cprintf ("\n\r%6d", n1);

cprintf ("\n\r x %3d", n2);

cprintf ("\n\r------");

cprintf ("\n\r%6d", n1 * unidad);

cprintf ("\n\r%5d", n1 * decena);

cprintf ("\n\r%4d", n1 * centena);

cprintf ("\n\r------");

cprintf ("\n\r%6ld", (long) n1 * n2);

textattr (LIGHTGRAY | BLACK * 16);

}

/* Capítulo 4. Ejercicio 5 */

#include <stdio.h>

#include <conio.h>

main ()

{

int anyo, A, B, C, D, E, N, mes, dia;

printf ("\033[2J"); // Borra pantalla

printf ("\033[12;36H"); // Cursor a fila 12, columna 36

printf ("Año: ");

scanf ("%d", &anyo);

A = anyo % 19;

B = anyo % 4;

C = anyo % 7;

D = (19 * A + 24) % 30;

E = (2 * B + 4 * C + 6 * D + 5) % 7;

N = 22 + D + E;

mes = (N > 31 ? 4 : 3);

dia = (mes == 3 ? N : N - 31);

printf ("\033[1;5m"); // Alta intensidad y parpadeo

printf ("\033[14;19H"); // Cursor a fila 14, columna 19

printf ("Primer Domingo de Pascua: %02d/%02d/%02d", dia, mes, anyo % 100);

printf ("\033[0m"); // Desactiva atributos

}

/* Capítulo 4. Ejercicio 6 */

#include <stdio.h>

#include <conio.h>

#define LF fprintf (stdprn, "\n\r");

#define FF fprintf (stdprn, "\f");

main ()

{

char nombre1[21], nombre2[21];

int edad1, edad2;

float altura1, peso1, altura2, peso2;

float edad_m, altura_m, peso_m;

clrscr ();

textcolor (WHITE);

textbackground (BLUE);

Presentar ();

gotoxy (14, 3); gets (nombre1);

gotoxy (14, 4); scanf ("%d", &edad1);

gotoxy (14, 5); scanf ("%f", &altura1);

gotoxy (14, 6); scanf ("%f", &peso1);

getchar ();

textcolor (BLUE);

textbackground (WHITE);

Presentar ();

gotoxy (14, 9); gets (nombre2);

gotoxy (14, 10); scanf ("%d", &edad2);

gotoxy (14,11); scanf ("%f", &altura2);

gotoxy (14, 12); scanf ("%f", &peso2);

getchar ();

edad_m = (float) (edad1 + edad2) / 2;

altura_m = (altura1 + altura2) / 2;

peso_m = (peso1 + peso2) / 2;

LF; fprintf (stdprn, "NOMBRE EDAD ALTURA PESO");

LF; fprintf (stdprn, "=======================================");

LF; fprintf (stdprn, "%-20s %2d %4.1f %6.2f", nombre1, edad1, altura1, peso1);

LF; fprintf (stdprn, "%-20s %2d %4.1f %6.2f", nombre2, edad2, altura2, peso2);

LF;

LF; fprintf (stdprn, "%20s %5.2f %5.2f %6.2f", "Media:", edad_m, altura_m, peso_m);

FF;

textcolor (LIGHTGRAY);

textbackground (BLACK);

}

Presentar ()

{

cprintf ("\n\rINTRODUZCA LOS SIGUIENTES DATOS:");

cprintf ("\n\rNombre ..... ");

cprintf ("\n\rEdad .......... ");

cprintf ("\n\rAltura ........ ");

cprintf ("\n\rPeso .......... ");

}

5. Sentencias de control

/* Capítulo 5. Ejercicio 1 */

#include <stdio.h>

#include <conio.h>

main ()

{

float nota;

clrscr ();

do {

printf ("Nota: ");

scanf ("%f", &nota);

} while (nota < 0 || nota > 10);

if (nota >= 8.5) {

textattr (YELLOW | BLUE * 16);

cprintf ("SOBRESALIENTE"); }

else if (nota >= 7) {

textattr (BLACK | GREEN * 16);

cprintf ("NOTABLE"); }

else if (nota >= 6) {

textattr (BLACK | GREEN * 16);

cprintf ("BIEN"); }

else if (nota >= 5) {

textattr (BLACK | GREEN * 16);

cprintf ("SUFICIENTE"); }

else if (nota >= 3.5) {

textattr (YELLOW | BLINK | RED * 16);

cprintf ("INSUFICIENTE"); }

else {

textattr (YELLOW | BLINK | RED * 16);

cprintf ("MUY DEFICIENTE");

}

textattr (LIGHTGRAY | BLACK * 16);

}

/* Capítulo 5. Ejercicio 2 */

#include <stdio.h>

#include <conio.h>

main ()

{

char sexo;

int edad, t_calificacion, t_anterior;

clrscr ();

puts ("MARATÓN");

do {

printf ("\n(H)ombre / (M)ujer: ");

sexo = getche ();

} while (sexo != 'H' && sexo != 'M');

if (sexo == 'M') t_calificacion = 180;

else {

printf ("\nEdad: ");

scanf ("%d", &edad);

if (edad < 40) t_calificacion = 150;

else t_calificacion = 175;

}

printf ("\nTiempo de anterior Maratón: ");

scanf ("%d", &t_anterior);

if (t_anterior <= t_calificacion) puts ("SELECCIONADO");

else puts ("NO SELECCIONADO");

}

/* Capítulo 5. Ejercicio 3 */

#include <stdio.h>

#include <conio.h>

main ()

{

char turno, domingo;

int valor_hora, incremento, trabajadas;

clrscr ();

puts ("CÁLCULO DEL JORNAL");

do {

printf ("\n(D)iurno / (N)octurno: ");

turno = getche ();

} while (turno != 'D' && turno != 'N');

if (turno == 'D') {

valor_hora = 1000;

incremento = 400; }

else {

valor_hora = 1600;

incremento = 600;

}

do {

printf ("\nDomingo (S/N): ");

domingo = getche ();

} while (domingo != 'S' && domingo != 'N');

if (domingo == 'S') valor_hora += incremento;

printf ("\nHoras trabajadas: ");

scanf ("%d", &trabajadas);

printf ("\nJORNAL: %d pts.", valor_hora * trabajadas);

}

/* Capítulo 5. Ejercicio 4 */

#include <stdio.h>

#include <conio.h>

main ()

{

register int i;

int A, B, pares, impares;

clrscr ();

puts ("Suma de pares e impares comprendidos entre A y B");

do {

printf ("\nTeclee valores de A y B (A < B): ");

scanf ("%d %d", &A, &B);

} while (A >= B);

pares = impares = 0;

for (i = A; i <= B; i++) {

if (i % 2) impares += i;

else pares += i;

}

printf ("\nSUMA PARES: %d", pares);

printf ("\nSUMA IMPARES: %d", impares);

}

/* Capítulo 5. Ejercicio 5 */

#include <stdio.h>

#include <conio.h>

main ()

{

register int i;

int x, n;

long int total = 1;

clrscr ();

puts ("CÁLCULO DE xn");

printf ("\nValor de x: ");

scanf ("%d", &x);

do {

printf ("\nValor de n (n * 0): ");

scanf ("%d", &n);

} while (n < 0);

for (i = 1; i <= n; i++) total *= x;

printf ("\nResultado: %ld", total);

}

/* Capítulo 5. Ejercicio 6 */

#include <stdio.h>

#include <conio.h>

main ()

{

register int i;

int n;

long int total = 1;

clrscr ();

puts ("CÁLCULO DE n!");

do {

printf ("\nValor de n (n * 0): ");

scanf ("%d", &n);

} while (n < 0);

for (i = 1; i <= n; i++) total *= i;

printf ("\n%d! = %ld", n, total);

}

/* Capítulo 5. Ejercicio 7 */

#include <stdio.h>

#include <conio.h>

main ()

{

register int i;

int M;

long int suma = 0;

clrscr ();

puts ("Cálculo del primer valor N para el que 1 + 2 + 3 + ... + N > M");

do {

printf ("\nM = ");

scanf ("%d", &M);

} while (M < 0);

for (i = 1; ; i++) {

if (suma > M) break;

suma += i;

}

printf ("\nPara %d la suma vale %d", i - 1, suma);

}

/* Capítulo 5. Ejercicio 8 */

#include <stdio.h>

#include <conio.h>

main ()

{

int a_2, a_1, a, N;

clrscr ();

puts ("Primer elemento de la serie de Fibonacci mayor que N");

do {

printf ("\nValor de N (N > 1): ");

scanf ("%d", &N);

} while (N <= 1);

a_2 = a_1 = 1;

a = a_2 + a_1;

while (a <= N) {

a_2 = a_1;

a_1 = a;

a = a_1 + a_2;

}

printf ("\nEl primer elemento mayor que %d es %d", N, a);

}

/* Capítulo 5. Ejercicio 9 */

#include <stdio.h>

#include <conio.h>

double Valor_absoluto (double x);

main ()

{

register int i;

int signo;

double termino, mi_pi, pi_real;

clrscr ();

puts ("CALCULO DE π");

pi_real = 3.141592;

mi_pi = 0;

termino = 0;

signo = 1;

for (i = 1; ; i += 2) {

if (Valor_absoluto (pi_real - mi_pi) < 0.001) break;

termino += (double) signo / i;

mi_pi = 4 * termino;

signo = -signo;

gotoxy (1, 4);

printf ("Iteración: %5d - Valor estimado de π: %6.4f", i, mi_pi);

}

double Valor_absoluto (double x)

{

if (x < 0) return -x;

else return x;

}

6. Funciones

/* Capítulo 6. Ejercicio 1 */

#include <stdio.h>

#include <conio.h>

#include <process.h>

#include <stdlib.h>

double potencia (double base, int exponente);

double factorial (int numero);

void main (void)

{

register int i;

int x, signo;

double radianes, seno, termino;

clrscr ();

do {

printf ("\nÁngulo (0-360): ");

scanf ("%d", &x);

} while (x < 0 || x > 360);

radianes = x * 3.1416 / 180;

seno = 0;

signo = 1;

for (i = 1; ; i += 2) {

if (termino <= 0.001 && i != 1) break;

termino = potencia (radianes, i) / factorial (i);

seno += signo * termino;

signo = -signo;

gotoxy (1, 3);

printf ("\nTérmino: %6.4f - seno (%3d) = %6.4f", termino, x, seno);

}

double potencia (double base, int exponente)

{

register int i;

double total = 1;

for (i = 1; i <= exponente; i++) total *= base;

return total;

}

double factorial (int numero)

{

register int i;

double total = 1;

for (i = 1; i <= numero; i++) total *= (double) i;

return total;

}

/* Capítulo 6. Ejercicio 2 */

#include <stdio.h>

#include <conio.h>

long potencia (int base, int exponente);

void main (void)

{

int x, n;

clrscr ();

puts ("CÁLCULO DE xn MEDIANTE UNA FUNCIÓN RECURSIVA");

do {

printf ("\nValor de x (x > 0): ");

scanf ("%d", &x);

} while (x <= 0);

do {

printf ("\nValor de n (n > 0): ");

scanf ("%d", &n);

} while (n <= 0);

printf ("\nResultado: %ld", potencia (x, n));

}

long potencia (int base, int exponente)

{

if (!exponente) return 1;

return base * potencia (base, exponente - 1);

}

/* Capítulo 6. Ejercicio 3 */

#include <stdio.h>

#include <conio.h>

#include <process.h>

#include <stdlib.h>

int Fibonacci (int elemento);

void main (void)

{

register int i;

int N;

clrscr ();

puts ("SUCESIÓN DE FIBONACCI");

printf ("\nMostrar los N primeros términos");

do {

printf ("\nValor de N (N > 0): ");

scanf ("%d", &N);

} while (N <= 0);

for (i = 1; i <= N; i++) printf ("\n%d", Fibonacci (i));

}

int Fibonacci (int elemento)

{

if (elemento <= 2) return 1;

else return Fibonacci (elemento - 1) + Fibonacci (elemento - 2);

}

/* Capítulo 6. Ejercicio 4 */

#include <stdio.h>

#include <conio.h>

#include <bios.h>

void Presentar (void);

void main (void)

{

int equipo, a;

clrscr ();

Presentar ();

equipo = biosequip ();

gotoxy (37, 4);

a = equipo & 0x0002;

if (a) puts ("SI");

else puts ("NO");

gotoxy (37, 5);

a = (equipo & 0x000C) >> 2;

printf ("%d Kb.", (a + 1) * 16);

gotoxy (37, 7);

a = (equipo & 0x0030) >> 4;

switch (a) {

case 1: puts ("40x25 Blanco y Negro, Adaptador Color");

break;

case 2: puts ("80x25 Blanco y Negro, Adaptador Color");

break;

case 3: puts ("80x25 Adaptador Monocromo");

}

gotoxy (37, 8);

a = equipo & 0x0001;

if (!a) puts ("0");

else {

a = (equipo & 0x00C0) >> 6;

printf ("%d", a + 1);

}

gotoxy (37, 9);

a = equipo & 0x0100;

if (a) puts ("NO");

else puts ("SI");

gotoxy (37, 10);

a = (equipo & 0x0E00) >> 9;

printf ("%d", a);

gotoxy (37, 11);

a = equipo & 0x2000;

if (a) puts ("SI");

else puts ("NO");

gotoxy (37, 12);

a = (equipo & 0xC000) >> 14;

printf ("%d", a);

gotoxy (37, 6);

a = biosmemory ();

printf ("%d Kb.", a);

}

void Presentar (void)

{

puts ("EQUIPAMIENTO");

puts ("-----------------------\n");

puts ("Procesador matemático instalado ...");

puts ("RAM en placa base ...........................");

puts ("RAM convencional ...........................");

puts ("Modo inicial de vídeo .......................");

puts ("Unidades de disquete ......................");

puts ("Chip DMA instalado .........................");

puts ("Puertos serie ....................................");

puts ("Adaptador de juegos instalado .......");

puts ("Impresoras .......................................");

}

/* Capítulo 6. Ejercicio 5 */

#include <stdio.h>

#include <conio.h>

#include <bios.h>

void Presentar (void);

void main (void)

{

register int i;

unsigned int teclado, bit, salir = 0;

_setcursortype (_NOCURSOR);

clrscr ();

Presentar ();

for (;;) {

teclado = bioskey (2);

for (i = 0; i < 8; i++) {

bit = teclado & 1;

gotoxy (26, i + 1);

if (bit) puts ("SI");

else puts ("NO");

teclado >>= 1;

}

if (kbhit()) salir = getch ();

if (salir == 27) break;

}

_setcursortype (_NORMALCURSOR);

}

void Presentar (void)

{

puts ("Mayúsculas derecha ");

puts ("Mayúsculas izquierda ");

puts ("Tecla Control ");

puts ("Tecla Alt ");

puts ("Tecla Bloq Despl ");

puts ("Tecla Bloq Num ");

puts ("Tecla Bloq Mayús ");

puts ("Tecla Ins ");

puts ("\nPulse la tecla Esc para finalizar");

}

/* Capítulo 6. Ejercicio 6 */

char *Intro (int f, int c, int tam, char *cad)

{

register int i;

char aux[100];

gotoxy (c, f);

for (i = 0; i < tam; i++) putch (' ');

gotoxy (c, f);

aux[0] = tam + 1;

strcpy (cad, cgets (aux));

return cad;

}

/* Capítulo 6. Ejercicio 7 */

int Strdigit (char *cad)

{

register int i;

for (i = 0; cad[i]; i++) if (!isdigit (cad[i])) return 0;

return 1;

}

/* Capítulo 6. Ejercicio 8 */

char *Format_fecha (char *fecha, int tipo, char *format)

{

int diasemana;

char dia[3], mes[3], anyo[5], aux[9];

char meses[12][12] = { "Enero", "Febrero", "Marzo", "Abril", "Mayo", "Junio",

"Julio", "Agosto", "Septiembre", "Octubre", "Noviembre", "Diciembre" };

char dias[7][12] = { "Domingo", "Lunes", "Martes", "Miércoles", "Jueves",

"Viernes", "Sábado" };

diasemana = Valida_fecha (fecha);

if (diasemana == -1 || tipo < 0 || tipo > 3) {

format = 0;

return format;

}

dia[2] = mes[2] = 0;

strncpy (dia, fecha, 2);

strncpy (mes, fecha + 2, 2);

strcpy (anyo, fecha + 4);

switch (tipo) {

case 0: sprintf (format, "%s/%s/%s", dia, mes, anyo + 2);

break;

case 1: sprintf (format, "%s/%s/%s", dia, mes, anyo);

break;

case 2: sprintf (format, "%d de %s de %s", atoi (dia), meses[atoi(mes) - 1], anyo);

break;

case 3: sprintf (format, "%s, %s", dias[diasemana], Format_fecha (fecha, 2, aux));

}

return format;

}

/* Capítulo 6. Ejercicio 9 */

#include <dos.h>

int Valida_fecha (char *fecha)

{

union REGS ent, sal;

char dia[3], mes[3], anyo[5];

int sysdia, sysmes, sysanyo, diasemana;

int i;

if (strlen (fecha) != 8) return -1;

for (i = 0; fecha[i]; i++) if (!isdigit (fecha[i])) return -1;

dia[2] = mes[2] = 0;

strncpy (dia, fecha, 2);

strncpy (mes, fecha + 2, 2);

strcpy (anyo, fecha + 4);

ent.h.ah =0x2A;

intdos (&ent, &sal);

sysanyo = sal.x.cx;

sysmes = sal.h.dh;

sysdia = sal.h.dl;

ent.h.ah = 0x2B;

ent.x.cx = atoi (anyo);

ent.h.dh = atoi (mes);

ent.h.dl = atoi (dia);

intdos (&ent, &sal);

if (sal.h.al) return -1;

ent.h.ah = 0x2A;

intdos (&ent, &sal);

diasemana = sal.h.al;

ent.h.ah = 0x2B;

ent.x.cx = sysanyo;

ent.h.dh = sysmes;

ent.h.dl = sysdia;

intdos (&ent, &sal);

return diasemana;

}

/* Capítulo 6. Ejercicio 10 */

int Tecla (int *scan)

{

unsigned palabra;

palabra = bioskey (0);

*scan = palabra >> 8;

return palabra & 0x00FF;

}

/* Capítulo 6. Ejercicio 11 */

int Mensaje (int st, int fil, int col, char *cad)

{

int ascii, scan;

gotoxy (col, fil);

cprintf (cad);

if (!st) return 0;

ascii = Tecla (&scan);

if (ascii) return ascii;

else return scan + 1000;

}

7. Matrices y punteros

/* Capítulo 7. Ejercicio 1 */

#include <stdio.h>

#include <conio.h>

int Suma_fila (int fila);

int Suma_columna (int columna);

int matriz[4][3];

void main (void)

{

register int i, j;

clrscr ();

puts ("Carga de los elementos de la matriz");

for (i = 0; i < 4; i++) {

for (j = 0; j < 3; j++) {

printf ("\nMATRIZ[%d][%d] = ", i, j);

scanf ("%d", &matriz[i][j]);

}

for (i = 0; i < 4; i++) printf ("\nLa fila %d suma %d", i, Suma_fila (i));

for (i = 0; i < 3; i++) printf ("\nLa columna %d suma %d", i, Suma_columna (i));

}

int Suma_fila (int fila)

{

register int i;

int total = 0;

for (i = 0; i < 3; i++) total += matriz[fila][i];

return total;

}

int Suma_columna (int columna)

{

register int i;

int total = 0;

for (i = 0; i < 4; i++) total += matriz[i][columna];

return total;

}

/* Capítulo 7. Ejercicio 2 */

#include <stdio.h>

#include <conio.h>

void main (void)

{

int magico[3][3];

int i, j, ant_i, ant_j;

register int valor;

clrscr ();

puts ("CUADRADO MÁGICO DE ORDEN 3");

for (i = 0; i < 3; i++) {

for (j = 0; j < 3; j++) {

magico[i][j] = 0;

}

i = 0;

j = 1;

for (valor = 1; valor <= 9; valor++) {

if (magico[i][j]) {

i = ant_i + 1;

j = ant_j;

if (i > 2) i = 0;

}

magico[i][j] = valor;

ant_i = i--;

ant_j = j++;

if (i < 0) i = 2;

if (j > 2) j = 0;

}

clrscr ();

for (i = 0; i < 3; i++) {

for (j = 0; j < 3; j++) {

printf ("%3d ", magico[i][j]);

}

printf ("\n");

}

/* Capítulo 7. Ejercicio 3

Se supone que en el directorio C:\MILIB se encuentran las funciones Intro()

y Strdigit() diseñadas en el capítulo anterior */

#include <stdio.h>

#include <conio.h>

#include <stdlib.h>

#include <string.h>

#include <ctype.h>

#include <process.h>

#include "C:\MILIB\INTRO.C"

#include "C:\MILIB\STRDIGIT.C"

void main (int argc, char *argv[ ])

{

int magico[19][19];

int i, j, ant_i, ant_j, orden, tope;

register int valor;

clrscr ();

puts ("CUADRADO MÁGICO DE ORDEN N IMPAR (3 * N * 19)");

switch (argc) {

case 1: puts ("Falta parámetro");

exit (1);

case 2: orden = atoi (argv[1]);

if (orden < 3 || orden > 19 || !(orden % 2)) {

puts ("Parámetro no válido");

exit (1);

}

break;

default: puts ("Demasiados parámetros");

exit (1);

}

tope = orden * orden;

for (i = 0; i < orden; i++) {

for (j = 0; j < orden; j++) {

magico[i][j] = 0;

}

i = 0;

j = orden / 2;

for (valor = 1; valor <= tope; valor++) {

if (magico[i][j]) {

i = ant_i + 1;

j = ant_j;

if (i > orden - 1) i = 0;

}

magico[i][j] = valor;

ant_i = i--;

ant_j = j++;

if (i < 0) i = orden - 1;

if (j > orden - 1) j = 0;

}

clrscr ();

for (i = 0; i < orden; i++) {

for (j = 0; j < orden; j++) {

printf ("%3d ", magico[i][j]);

}

printf ("\n");

}

/* Capítulo 7. Ejercicio 4 */

/* Solución declarando las matrices como globales */

#include <stdio.h>

#include <conio.h>

void Carga (int x[3][3]);

int Producto (int fila, int columna);

int A[3][3], B[3][3];

void main (void)

{

register int i, j;

int P[3][3];

clrscr ();

puts ("Carga de la Matriz A");

Carga (A);

puts ("Carga de la Matriz B");

Carga (B);

for (i = 0; i < 3; i++) {

for (j = 0; j < 3; j++) {

P[i][j] = Producto (i, j);

}

puts ("Matriz producto: \n");

for (i = 0; i < 3; i++) {

for (j = 0; j < 3; j++) {

printf ("%3d ", P[i][j]);

}

printf ("\n");

}

void Carga (int x[3][3])

{

register int i, j;

for (i = 0; i < 3; i++) {

for (j = 0; j < 3; j++) {

printf ("\n[%d][%d]: ", i, j);

scanf ("%d", &x[i][j]);

}

int Producto (int fila, int columna)

{

register int k;

int total = 0;

for (k = 0; k < 3; k++) total += A[fila][k] * B[k][columna];

return total;

}

/* Capítulo 7. Ejercicio 4 */

/* Solución declarando las matrices como locales */

#include <stdio.h>

#include <conio.h>

void Carga (int x[3][3]);

int Producto (int fila, int columna, int x[3][3], int y[3][3]);

void main (void)

{

register int i, j;

int A[3][3], B[3][3], P[3][3];

clrscr ();

puts ("Carga de la Matriz A");

Carga (A);

puts ("Carga de la Matriz B");

Carga (B);

for (i = 0; i < 3; i++) {

for (j = 0; j < 3; j++) {

P[i][j] = Producto (i, j, A, B);

}

puts ("Matriz producto: \n");

for (i = 0; i < 3; i++) {

for (j = 0; j < 3; j++) {

printf ("%3d ", P[i][j]);

}

printf ("\n");

}

void Carga (int x[3][3])

{

register int i, j;

for (i = 0; i < 3; i++) {

for (j = 0; j < 3; j++) {

printf ("\n[%d][%d]: ", i, j);

scanf ("%d", &x[i][j]);

}

int Producto (int fila, int columna, int x[3][3], int y[3][3])

{

register int k;

int total = 0;

for (k = 0; k < 3; k++) total += x[fila][k] * y[k][columna];

return total;

}

/* Capítulo 7. Ejercicio 5 */

char *Strminus (char *cad)

{

char mayus[ ] = "ÁÉÍÓÚÀÈÌÒÙÄËÏÖÜÂÊÎÔÛÑÇ";

char minus[ ] = "áéíóúàèìòùäëïöüâêîôûñç";

char *p;

register int i;

strlwr (cad);

for (i = 0; cad[i]; i++) {

p = strchr (mayus, cad[i]);

if (p) cad[i] = minus[p - mayus];

}

return cad;

}

char *Strmayus (char *cad)

{

char mayus[ ] = "ÁÉÍÓÚÀÈÌÒÙÄËÏÖÜÂÊÎÔÛÑÇ";

char minus[ ] = "áéíóúàèìòùäëïöüâêîôûñç";

char *p;

register int i;

strupr (cad);

for (i = 0; cad[i]; i++) {

p = strchr (minus, cad[i]);

if (p) cad[i] = mayus[p - minus];

}

return cad;

}

/* Capítulo 7. Ejercicio 6 */

#include <stdio.h>

#include <conio.h>

#include <bios.h>

#include <time.h>

void Presentar (void);

void Iniciar (int vector[ ], int n);

void Burbuja (int vector[ ], int n);

void Seleccion (int vector[ ], int n);

void Insercion (int vector[ ], int n);

void Shell (int vector[ ], int n);

void Quick (int vector[ ], int primero, int ultimo);

void main (void)

{

int fila, x[5000];

register int i;

unsigned long int inicio, final;

clrscr ();

Presentar ();

fila = 6;

for (i = 500; i <= 5000; i += 500) {

Iniciar (x, i);

inicio = biostime (0, 0);

Burbuja (x, i);

final = biostime (0, 0);

gotoxy (9, fila);