logika matematiaka di c++

#include<stdio.h>

#include <iostream.h>

int main()

{

printf("perkenalkan nama saya\n jamilah salwa lala");

return 0;

}

#include<stdio.h>

#include <iostream.h>

int main()

{

Cout<<"perkenalkan nama saya\n jamilah salwa lala");

return 0;

}

#include<stdio.h>

#include <iostream.h>

int main()

{

printf("nim   : 2093067\nnama  : jamilah salwa lala\nalamat: gg.teladan pelintung dumai");

return 0;

}

#include<stdio.h>

#include <iostream.h>

int main()

{

printf("perkenalkan\n nama   :jamilah salwa lala\n nim    :2093067\n alamat :pelintung city");

return 0;

}

Perhitungan

#include<stdio.h>

#include <iostream.h>

int main()

{

//declaring variables:

int a,b;

int jumlah;

// process:

a=5;

b=2;

jumlah= a+b;

printf("hasil jumlah a dan b adalah: ");

printf("%i",jumlah);

}

#include<stdio.h>

#include <iostream.h>

int main()

{

Perhitugan 4 operasi

//declaring variables:

float a,b;

float jumlahb;

int jumlaha;

// process:

a=5;

b=2;

jumlaha= a+b;

printf("hasil jumlah a tambah b adalah: ");

printf("%i\n",jumlaha);

jumlaha= a-b;

printf("hasil jumlah a kurang b adalah: ");

printf("%i\n",jumlaha);

jumlaha= a*b;

printf("hasil jumlah a kali   b adalah: ");

printf("%i\n",jumlaha);

jumlahb= a/b;

printf("hasil jumlah a bagi   b adalah: ");

printf("%f\n",jumlahb);

}

#include<stdio.h>

void main()

{

float k;

const float v=3.14;

float luas,jari;

printf("------- PROGRAM LUAS DAN KELILING LINGKARAN-------\n");

printf("===================================================\n");

printf("INPUTKAN NILAI LINGKARAN :  ");

scanf("%f",&k);

jari=(k/v)/2;

luas=v*(jari*jari);

printf("nilai jari_jari    : ");

printf("%f",jari);

printf("\n");

printf("nilai luas: ");

printf("%f",luas);

printf("\n================================================");

}

skripsi

uuuhf............ udah semester 8 saat nya berfikir keras untuk skripsi,,, walaupun sebenarnya judul skripsi itu udah harus di fikirkan dari semester 5... biar udah dapat bayangan plus mempersiapkan planning yg tepat...  skripsi itu sama dgn proyek milyaran rupiah berat ny wkwkwkwk lebay.... so ne step2 yg harus kalian jalani saat ingin menentukan judul skripsi kalean:

1. cari judul yang kreatif namun mudah bagi kalin ... soal nya kalo judul ny biasa2 aja n banyak yang sama jelas2 bakal di tolak namun jgn bunuh diri sendiri dgn menggambil judul  yang berat sehingga binggung sendiri,, kan g lucu tuh,,, so penempatan kata2 dan bahasa dalam kalimat judul ituh yang berperan penting
2. cari objek penelitian yang terdekat yang bisa kalen jangkau kapan saja,, apa lagi kalo cuman sebelah rumah,, tampa berpakaian formal kalian udah bisa minta data atau bertanya informasi yang masih kurang,,, apa g enak tuh.... nama ny juga tetangga pasti udah sohib banget
3. usaha kan mengerjakan semuanya sendiri,,, dengan kata lain jgn nempah sama orang,,,, malu dong,, gelar kita yang saandang dengan hasil kerja or karya orang lain walaupun kita keluarkan dana untuk itu namun pas sidang bisa aja kalean mati di tempat karna  pertanyaan dosen yang biasa nya superkiller saat sidang...  kalen pasti g bakal bisa jawab coz bukan kalen yang buat... jadi g ngerti deh,,
4. bawel aja sama dosen pembimbing kalean,,,,, tanya semua yang kalen g ngerti,,,, toh tuh lah saat nya kita bisa lebih ngerti karena di ajar dari 2 mata ke 2 mata alias eyes to eyes wkwkwkwkwk apa tak seru tuh,, kalo di kelas kan harus berbagi dgn temen2 lain,,, ne lah saat ny kalen bertanya sepuasnya dan harus dekat dgn dosen pendamping,, sesekali bawain deh goreng buat makan bareng sambil skripsi mu di periksa ..... mmmmmmm,, apa lagi y
5. namanya juga proyek,, jadi harus di kerjakan lebih dari 1 org,,,, api eeessst maksud nya.. kamuh bisa mintak bantuan temen  dalam mencari solusi dari masalah yang kamu temukan di skripsi kamu,, bukan bayar org untuk nyelesaikan nya.....
6. TERAKHIR..... believe your self,,,, patokan semuanya pada panduan skripsi kampus masing2 jgn copy paste dari pustaka 1000% coz,,,, terkadang skripsi alumni ssebelum kamu masih mempunyai kesalahan,,, toh yang meriksakan juga manusia,,,  GOOD LUCK untuk skipsi kamu dan jadilah SARJANA  yang membuka lapangan pekerjaan bukan mencari pekerjaan sip,,,,,

progam khs pascal

uses wincrt;
var
NIM      :STRING[7];
NAMA     :STRING[7];
PS       :STRING;
SMSTR    :STRING;
MK       :ARRAY[1..10] OF STRING;
NILAIA   :ARRAY[1..10] OF BYTE;
NILAIH   :ARRAY[1..10] OF STRING;
SKS      :ARRAY[1..10] OF BYTE;
BOBOT    :ARRAY[1..10] OF BYTE;
TOTALA   :REAL;
TOTALS   :REAL;
IP       :REAL;
JSYDS    :INTEGER;
I        :INTEGER;

BEGIN
    
          
            WRITE('INPUTKAN NIM: ')          ;READLN(NIM);
            WRITE('INPUTKAN NAMA: ')         ;READLN(NAMA);
            WRITE('INPUTKAN PROGRAM STUDY: ');READLN(PS);
            WRITE('INPUTKAN SEMESTER: ')     ;READLN(SMSTR);
            WRITELN('============================================================================');
            WRITE('BERAPA BANYAK DATA YANG DIBUTUHKAN: ');READLN(I);

            FOR I := 1 TO I DO
            BEGIN
            WRITE('INPUTKAN MATA KULIAH: ')  ;READLN(MK[I]);
            WRITE('INPUTKAN JUMLAH SKS: ')   ;READLN(SKS[I]);
            WRITE('INPUTKAN NILAI ANGKA: ')  ;READLN(NILAIA[I]);
            WRITELN('============================================================================');
                 IF       NILAIA[I] >= 4 THEN

                    BEGIN
                         NILAIH[I]  := 'A';
                         BOBOT[I]   := SKS[I]*NILAIA[I];
                    END

                 ELSE IF  NILAIA[I] >=3  THEN

                    BEGIN
                         NILAIH[I]  :='B';
                         BOBOT[I]   :=SKS[I]*NILAIA[I];
                    END

                 ELSE IF NILAIA[I]  >=2 THEN

                    BEGIN
                         NILAIH[I]  :='C';
                         BOBOT[I]   :=SKS[I]*NILAIA[I];
                    END

                 ELSE IF NILAIA[I]  >=1 THEN

                    BEGIN
                         NILAIH[I]  :='D';
                         BOBOT[I]   :=SKS[I]*NILAIA[I];
                    END

                 ELSE   
                    BEGIN
                         NILAIH[I]   :='E';
                         BOBOT[I]    :=SKS[I]*NILAIA[I];
                    END;
              
               TOTALA := TOTALA + BOBOT[I];
               TOTALS := TOTALS + SKS[I]  ;
              
              
            END;



            WRITELN('         SEKOLAH TINGGI MANAJEMEN INFORMATIKA & KOMPUTER                 ');
            WRITELN('                        STMIK DUMAI                                      ');
            WRITELN('_________________________________________________________________________');
            WRITELN('NIM          : ',NIM);                                                    
            WRITELN('NAMA         : ',NAMA);
            WRITELN('PROGRAM STUDI: ',PS);
            WRITELN('SEMESTER     : ',SMSTR);
            WRITELN('===========================================================================');
            WRITELN(' NO         MATA KULIAH           SKS         NILAI        BOBOT           ');
                   FOR I := 1 TO I DO
                   BEGIN
                   WRITELN(I:3,MK[I]:20,SKS[I]:13,NILAIA[I]:13,NILAIH[I]:13);
                   END;
           WRITELN('============================================================================');

           WRITELN('TOTAL SKS   ANDA: ',TOTALS:12:0);
           WRITELN('TOTAL NILAI ANDA: ',TOTALA:12:0);
           IP:= TOTALA/TOTALS;
           WRITELN('IP ANDA ADALAH: ',IP:12:0);

           IF       IP <= 4 THEN

                    BEGIN
                         JSYDS  := 12*2;
                    END

           ELSE IF  IP <=3  THEN

                    BEGIN
                         JSYDS  :=10+11;
                       
                    END

           ELSE IF  IP <=2 THEN

                    BEGIN
                       JSYDS  :=9*2;
                        
                    END

           ELSE   

                    BEGIN
                         JSYDS  :=8*2;
                        
                    END;

               

         WRITELN('JUMLAH SKS MAK SMSTER Y.A.D : ',JSYDS);

END.










                                                                                                         

moga bermanfaat.........

PROGRAM PASCAL GAJI KARYAWAN

{JAMIAH}
USES WINCRT;
VAR
NAMAPEGAWAI :ARRAY[1..100] OF STRING[25];
GOLONGAN    :ARRAY[1..100] OF STRING[1];
GAJIPOKOK   :ARRAY[1..100] OF REAL;
TUNJAGAN    :ARRAY[1..100] OF REAL;
PAJAK       :ARRAY[1..100] OF REAL;
GAJIBERSIH  :ARRAY[1..100] OF REAL;
BULAN       :STRING;
I,JD           :INTEGER;

BEGIN
WRITE('BULAN :  ');READLN(BULAN);
WRITELN('BANYAK DATA YANG DIBUTUHKAN:  ');READLN(JD);
FOR I := 1 TO JD DO
       BEGIN
            WRITELN('DATA KE:',I);
            WRITELN('INPUTKAN NAMA KARYAWAN:  ');READLN(NAMAPEGAWAI[I]);
            WRITELN('INPUTKAN GOLONGAN     :'  );READLN(GOLONGAN[I]);
            WRITELN('================================================');
       if GOLONGAN[I]= 'A' then
          begin
            GAJIPOKOK[I] := 1000000;
            PAJAK[I]     :=0.1 * GAJIPOKOK[I];
            GAJIBERSIH[I]:=(GAJIPOKOK[I]+TUNJAGAN[I])-PAJAK[I];
          end
        else if GOLONGAN[I]= 'B' then
          begin
           GAJIPOKOK[I] := 1500000;
           PAJAK[I]     :=0.15 * GAJIPOKOK[I];
           GAJIBERSIH[I]:=(GAJIPOKOK[I]+TUNJAGAN[I])-PAJAK[I];
        end
        else
          begin
          GAJIPOKOK[I]  := 2000000;
          PAJAK[I]      :=0.2 * GAJIPOKOK[I];
          GAJIBERSIH[I] :=(GAJIPOKOK[I]+TUNJAGAN[I])-PAJAK[I];
          end;
         END;

         WRITELN('                LAPORAN DATA GAJI MAHASISWA                            ');
         WRITELN('================================================================================');
         WRITELN('NO    NAMA      GOLONGAN    GAJI POKOK   TUNJAGAN   PAJAK   GAJI BERSIH');
         WRITELN('=======================================================================');
                 FOR I := 1 TO I DO
                 BEGIN
                 WRITELN(I:3,NAMAPEGAWAI[I]:10,GOLONGAN[I]:2,GAJIPOKOK[I]:10,TUNJAGAN[I]:12:0,PAJAK[I]:12:0,GAJIBERSIH[I]:12:0)
                 END;
       WRITELN('=========================================================================');

  END.

PROGRAM PASCAL EOQ

hai,,,udah lama g posting listing program,,,,, sorry coz blog nya g bisa dibuka,,,, kini qu kembali lagi.... moga bermanfaat,,,,,
:) :) :)


uses wincrt;
var
A,B,C,D,E,F,Q,REC,PES,PEST,HARI,G,TCC,TOC,SAF,TIC:REAL;
BEGIN
WRITE('PENJUALAN PERTAHUN  : ');READLN(A);
WRITE('BIAYA PEMESANAN  : ');READLN(B);
WRITE('BIAYA PENYIMPANAN  : ');READLN(C);
WRITE('HARGA BELI  : ');READLN(D);
WRITE('PERSEDIAAN : ');READLN(E);
WRITE('WAKTU KIRIM  : ');READLN(F);

Q:=sqrt((2*B*A)/(C*D));
REC:=A/52;
PES:=(F*REC)+E;
PEST:=365/(A/Q);
HARI:=A/365;
G:=Q/2;
TCC:=C*D*G;
TOC:=B*(A/Q);
SAF:=C*D*E;
TIC:=TCC+TOC+SAF;

WRITELN('==================================');
WRITELN('EOQ= ',Q:12:2);
WRITELN('RECORDER POINT= ',REC:12:2);
WRITELN('PESAN ULANG= ',PES:12:2);
WRITELN('PESANAN DLM 1 TAHUN= ',PEST:12:2);
WRITELN('PEMAKAIAN PERHARI= ',HARI:12:2);
WRITELN('TCC= ',TCC:12:2);
WRITELN('TOC= ',TOC:12:2);
WRITELN('SAFETY STOCK= ',SAF:12:2);
WRITELN('TIC= ',TIC:12:2);
END.

NESTED FOR

#include<iostream.h>

main()

{

int a,b;

clrscr();

cout<<" program nested for \n ";

for(a=1; a<=5; a+=5)

{

printf("\n");

for(b=a; b<=1; b+=1)

cout<<a<<" ";

}



for(a=1; a<=4; a+=4)

{

printf("\n");

for(b=a; b<=2; b+=1)

cout<<a<<" ";

}

for(a=1; a<=3; a+=3)

{

printf("\n");

for(b=a; b<=3; b+=1)

cout<<a<<" ";

}

for(a=1; a<=4; a+=4)

{

printf("\n");

for(b=a; b<=4; b+=1)

cout<<a<<" ";

}

for(a=1; a<=5; a+=5)

{

printf("\n");

for(b=a; b<=5; b+=1)

cout<<a<<" ";

}

getch();

}

PROGRAM C++ switch case

//jamilah salwa lala//
#include<conio.h>
#include<iostream.h>
#include<stdio.h>
main()
{
char kode1;
char kode2;


clrscr();
cout<<" INPUTKAN KODE KELAS ANDA [E/B/X]: ";
cin>>kode1;
switch(kode1)
{
case 'E':
cout<<" EKONOMI";

cout<<" \n INPUTKAN KODE TUJUAN ANDA [1/2]: ";
cin>>kode2;
switch(kode2)
{
case '1':
cout<<" \nBANGKOK";
cout<<"\nHARGA TIKET Rp$35";
break;
case '2':
cout<<" \nHONGKONG";
cout<<"\nHARGA TIKET Rp$45";
break;}getch();
break;

case 'B':
cout<<" EKONOMI";
cout<<" \n INPUTKAN KODE TUJUAN ANDA [1/2]: ";
cin>>kode2;
switch(kode2)
{
case '1':
cout<<" \nBANGKOK";
cout<<"\nHARGA TIKET Rp$45";
break;
case '2':
cout<<" \nHONGKONG";
cout<<"\nHARGA TIKET Rp$55";
break;}getch();
break;

case 'X':
cout<<" EKONOMI";
cout<<" \n INPUTKAN KODE TUJUAN ANDA [1/2]: ";
cin>>kode2;
switch(kode2)
{
case '1':
cout<<" \nBANGKOK";
cout<<"\nHARGA TIKET Rp$55";
break;
case '2':
cout<<"\n HONGKONG";
cout<<"\nHARGA TIKET Rp$65";
break;}getch();
break;
} getch();
}

contoh program condisi dalam turbo c++

#include<stdio.h>
#include<conio.h>
#include<iostream.h>
main()
{
double tot_beli, potongan=0, jum_bayar=0;
clrscr();
printf("=================================\n");
cout<<"TOTAL PEMBELIAN Rp. ";
cin>>tot_beli;
if (tot_beli >= 50000)
potongan=0.2*tot_beli;
else
potongan=0.05*tot_beli;

cout<<"BESAR POTONGAN Rp. "<<potongan<<endl;
jum_bayar=tot_beli-potongan;
cout<<"JUMLAH YANG HARUS DIBAYAR Rp. "<<jum_bayar;
printf("\n=================================");
getch();
}

array entri data program pascal

USES WINCRT;

VAR
NAME :ARRAY[1..100] OF STRING[25];
AGE :ARRAY[1..100] OF STRING[25];
JOB :ARRAY[1..100] OF STRING[25];
ADDRES:ARRAY[1..100] OF STRING[25];
I,JD :INTEGER;


BEGIN
WRITE('HOW MUST DATA YOU WANT : ');READLN(JD);
FOR I := 1 TO JD DO
BEGIN
WRITE('NAME : ');READLN(NAME[I]);
WRITE('AGE : ');READLN(AGE[I]);
WRITE('JOB : ');READLN(JOB[I]);
WRITE('ADDRES : ');READLN(ADDRES[I]);
END;

WRITELN('DATA MEMBER TEATER CLUB');
WRITELN('=============================================');
WRITELN('NO NAME AGE JOB ADDRES ');
FOR I:= 1 TO JD DO
BEGIN
WRITELN(I:2,NAME[I]:7,AGE[I]:10,JOB[I]:7,ADDRES[I]:15 );
END;
WRITELN('=============================================');


END.

PROGRAM DASAR PASCAL

uses wincrt;
var
n:byte;
begin
clrscr;
write('what do you fell....?: ');readln(n);
if n=1 then write(' [.^_^.] ')else
if n=0 then write(' [^@^] ');
readln;
end.

PROGRAM PASCAL ARRAY+CONDISI

uses wincrt;
var
 nm         : array[1..100] of string[25];
 mk         : array[1..100] of integer;
 jjk        : array[1..100] of integer;
 jlbr       : array[1..100] of integer;
 up         : array[1..100] of real;
 ul         : array[1..100] of real;
 upah       : array[1..100] of real;
 i          : longint;

  begin
    i:=1;
    while(i<=5)do
    begin
      write('Nama :');readln(nm[i]);
      write('masa kerja :');readln(mk[i]);
      write('Jumlah Jam Kerja :');readln(jjk[i]);
      if mk[i]> 1 then
        begin
        up[i]:=4000;
        ul[i]:=6000;
        end
      else
        begin
        up[i]:=3000;
        ul[i]:=5000;
        end;

      if jjk[i]<= 48 then
       begin
         up[i]:=jjk[i] * up[i];
       end
      else
       begin
         jlbr[i]:=jjk[i]-48;
         up[i] := (48 * up[i]) + (jlbr[i] * ul[i]);
       end;

       writeln('-------------------------------');
       writeln('No    Nama      JJK    Upah    ');
       writeln('-------------------------------');
       writeln(i:3,nm[i]:8,jjk[i]:8,up[i]:8:0);
       writeln('-------------------------------');
     i:=i + 1;
      end;
  

end.

contoh program array dalam pascal

USES WINCRT;
VAR
  I         :LONGINT;
  NM        :ARRAY[1..100]OF STRING[25];
  HK,SUBT   :ARRAY[1..100]OF REAL;
  LM        :ARRAY[1..100]OF INTEGER;
  TOT       :REAL;
                                                           
BEGIN
  I:=1;
  WHILE(I<=3) DO
      BEGIN
        WRITELN('DATA KE :',I);
        WRITELN('===========');
        WRITE('INPUTKAN NAMA TAMU :');READLN(NM[I]);
        WRITE('INPUTKAN LAMA MENGINAP :');READLN(LM[I]);
        WRITE('INPUTKAN HARGA KAMAR :');READLN(HK[I]);
        SUBT[I] :=LM[I] * HK[I];
        WRITELN;
        TOT :=TOT + SUBT[I];
        I:=I +1;
      END;
  WRITELN('--------------------------------------------------');
  WRITELN('NO            NAMA   LAMA        HARGA   SUB      ');
  WRITELN('              TAMU   MENGINAP    KAMAR   TOTAL    ');
  WRITELN('--------------------------------------------------');
      FOR I:=1 TO 3 DO
        BEGIN
          WRITELN(I:3,NM[I]:15,LM[I]:10,HK[I]:10:0,SUBT[I]:8:0);
        END;
  WRITELN('--------------------------------------------------');
  WRITELN('TOTAL :',TOT:12:0);

END.   

tipe2 data pada delphi

Mengenal Berbagai Macam Tipe Data Pada Borland Delphi

Apa saja tipe-tipe dasar dari data yang bisa diolah dalam pemrograman Delphi? Kita perlu tahu hal tersebut sebab pengolahan data untuk tiap tipe yang berbeda akan berbeda pula. Misalnya untuk angka 1024, angka 1024 yang tertera pada nomor undian tidak akan digunakan untuk operasi matematika, hal tersebut membuat tipe data angka 1024 pada nomor undian berbeda dengan tipe data pada angka 1024 pada perhitungan jumlah barang. Pada perhitungan jumlah barang angka 1024 akan digunakan dengan operasi matematika, untuk menghitung laba misalnya. Untuk lebih jelasnya akan dibahas beberapa tipe data yang sering digunakan dalam pengolahan data dan konversi type data satu ke tipe data yang lain:

I. JENIS TIPE DATA

1. Tipe data Integer / Ordinal
Tipe data ini adalah tipe data yang berupa bilangan bulat yang akan digunakan untuk operasi matematika. Ada beberapa tipe data yang termasuk integer, yaitu antara lain:

a. ShortInt : memiliki nilai range -128 sampai 127 (signed 8-bit)
b. SmallInt : memiliki nilai range antara - 32768 sampai dengan 32767 (signed 16-bit)
c. LongInt : memiliki nilai range -2147483648 sampai 2147483647 (signed 32-bit )
d. Int64 : memiliki range -2⁶³+1 sampai 2⁶³-1 (signed 64-bit)
e. Byte : memiliki nilai range 0 sampai 255 (unsigned 8-bit)
f. Word : memiliki nilai range 0 sampai 65535 (unsigned 16-bit)
g. LongWord : memiliki nilain range 0 sampai 4294967295(unsigned 32-bit )

Pada pemakaian integer type di implemetasi 16 bit maka:

a. Integer : memiliki range antara - 32768 sampai dengan 32767 (signed 16-bit)
b. Cardinal : memiliki range 0 sampai 65535 (unsigned 16-bit)

Pada pemakaian integer type di implemetasi 32 bit maka:

a. Integer : memiliki range antara -2147483648 sampai 2147483647 (signed 32-bit)
b. Cardinal : memiliki range 0 sampai 4294967295 (unsigned 32-bit)

Penulisan pada deklarasi variable:

[variable] : [type data integer];

2. Tipe data Boolean
Tipe data ini hanya terdiri dari nilai logika True dan False. Ada beberapa jenis dari tipe Boolean ini, yaitu:

a. Boolean : berukuran 1 byte (false 0, true 1)
b. ByteBool : berukuran Byte (false 0, true 255 - 8 bit)
c. Bool : berukuran Double (false 0, true -1)
d. WordBool : berukuran Word (false 0, true 65535 - 16 bit)
e. LongBool : berukuran Double (false 0, true -1)

Penulisan pada deklarasi variable:

[variable] : [type data boolean];

3. Tipe data Floating Point /Real
Tibe data ini meliputi bentuk bilangan desimal. Beberapa bentuk dari tipe data ini adalah:

a. Real : memiliki range 2.9 x 10^-39 sampai 1.7 x 10³⁸
b. Single : memiliki range 1.5 x 10^-45 sampai 3.4 x 10³⁸
c. Double : memiliki range 5.0 x 10-324 sampai 1.7 x 104392
d. Extended : memiliki range 3.6 x 10-4951 sampai 1.1 x 104392
e. Currency : memiliki range -922337203685477.5808 sampai 922337203685477.5808
f. Comp : memiliki range -2⁶³+1 sampai 2⁶³-1

Untuk currency, tipe data ini memiliki kepresisian tinggi yaitu 4 angka dibelakang koma (pembulatan bilangan real menjadi bilangan desimal dengan 4 angka dibelakang koma). Biasanya digunakan untuk satuan uang. Dan untuk comp, tipe data ini akan menyimpan nilai integer (bulat) dari nilai decimal yang masuk (melakukan pembulatan).

Penulisan pada deklarasi variable:

[variable] : [type data floating point];

4. Tipe Data Enumerated
Tipe data ini adalah berupa nilai urutan dari data yang telah dibuat.

Penulisan pada deklarasi variable:

[variable] : ( [data0],[data1],[data2] );

Masing-masing data akan diberikan nilai integer secara urut. Urutan dimulai dengan nilai urut 0.

Jika ingin melihat nilai integer dari setiap data maka dengan perintah:

ord( [data1] )

5. Tipe data Sub Range
Tipe data ini memungkinkan kita membuat range sendiri. Dengan perintah:

[variable] : [constant start]..[constant end];

contoh:

a : 5..10;

Jika kita mendeklarasikan 5 adalah a maka proses compile akan terus berjalan jika kita mendeklarasikan 15 adalah a maka proses compile tidak akan berjalan atau berhenti, sehingga terdapat error pada proses compile sehingga tidak dapat di run.

6. Tipe data String dan Character
Tipe data String adalah tipe data yang merupakan rangkaian dari huruf, angka atau symbol yang tidak mengandung harga (nilai).

Beberapa tipe data string adalah sebagai berikut:
a. ShortString : Dapat menampung 255 karakter (ANSIChar)
b. AnsiString : Dapat menampung ~2³¹ karakter (ANSIChar)
c. WideString : Dapat menampung ~2³⁰ karakter (WideChar)
d. String : Dapat menampung 255 karakter (ANSIChar)

Tipe data Character adalah tipe data yang berkaitan dengan karakter ( huruf, angka, symbol). Ada beberapa tipe data dari Character yaitu:

a. ANSIChar : Satu karakter ANSI
b. WideChar : Satu karakter Unicode
c. Char : Sama dengan ANSIChar

Jika Anda ingin memunculkan karakter dari nomor urut, Anda dapat menggunakan perintah chr([NoUrut]). Dan untuk mengetaui no urut dari sebuah karakter, Anda dapat menuliskan perintah ord([karakter]).

II. KONVERSI TIPE DATA

Untuk konversi dari type data satu ke yang lain anda dapat menggunakan perintah seperti yang berikut ini:

[tipe data yang akan diubah] to [tipe data yang diinginkan] ( [data yang typenya akan diubah] )

Misalnya:

- inttostr : mengubah type data integer ke string
- strtobool : mengubah type data string ke boolean

Perintah lain untuk konversi:

- int([data]) : mengubah type data floating point ke integer
- round([data]) : mengubah type data floating point ke integer