4estaciones.c

Código

Programa 4 Estaciones que reparte los 365 días en 4 estaciones y las llena de su clima más habitual. Podría realizarse una versión que tuviese en cuenta los kigo: Un kigo (季語) es, en haiku, una palabra estacional, es decir, un kigo indica en qué estación se sitúa el poema


/********************************************************
	Poema 4 Estaciones (escrito en C)
	realizado por Giusseppe Domínguez
	el día 4 de mayo de 2012 en Madrid
	bajo la lluvia de la primavera
********************************************************/

#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include <time.h>

int estacion(char *laestacion, char *clima);
int firma();

main()
{
	char *estaciones[]= {"Primavera", "Verano", "Otoño",  "Invierno"};
	char *clima[]=      {"lluvia",    "sol",    "viento", "frío"};
	int  indice_estacion;

	for (indice_estacion=0; indice_estacion<4; indice_estacion++) {
		estacion(estaciones[indice_estacion], clima[indice_estacion]);
	}

	firma();
}

int estacion(char *laestacion, char *clima)
{
	int  dias_anno=365, dias_estacion=dias_anno/4+1, dia;
	int  longitud_clima=strlen(clima);
	char *estrofa_estacional = malloc(dias_estacion*longitud_clima*sizeof(char));

	printf("%s\n",laestacion);
	for (dia=0; dia<dias_estacion; dia++) {
		if (dia == 0) sprintf(estrofa_estacional,"%s",clima);
		else sprintf(estrofa_estacional,"%s %s",estrofa_estacional,clima);
	}
	printf("%s\n", estrofa_estacional);
	return dia;
}

int firma()
{
        time_t tiempo = time(0);
        struct tm *tiempolocal = localtime(&tiempo);
        char txt_firma[128];
        strftime(txt_firma,128,"\nGiusseppe Domínguez, a las %H:%M. M-%Y%m%d\n",tiempolocal);
        printf("%s\n",txt_firma);
	return 0;
}

4estaciones.c

Ejecución

La salida de este programa compilado es la siguiente:

Primavera
lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia lluvia
Verano
sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol sol
Otoño
viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento viento
Invierno
frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío frío

Giusseppe Domínguez, a las 13:40. M-20120504