{"id":1384,"date":"2013-12-12T21:32:06","date_gmt":"2013-12-12T14:32:06","guid":{"rendered":"http:\/\/www.sulhansetiawan.com\/?p=1384"},"modified":"2013-12-15T14:26:04","modified_gmt":"2013-12-15T07:26:04","slug":"variation-of-factorial-program","status":"publish","type":"post","link":"https:\/\/sulhansetiawan.com\/id\/variation-of-factorial-program\/","title":{"rendered":"Variasi program faktorial"},"content":{"rendered":"

<\/p>\n

<\/a><\/a><\/a><\/div>\n

Aksi setelah then pada pernyataan if pada contoh program sebelumnya<\/a> hanya merupakan statemen tunggal, jadi tidak diperlukan begin dan end;. Akan tetapi aksi setelah else merupakan aksi dengan statemen yang majemuk, jadi dibutuhkan begin dan end;.<\/p>\n

Perhatikan statemen pertama pada blok else. Statemen tersebut adalah statemen faktorial:=1<\/code> yang merupakan statemen yang sama dengan statemen pada bagian setelah then. Oleh karena itu, kita bisa merubah susunan program menjadi sebagai berikut:<\/p>\n

program HitungFaktorial2;\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 for i:=1 to n do faktorial:=faktorial*i;\r\n  Write('Faktorial dari ',n);\r\n  Writeln(' adalah ',faktorial);\r\n  Writeln('Tekan Enter');\r\n  Readln;\r\nend.<\/pre>\n
Isi variabel faktorial ditentukan berisi 1. Hanya jika n tidak sama dengan nol maka nilai faktorial perlu diganti.
<\/p>\nProgram ini akan menghasilkan nilai yang tepat sama dengan program yang pertama.<\/p>\n
<\/a><\/a><\/a><\/div>\n
<\/p>","protected":false},"excerpt":{"rendered":"
Aksi setelah then pada pernyataan if pada contoh program sebelumnya hanya merupakan statemen tunggal, jadi tidak diperlukan begin dan end;. Akan tetapi aksi setelah else merupakan aksi dengan statemen yang majemuk, jadi dibutuhkan begin dan end;. Perhatikan statemen pertama pada blok else. Statemen tersebut adalah statemen faktorial:=1 yang merupakan statemen yang sama dengan statemen pada…<\/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-1384","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\/1384","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=1384"}],"version-history":[{"count":0,"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/posts\/1384\/revisions"}],"wp:attachment":[{"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/media?parent=1384"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/categories?post=1384"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/tags?post=1384"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}