{"id":849,"date":"2024-08-31T09:00:00","date_gmt":"2024-08-31T08:00:00","guid":{"rendered":"https:\/\/jorgeturiel.es\/?p=849"},"modified":"2024-11-24T14:34:27","modified_gmt":"2024-11-24T13:34:27","slug":"ejercicio-programacion-3-reto-12345678","status":"publish","type":"post","link":"https:\/\/jorgeturiel.es\/?p=849","title":{"rendered":"Ejercicio programaci\u00f3n #3. Reto 12345678"},"content":{"rendered":"\n<p>Este reto consiste en decir los n\u00fameros del 1 al 9, quitando uno. Y luego repetirlos hace atr\u00e1s.<\/p>\n\n\n\n<p>Suena un poco raro, pero vamos a verlo.<\/p>\n\n\n\n<!--more-->\n\n\n\n<p>Brais Moure lo explica muy bien en este v\u00eddeo.<\/p>\n\n\n\n<figure class=\"wp-block-embed is-type-video is-provider-youtube wp-block-embed-youtube wp-embed-aspect-16-9 wp-has-aspect-ratio\"><div class=\"wp-block-embed__wrapper\">\n<iframe loading=\"lazy\" title=\"VIRAL 12345678\" width=\"640\" height=\"360\" src=\"https:\/\/www.youtube.com\/embed\/uPDU2Qwwj2Q?feature=oembed\" frameborder=\"0\" allow=\"accelerometer; autoplay; clipboard-write; encrypted-media; gyroscope; picture-in-picture; web-share\" referrerpolicy=\"strict-origin-when-cross-origin\" allowfullscreen><\/iframe>\n<\/div><\/figure>\n\n\n\n<p>As\u00ed que vamos a hacerlo en Pascal.<\/p>\n\n\n\n<p>Lo primero es programar un bucle desde 1 hasta 8. Para crear los espacios a la izquierda usaremos la funci\u00f3n <em>PadLeft<\/em>, que devuelve una cadena tras a\u00f1adirle  a la izquierda un n\u00famero de espacios que le indicaremos. Para ellos a\u00f1adiremos en la clausula uses la unidad <em>strutils<\/em><\/p>\n\n\n\n<div class=\"wp-block-urvanov-syntax-highlighter-code-block\"><pre class=\"lang:default decode:true \" >program reto12345678;\n\nuses\n  StrUtils;\nvar\n  I, J: integer;\nbegin\n  for I := 1 to 8 do\n  begin\n    Write(PadLeft('',I-1));\n    for J := I to 8 do\n    begin\n      Write(J);\n    end;\n    Writeln();\n  end;<\/pre><\/div>\n\n\n\n<p>Con esto conseguimos generar los n\u00fameros del 1 al 8 quitando uno, tal como indica le reto.<\/p>\n\n\n\n<p>Ahora solo queda hacerlo hacia atr\u00e1s. <\/p>\n\n\n\n<div class=\"wp-block-urvanov-syntax-highlighter-code-block\"><pre class=\"lang:default decode:true \" >for I := 8 downto 1 do\n  begin\n   Write(PadLeft('',I-1));\n   for j := i to 8 do\n   begin\n    Write(J);\n   end;\n   Writeln('');\n  end;         <\/pre><\/div>\n\n\n\n<p><strong>\u00a1Listo el reto en Pascal!<\/strong><\/p>\n\n\n\n<p>Aqu\u00ed os dejo el c\u00f3digo completo,<\/p>\n\n\n\n<div class=\"wp-block-urvanov-syntax-highlighter-code-block\"><pre class=\"lang:default decode:true \" >program reto12345678;\n\nuses\n  StrUtils;\nvar\n  I, J: integer;\nbegin\n  for I := 1 to 8 do\n  begin\n    Write(PadLeft('',I-1));\n    for J := I to 8 do\n    begin\n      Write(J);\n    end;\n    Writeln();\n  end;\n  for I := 8 downto 1 do\n  begin\n   Write(PadLeft('',I-1));\n   for j := i to 8 do\n   begin\n    Write(J);\n   end;\n   Writeln('');\n  end;\nend.<\/pre><\/div>\n\n\n\n<p>V\u00eddeo de reto en Pascal<\/p>\n\n\n\n<figure class=\"wp-block-embed is-type-video is-provider-youtube wp-block-embed-youtube wp-embed-aspect-16-9 wp-has-aspect-ratio\"><div class=\"wp-block-embed__wrapper\">\n<iframe loading=\"lazy\" title=\"Reto viral 12345678\" width=\"640\" height=\"360\" src=\"https:\/\/www.youtube.com\/embed\/1jb2h07BSX8?feature=oembed\" frameborder=\"0\" allow=\"accelerometer; autoplay; clipboard-write; encrypted-media; gyroscope; picture-in-picture; web-share\" referrerpolicy=\"strict-origin-when-cross-origin\" allowfullscreen><\/iframe>\n<\/div><\/figure>\n\n\n\n<p>Saludos<\/p>\n\n\n\n<p><\/p>\n","protected":false},"excerpt":{"rendered":"<p>Este reto consiste en decir los n\u00fameros del 1 al 9, quitando uno. Y luego repetirlos hace atr\u00e1s. Suena un poco raro, pero vamos a verlo.<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[61,27,25,26],"tags":[64,32,23,21],"class_list":["post-849","post","type-post","status-publish","format-standard","hentry","category-free-pascal","category-lazarus","category-pascal","category-programacion","tag-ejercicio-programacion","tag-free-pascal","tag-lazarus","tag-pascal"],"_links":{"self":[{"href":"https:\/\/jorgeturiel.es\/index.php?rest_route=\/wp\/v2\/posts\/849","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/jorgeturiel.es\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/jorgeturiel.es\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/jorgeturiel.es\/index.php?rest_route=\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/jorgeturiel.es\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=849"}],"version-history":[{"count":3,"href":"https:\/\/jorgeturiel.es\/index.php?rest_route=\/wp\/v2\/posts\/849\/revisions"}],"predecessor-version":[{"id":852,"href":"https:\/\/jorgeturiel.es\/index.php?rest_route=\/wp\/v2\/posts\/849\/revisions\/852"}],"wp:attachment":[{"href":"https:\/\/jorgeturiel.es\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=849"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/jorgeturiel.es\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=849"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/jorgeturiel.es\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=849"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}