1) LCM () Komutu: Lcm komutu girilen sayıların E.K.O.K unu almaya yarayan komuttur.Örnek olarak aşağıdaki kod blogunu kullanacağız. Bunun için DEVT11 ekranını kullanacağız. DEVT11 ekranı açılır
Açılan ekranda aşağıda kod bloğu CODEBOX kısmına yazılır.
OBJECT:
LONG LNG1,
LONG LNG2,
LONG LNGRESULT1,
LONG LNGRESULT2,
LONG LNGRESULT3;
LNG1 = 12;
LNG2 = 8;
LNGRESULT1 = LCM(LNG1,LNG2);
INTEGERVAR1 = LNGRESULT1;
LNGRESULT2 = LCM(LNG1, LNG2, 25, 15, 5, 10);
INTEGERVAR2 = LNGRESULT2;
LNGRESULT3 = LCM(LNG1, LNG2, 25, 15, 5, 10, 0);
INTEGERVAR3 = RESULT3;
/*HT 00000025 ismail.yılmaz 05.10.2019*/
Burada LNG1 ve LNG2 olarak iki sayı tanımladık ve INTEGERVAR1 bölümüne 12 ve 8 sayısının ortak katı olan 24 sayısını yazdırdık. INTEGERVAR2 bölümüne 12,8,25,15,5,10 sayılarının ortak katı olan 600 sayısını yazdırdık. INTEGERVAR3 bölümüne 12, 8, 25, 15, 5, 10, 0 sayısının ortak katı olan 0 sayısını yazdırdık.
2) GCD () Komutu: GCD komutu girilen sayıların E.B.O.B unu almaya yarayan komuttur. DEVT11 ekranında CODEBOX kısmına aşağıdaki kod blogu yazılır.
OBJECT:
LONG NO1,
LONG NO2,
LONG RESULT1,
LONG RESULT2,
LONG RESULT3;
NO1 = 50;
NO2 = 200;
RESULT1 = GCD(NO1, NO2,10);
INTEGERVAR1 = RESULT1;
RESULT2 = GCD(NO1, NO2, 25, 15, 35, 10);
INTEGERVAR2 = RESULT2;
RESULT3 = GCD(NO1, NO2, 25, 15, 5, 10, 0);
INTEGERVAR3 = RESULT3;
Burada LONG tipinde NO1 ve NO2 olarak iki sayı tanımladık. NO1 e 50, NO2 ye 100 değerini atadık, sonra NO1,NO2 ve 10 sayısının ortak böleni olan 10 sayısını INTEGERVAR1 bölümüne yazdırdık. INTEGERVAR2 bölümüne NO1, NO2, 25, 15, 5, 10 sayılarının ortak böleni olan 5 sayısını yazdırdık. INTEGERVAR3 bölümüne NO1, NO2, 25, 15, 5, 10, 0 sayısının ortak böleni olan 5 sayısını yazdırdık.
3)RAND () Komutu: Rand komutu random sayı üreten komuttur. Örneğimizde 50 ile 100 sayıları arasında random sayı üreteceğiz. Bunun için aşağıdaki kod bloğu DEVT11 ekranına yazılır.
OBJECT:
LONG X;
X =RAND()%100;
INTEGERVAR2 = X;
IF X<50 THEN
X=X+50;
INTEGERVAR1 = X;
ELSE
INTEGERVAR1 = X;
ENDIF;
Burada Long türünde bir X değeri tanımladık. RAND()%100 komutuyla üretilecek bu değerin 0-100 değeri arasında bir değer üretmesini sağladık. Başlangıç değerinin 50 olması için bir if bloğu yazdık.Eğer üretilen sayı 50 den küçük ise o sayının üzerine 50 ekleyerek sayının 50-100 sayıları arasında olmasını sağladık.
4)ROUND () Komutu: Round komutu decimal bir değeri yuvarlamaya yarayan komuttur.
OBJECT:
DECIMAL DEC1,
DECIMAL DEC2;
DEC1 = 22434.465678;
DEC2 = ROUND(DEC1,0);
DECIMALVAR1 = DEC2;
DEC2 = ROUND(DEC1,3);
DECIMALVAR2 = DEC2;
DEC2=ROUND (DEC1,-3);
DECIMALVAR3 = DEC2;
Örneğimizde 22.434,465678 sayısını ilk önce virgülden sonraki kısmı yuvarladık. İkinci olarak virgülden sonra 3 basamak yazdırdık. Round komutu ‘-‘ değer alabiliyor.Üçüncü olarak da sayının birler,onlar ve yüzler basamağını ‘-‘ vererek sıfırladık.
