{"id":1386,"date":"2013-12-12T22:04:34","date_gmt":"2013-12-12T15:04:34","guid":{"rendered":"http:\/\/www.sulhansetiawan.com\/?p=1386"},"modified":"2013-12-15T14:36:38","modified_gmt":"2013-12-15T07:36:38","slug":"factorial-program-using-repeat-until","status":"publish","type":"post","link":"https:\/\/sulhansetiawan.com\/id\/factorial-program-using-repeat-until\/","title":{"rendered":"Program faktorial dengan repeat until"},"content":{"rendered":"<p><\/p>\n<div style=\"width: 96px; margin-left: auto; margin-right: auto;\"><a href=\"\/id\/?p=1385\"><img decoding=\"async\" src=\"https:\/\/sulhansetiawan.com\/_wordpress_\/2013\/12\/arrowleft_green_32.png\" title=\"Program faktorial dengan while do\"\/><\/a><a href=\"\/id\/?p=1379\"><img decoding=\"async\" src=\"https:\/\/sulhansetiawan.com\/_wordpress_\/2013\/12\/home_green_32.png\" title=\"Tutorial Delphi\"\/><\/a><a href=\"\/id\/?p=1387\"><img decoding=\"async\" src=\"https:\/\/sulhansetiawan.com\/_wordpress_\/2013\/12\/arrowright_green_32.png\" title=\"Prosedur\"\/><\/a><\/div>\n<p>Kita juga bisa menghitung nilai faktorial menggunakan perulangan repeat until seperti contoh berikut:<\/p>\n<pre class='brush: delphi'>program HitungFaktorial4;\r\n{$APPTYPE CONSOLE}\r\nvar\r\n  n,i,faktorial:cardinal;  \r\nbegin\r\n  Write('Masukkan sebuah bilangan: ');\r\n  Readln(n);\r\n  faktorial:=1;\r\n  if (n<>0) then\r\n  begin\r\n    i:=1;\r\n    repeat\r\n      faktorial:=faktorial*i;\r\n      i:=i+1;\r\n    until (i>n);\r\n  end;\r\n  Write('Faktorial dari ',n);\r\n  Writeln(' adalah ',faktorial);\r\n  Writeln('Tekan Enter');\r\n  Readln;\r\nend.<\/pre>\n<p>Perhatikan bahwa kita tidak membutuhkan begin dan end; untuk membuat statemen majemuk di dalam perulangan yang menggunakan repeat until.<p><\/p>\nSama dengan while do, perubahan variabel pada repeat until juga tidak selalu selisih 1.<\/p>\n<div style=\"width: 96px; margin-left: auto; margin-right: auto;\"><a href=\"\/id\/?p=1385\"><img decoding=\"async\" src=\"https:\/\/sulhansetiawan.com\/_wordpress_\/2013\/12\/arrowleft_green_32.png\" title=\"Program faktorial dengan while do\"\/><\/a><a href=\"\/id\/?p=1379\"><img decoding=\"async\" src=\"https:\/\/sulhansetiawan.com\/_wordpress_\/2013\/12\/home_green_32.png\" title=\"Tutorial Delphi\"\/><\/a><a href=\"\/id\/?p=1387\"><img decoding=\"async\" src=\"https:\/\/sulhansetiawan.com\/_wordpress_\/2013\/12\/arrowright_green_32.png\" title=\"Prosedur\"\/><\/a><\/div>\n<p><\/p>","protected":false},"excerpt":{"rendered":"<p>Kita juga bisa menghitung nilai faktorial menggunakan perulangan repeat until seperti contoh berikut: program HitungFaktorial4; {$APPTYPE CONSOLE} var n,i,faktorial:cardinal; begin Write(&#8216;Masukkan sebuah bilangan: &#8216;); Readln(n); faktorial:=1; if (n0) then begin i:=1; repeat faktorial:=faktorial*i; i:=i+1; until (i>n); end; Write(&#8216;Faktorial dari &#8216;,n); Writeln(&#8216; adalah &#8216;,faktorial); Writeln(&#8216;Tekan Enter&#8217;); Readln; end. Perhatikan bahwa kita tidak membutuhkan begin dan end;&hellip;<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[105,104,96,145],"tags":[106],"class_list":["post-1386","post","type-post","status-publish","format-standard","hentry","category-delphi-lazarus","category-programming","category-all","category-tutorial","tag-delphi"],"_links":{"self":[{"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/posts\/1386","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/comments?post=1386"}],"version-history":[{"count":0,"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/posts\/1386\/revisions"}],"wp:attachment":[{"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/media?parent=1386"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/categories?post=1386"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/tags?post=1386"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}