{"id":2229,"date":"2012-05-04T13:44:52","date_gmt":"2012-05-04T11:44:52","guid":{"rendered":"http:\/\/giusseppe.net\/blog\/?p=2229"},"modified":"2012-05-04T13:44:52","modified_gmt":"2012-05-04T11:44:52","slug":"4estaciones-c","status":"publish","type":"post","link":"https:\/\/www.giusseppe.net\/blog\/archivo\/2012\/05\/04\/4estaciones-c\/","title":{"rendered":"4estaciones.c"},"content":{"rendered":"<p>Otro poema escrito en C, compilado y una de cuyas salidas se muestra a posteriori. En primer lugar, el c\u00f3digo:<\/p>\n<p><code>\/********************************************************<br \/>\n\tPoema 4 Estaciones (escrito en C)<br \/>\n\trealizado por Giusseppe Dom\u00ednguez<br \/>\n\tel d\u00eda 4 de mayo de 2012 en Madrid<br \/>\n\tbajo la lluvia de la primavera<br \/>\n********************************************************\/<\/p>\n<p>#include <stdio.h><br \/>\n#include <string.h><br \/>\n#include <stdlib.h><br \/>\n#include <time.h><\/p>\n<p>int estacion(char *laestacion, char *clima);<br \/>\nint firma();<\/p>\n<p>main()<br \/>\n{<br \/>\n\tchar *estaciones[]= {\"Primavera\", \"Verano\", \"Oto\u00f1o\",  \"Invierno\"};<br \/>\n\tchar *clima[]=      {\"lluvia\",    \"sol\",    \"viento\", \"fr\u00edo\"};<br \/>\n\tint  indice_estacion;<\/p>\n<p>\tfor (indice_estacion=0; indice_estacion<4; indice_estacion++) {\n\t\testacion(estaciones[indice_estacion], clima[indice_estacion]);\n\t}\n\n\tfirma();\n}\n\nint estacion(char *laestacion, char *clima)\n{\n\tint  dias_anno=365, dias_estacion=dias_anno\/4+1, dia;\n\tint  longitud_clima=strlen(clima);\n\tchar *estrofa_estacional = malloc(dias_estacion*longitud_clima*sizeof(char));\n\n\tprintf(\"%s\\n\",laestacion);\n\tfor (dia=0; dia<dias_estacion; dia++) {\n\t\tif (dia == 0) sprintf(estrofa_estacional,\"%s\",clima);\n\t\telse sprintf(estrofa_estacional,\"%s %s\",estrofa_estacional,clima);\n\t}\n\tprintf(\"%s\\n\", estrofa_estacional);\n\treturn dia;\n}\n\nint firma()\n{\n        time_t tiempo = time(0);\n        struct tm *tiempolocal = localtime(&#038;tiempo);\n        char txt_firma[128];\n        strftime(txt_firma,128,\"\\nGiusseppe Dom\u00ednguez, a las %H:%M. M-%Y%m%d\\n\",tiempolocal);\n        printf(\"%s\\n\",txt_firma);\n\treturn 0;\n}<\/code><\/p>\n<p>Y una de las salidas posibles...<\/p>\n<blockquote><p>Primavera<br \/>\nlluvia 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<br \/>\nVerano<br \/>\nsol 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<br \/>\nOto\u00f1o<br \/>\nviento 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<br \/>\nInvierno<br \/>\nfr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo fr\u00edo<\/p>\n<p>Giusseppe Dom\u00ednguez, a las 13:40. M-20120504\n<\/p><\/blockquote>\n<p>Me interesa la mezcla extra\u00f1a de escribir sin escribir...<\/p>\n","protected":false},"excerpt":{"rendered":"<p>Otro poema escrito en C, compilado y una de cuyas salidas se muestra a posteriori. En primer lugar, el c\u00f3digo: \/******************************************************** Poema 4 Estaciones (escrito en C) realizado por Giusseppe Dom\u00ednguez el d\u00eda 4 de mayo de 2012 en Madrid bajo la lluvia de la primavera ********************************************************\/ #include #include #include #include int estacion(char *laestacion, char &#8230; <a title=\"4estaciones.c\" class=\"read-more\" href=\"https:\/\/www.giusseppe.net\/blog\/archivo\/2012\/05\/04\/4estaciones-c\/\">Read more<span class=\"screen-reader-text\">4estaciones.c<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[12],"tags":[76,91],"class_list":["post-2229","post","type-post","status-publish","format-standard","hentry","category-poemas","tag-informatica","tag-poesia"],"_links":{"self":[{"href":"https:\/\/www.giusseppe.net\/blog\/wp-json\/wp\/v2\/posts\/2229","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.giusseppe.net\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.giusseppe.net\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.giusseppe.net\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.giusseppe.net\/blog\/wp-json\/wp\/v2\/comments?post=2229"}],"version-history":[{"count":1,"href":"https:\/\/www.giusseppe.net\/blog\/wp-json\/wp\/v2\/posts\/2229\/revisions"}],"predecessor-version":[{"id":2230,"href":"https:\/\/www.giusseppe.net\/blog\/wp-json\/wp\/v2\/posts\/2229\/revisions\/2230"}],"wp:attachment":[{"href":"https:\/\/www.giusseppe.net\/blog\/wp-json\/wp\/v2\/media?parent=2229"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.giusseppe.net\/blog\/wp-json\/wp\/v2\/categories?post=2229"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.giusseppe.net\/blog\/wp-json\/wp\/v2\/tags?post=2229"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}