Dec

Dec adalah perintah untuk mengurangi agka dengan angka 1 atau angka lainnya sesuai dengan penurunan yang diinginkan. Ini sama dengan x=x-1 dalam bahasa pemrograman basic.

BENTUK UMUM

Dex(x) sama dengan x:=x-1;

Dec(x,2) sama dengan x:=x-2

Dec(x,3) sama dengan x:=x-3;

Contoh :

Uses crt;

Var i:integer;

Begin

Clrscr;

I:=100;

Repeat

Writeln(i);

Dec(i);

Until i=89;

Readln;

End.

contoh 2:

uses crt;

var i:integer;

begin

clrscr;

i:-100;

repeat

writeln(i);

dec(i,5);

until i=15;

readln;

end.

Kembali ke Contoh Program Turbo Pacal