{"id":932,"date":"2024-12-14T09:00:00","date_gmt":"2024-12-14T08:00:00","guid":{"rendered":"https:\/\/jorgeturiel.es\/?p=932"},"modified":"2024-12-07T21:08:31","modified_gmt":"2024-12-07T20:08:31","slug":"ejercicio-de-programacion-5-crea-un-cuenta-regresiva","status":"publish","type":"post","link":"https:\/\/jorgeturiel.es\/?p=932","title":{"rendered":"Ejercicio de programaci\u00f3n #5. Crea una cuenta regresiva."},"content":{"rendered":"\n<p>En este <a href=\"https:\/\/www.youtube.com\/shorts\/f97_n-60K-I\">v\u00eddeo<\/a> crean un  programa que reciba un tiempo en segundos y muestre una cuenta regresiva hasta cero.<\/p>\n\n\n\n<p>Vamos a verlo como se hace en Object Pascal<\/p>\n\n\n\n<!--more-->\n\n\n\n<p>Crea un programa nuevo.<\/p>\n\n\n\n<p><\/p>\n\n\n<div class=\"wp-block-image\">\n<figure class=\"aligncenter size-full\"><img loading=\"lazy\" decoding=\"async\" width=\"338\" height=\"416\" src=\"https:\/\/jorgeturiel.es\/wp-content\/uploads\/2023\/03\/LazarusCrearProyecto.jpg\" alt=\"\" class=\"wp-image-386\" srcset=\"https:\/\/jorgeturiel.es\/wp-content\/uploads\/2023\/03\/LazarusCrearProyecto.jpg 338w, https:\/\/jorgeturiel.es\/wp-content\/uploads\/2023\/03\/LazarusCrearProyecto-244x300.jpg 244w\" sizes=\"auto, (max-width: 338px) 100vw, 338px\" \/><figcaption class=\"wp-element-caption\">Nuevo proyecto<\/figcaption><\/figure>\n<\/div>\n\n<div class=\"wp-block-image\">\n<figure class=\"aligncenter size-full\"><img loading=\"lazy\" decoding=\"async\" width=\"563\" height=\"334\" src=\"https:\/\/jorgeturiel.es\/wp-content\/uploads\/2023\/03\/LazarusEscogerProyecto.jpg\" alt=\"\" class=\"wp-image-388\" srcset=\"https:\/\/jorgeturiel.es\/wp-content\/uploads\/2023\/03\/LazarusEscogerProyecto.jpg 563w, https:\/\/jorgeturiel.es\/wp-content\/uploads\/2023\/03\/LazarusEscogerProyecto-300x178.jpg 300w\" sizes=\"auto, (max-width: 563px) 100vw, 563px\" \/><figcaption class=\"wp-element-caption\">Seleccionar tipo de proyecto<\/figcaption><\/figure>\n<\/div>\n\n\n<p>Ahora escribe el siguiente c\u00f3digo<\/p>\n\n\n\n<div class=\"wp-block-urvanov-syntax-highlighter-code-block\"><pre class=\"lang:default decode:true \" >program Project1;\n\n{$mode objfpc}{$H+}\n\nuses\n  {$IFDEF UNIX}\n  cthreads,\n  {$ENDIF}\n  Classes { you can add units after this },\n  SysUtils;\n\nvar\n  Valor: integer;\n\n  procedure Temporizador(Tiempo: integer);\n  var\n    minutos, Segundos: integer;\n  begin\n    while Tiempo &gt;= 0 do\n    begin\n      Minutos := Tiempo div 60 mod 60;\n      Segundos := Tiempo mod 60;\n      Writeln(format('%02d:%02d', [minutos, segundos]));\n      Tiempo := Tiempo - 1;\n      Sleep(1000);\n    end;\n  end;\n\nbegin\n  WriteLn('Introduce un tiempo');\n  ReadLn(Valor);\n  Temporizador(Valor);\nend.   <\/pre><\/div>\n\n\n\n<p>Crearemos un funci\u00f3n llamada Temporizador que recibe el par\u00e1metro llamado <em>Tiempo<\/em>.<\/p>\n\n\n\n<p>Dentro de esta funci\u00f3n, creamos un bucle mientras la variable <em>Tiempo<\/em> sea mayor o igual que  cero.  Obtenemos su valor en Minutos y  en segundos.<\/p>\n\n\n\n<p>Mostramos su valor por pantalla, y restamos uno a la variable <em>Tiempo.<\/em> Esperamos mil milisegundos que son un segundo. <\/p>\n\n\n\n<p>Saludos<\/p>\n","protected":false},"excerpt":{"rendered":"<p>En este v\u00eddeo crean un programa que reciba un tiempo en segundos y muestre una cuenta regresiva hasta cero. Vamos a verlo como se hace en Object Pascal<\/p>\n","protected":false},"author":2,"featured_media":943,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[61,27,25],"tags":[64,23,21,24],"class_list":["post-932","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-free-pascal","category-lazarus","category-pascal","tag-ejercicio-programacion","tag-lazarus","tag-pascal","tag-programacion"],"_links":{"self":[{"href":"https:\/\/jorgeturiel.es\/index.php?rest_route=\/wp\/v2\/posts\/932","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=932"}],"version-history":[{"count":3,"href":"https:\/\/jorgeturiel.es\/index.php?rest_route=\/wp\/v2\/posts\/932\/revisions"}],"predecessor-version":[{"id":935,"href":"https:\/\/jorgeturiel.es\/index.php?rest_route=\/wp\/v2\/posts\/932\/revisions\/935"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/jorgeturiel.es\/index.php?rest_route=\/wp\/v2\/media\/943"}],"wp:attachment":[{"href":"https:\/\/jorgeturiel.es\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=932"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/jorgeturiel.es\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=932"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/jorgeturiel.es\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=932"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}