Penambahan penghitung (counter) satu demi satu pastilah algoritma biasa bagi mahasiswa komputer. Banyak cara yang dapat digunakan, pada artikel ini saya mendemokan fungsi Inc di delphi.
Jika Anda pernah membuat program semacam ini:
i := i + 1;
maka Anda dapat menyingkatnya dengan fungsi
inc(i);
Program dibawah ini adalah contoh penggunaan Inc untuk menghitung jumlah bilangan ganjil dalam jangkauan 1 sampai 10.
uses
SysUtils;
var
i, Jumlah : integer;
begin
try
Jumlah := 0;
for i := 1 to 10 do begin
if (i mod 2 <> 0) then begin
inc(Jumlah);
writeln(i);
end;
end;
writeln('');
write('Jumlah bilangan ganjil dari 1 sampai 10: ',Jumlah);
readln;
except
on E:Exception do
Writeln(E.Classname, ': ', E.Message);
end;
end.
Tetapi Inc tidak hanya dapat menambah satu, Anda bisa memerintahkan Inc menambah dengan bilangan lain. Beberapa contoh dibawah ini mengilustrasikan macam-macam penggunaan Inc.
Inc(i, 3)
Inc(i, -1)
Inc(i)
Inc(i * 3)
Inc(i, 4 * A);
Inc(Huruf, 1);
Program dibawah ini akan mendemokan inc untuk mencetak huruf kapital dari 'A' sampai 'Z'. Huruf tersebut mempunyai kodeASCII dari 65 sampai 90. Sekarang saya akan memundurkan menjadi 64 sampai 89. Namun sebelum mencetak, saya akan menambahnya dengan satu.
uses
SysUtils;
var
i : integer;
Huruf : char;
begin
try
for i := 64 to 89 do begin
Huruf := char(i);
Inc(Huruf, 1);
Writeln(Huruf);
end;
readln;
except
on E:Exception do
Writeln(E.Classname, ': ', E.Message);
end;
end.
0 comments:
Posting Komentar