Contoh Program Pascal

ini adalah contoh listing program pada Pascal. Semoga bisa bermanfaat.. :)


{PROGRAM LATIHAN LAPORAN}
{Created By Yongki}
uses crt;
var
   NAMA   : Array[1..20] of String[20];
   NPM    : Array[1..20] of String[8];
   FAK    : Array[1..20] of String[2];
   ANGK   : Array[1..20] of String[2];
   BPP    : Array[1..20] of LONGINT;
   I,N    : Byte;
   Total  : LONGINT;

BEGIN
    ClrScr;
    For I := 1 to 3 do
        Begin
        WRITELN('Masukkan data Yang : ',I);
        WRITE('Nama             : ');readln(nama[I]);
        WRITE('NPM              : ');readln(npm[I]);
        FAK[I]  := COPY(NPM[I],1,1);
        ANGK[I] := COPY(NPM[I],4,2);
        IF ANGK[I]='11' THEN BPP[I] := 2000000
           ELSE IF ANGK[I] = '10' THEN BPP[I] := 1750000
                ELSE IF ANGK[I] = '09' THEN BPP[I] := 1600000
                     ELSE BPP[I] := 1500000;
        TOTAL := TOTAL + BPP[I];
        end;
       
    CLRSCR;
        GotoXY(10,2); WRITE('Daftar Mahasiswa');
        GotoXY(10,3); WRITE('--------------------------------------------------------');
        GotoXY(10,4); WRITE('No    NPM','NAMA':8,'FAK':10,'ANGK':11,'BPP':12);
        GotoXY(10,5); WRITE('--------------------------------------------------------');
   
    For N := 1 to I  do
        Begin
        GotoXY(10,5+N); WRITEln(N:1,'   ', NPM[N]:5, NAMA[N]:8, FAK[N]:9, ANGK[N]:11, BPP[N]:12);
        end;
        GotoXY(10,11); WRITEln('--------------------------------------------------------');
        WRITE('TOTAL BPP = ', TOTAL);
        delay(10000);
END.

Read More

Contoh Program Python

Ini adalah contoh program untuk menghitung luas dalam python. semoga bisa membantu ya.. ^^

loop = 1
pil = 0
def p(a = None):
                pj=input("Masukkan Panjang : ")
                lb=input("Masukkan Lebar   : ")
                L=pj*lb
                print "Luasnya adalah   :",L
                return
def j(a = None):
                r=input("Masukkan Jari-Jari : ")
                pi = 3.14
                L=pi*r*r
                print "Luasnya adalah     :",L
                return
def s(a = None):
                s=input("Masukkan Sisi : ")
                L=s*s
                print "Luasnya adalah   :",L
                return
while loop == 1:
    print
    print "       Program Menghitung Luas         "
    print
    print "Menu Pilihan"
    print
    print "1. Persegi Panjang"
    print "2. Lingkaran"
    print "3. BujurSangkar"
    print "4. Keluar"
    pil = input("Masukkan Pilihan (1,2,3,4) : ")
    if pil==1:
        p()
    elif pil==2:
        j()
    elif pil==3:
        s()
    elif pil==4:
        quit([])
    else :
        quit([])

Read More

Download Delphi 7 portabel

Delphi 7 Portabel
 

Delphi adalah sebuah IDE Compiler untuk bahasa pemrograman Pascal dan lingkungan pengembangan perangkat lunak. Produk ini dikembangkan oleh CodeGear sebagai divisi pengembangan perangkat lunak milik Embarcadero, divisi tersebut sebelumnya adalah milik Borland. Bahasa Delphi, atau dikenal pula sebagai object pascal (pascal dengan ekstensi pemrograman berorientasi objek (PBO/OOP)) pada mulanya ditujukan hanya untuk Microsoft Windows, namun saat ini telah mampu digunakan untuk mengembangkan aplikasi untuk Linux dan Microsoft .NET framework (lihat di bawah). Dengan menggunakan Free Pascal yang merupakan proyek opensource, bahasa ini dapat pula digunakan untuk membuat program yang berjalan di sistem operasi Mac OS X dan Windows CE.

untuk yang ingin mendownload delphi 7 portabel silahkan klik disini.

sumber referensi : 

http://klopototolia.blogspot.com/2011/03/download-delphi-7-portable-free.html

http://id.wikipedia.org/wiki/Borland_Delphi

Read More