Pengurangan dengan Dec

Jika fungsi Inc digunakan untuk menambahkan sejumah bilangan, maka fungsi Dec digunakan untuk mengurangi sejumlah bilangan tertentu.

Sintak dasar Dec adalah:

Dec(i);

dengan i adalah variabel.

Pada contoh program dibawah ini, saya mencetak bilangan dari 10 ke 1:

uses
  SysUtils;
var
  i : integer;
  Bilangan: integer;
begin
  try
    Bilangan := 11;
    repeat
      dec(Bilangan);
      writeln(Bilangan);
    until bilangan = 0;
    readln;
  except
    on E:Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;
end.

Seperti Inc, fungsi Dec tidak cuma digunakan untuk mengurangi dengan bilangan 1. Contoh berikut mengilustrasikan berbagai macam penggunaan Dec.

Dec(i, 3)
Dec(i, -1)
Dec(i)
Dec(i * 3)
Dec(i, 4 * A);

Fungsi Dec dan Inc dapat saling dipertukarkan. Kode program

Inc(-1)

mempunyai hasil yang sama dengan:

Dec(1);

Pengurangan dengan Dec 2018-11-01T13:30:00+07:00 Rating: 4.5 Diposkan Oleh: Good Dreamer