Tulisan ini saya buat dengan tujuan untuk berbagi ilmu mengenai Delphi , dengan menggunakan console aplication. Delphi merupakan suatu software berbasis programing atau dengan kata lain untuk pembuatan aplikasi. Console Aplication sendiri merupakan pembuatan program yang sederhana menggunakan syntax yang sederhana pula. Berikut ini contoh dari console application yang dibuat oleh penulis.
Program sederhana yang dibuat seperti gambar diatas itu merupakan program statistika deskriptif sederhana, Berhububg karena penulis merupakan salah satu mahasiswa statistika di salah satu PTS terbaik di Indonesia. Untuk membuat program sederhana seperti yang telah ditampilkan, diperlukan sebuah aplikasi Delphi7. Untuk mendapatkan aplikasinya, silahkan download di link dibawah ini.
Download Delphi 7 (pass Rar : www.kuyhaa-android19.com)
Setelah Delphi 7 terinstal, buka aplikasi Delphi7 tersebut kemudian klik new - others - console aplication. Untuk lebih jelasnya perhatikan gambar dibawah ini.
Setelah itu masukkan syntax di bawah ini :
program statistika_deskriptif;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
menu,i,n,data,pilihan : integer ;
Variansi,Sd,mean,jumlah,a,b : real;
begin
writeln (' INI ADALAH APLIKASI MENGHITUNG RUMUS STATISTIKA DESKRIPTIF' );
writeln; writeln;
writeln (' ====================================================== ');
writeln (' " "---------------------Menu-----------------------" " ');
writeln (' | | 1. Menghitung Mean | | ');
writeln (' | | 2. Menghitung Variansi dan Standar Deviansi | | ');
writeln (' " "------------------------------------------------" " ');
writeln (' ====================================================== ');
repeat
writeln; writeln;
write ('Masukkan Menu Yang Anda Inginkan = ');
readln (menu);
case menu of
1 :
begin
writeln; writeln; writeln;
writeln ('Anda Memilih Menu Pertama');
writeln; writeln;
writeln ('Menghitung Mean ');
writeln ('================');
writeln; writeln;
write ('masukkan banyaknya data = ');
readln (n);
jumlah:=0;
for i:=1 to n do
begin
write('Masukkan data ke- ',i,'= ');
readln(data);
jumlah:=jumlah+data;
end;
begin
mean:= jumlah/n ;
writeln; writeln;
writeln ('Jumlah Data Tersebut Adalah = ', jumlah:2:0);
writeln ('Rata-Rata dari Data Tersebut adalah = ', mean:2:2);
end;
end;
2:
begin
writeln; writeln; writeln;
writeln ('Anda Memilih Menu Kedua');
writeln; writeln;
writeln ('2. Menghitung Variansi dan Standar Deviansi');
writeln ('===========================================');
writeln; writeln;
write ('masukkan banyaknya data = ');
readln (n);
b:=0;
jumlah :=0 ;
for i:=1 to n do
begin
write('Masukkan data ke- ',i,'= ');
readln(data);
jumlah:=jumlah+data;
a:=sqr(data);
b:=b+a
end;
begin
mean:= jumlah/n;
variansi:=(b-(n*sqr(mean)))/(n-1);
Sd := sqrt(variansi);
writeln; writeln;
writeln ('Mean Dari Data Tersebut Adalah = ' , mean:2:2);
writeln ('Variansi Dari Data Tersebut Adalah = ' , variansi:2:2);
writeln ('Standar Deviasi Dari Data Tersebut Adalah = ' , Sd:2:2);
end;
end;
else
Writeln; Writeln;
Writeln ('MAAF, KEYWORD YANG ANDA MASUKKAN TIDAK TERDAPAT DALAM MENU');
end;
writeln; writeln ;
writeln ('APAKAH ANDA INGIN MENGULANG PROGRAM INI LAGI?') ;
write ('1 atau 2 = '); readln(Pilihan);
until (Pilihan>=2) or (Pilihan<=0);
writeln;writeln;
if Pilihan = 2 then
writeln ('TERIMA KASIH TELAH MENGGUNAKAN PROGRAM INI')
else
if Pilihan > 2 then
writeln ('MAAF KEYWORD ANDA SALAH');
writeln; writeln ;
Writeln ('======================================================');
writeln ('TERIMAH KASIH DAN SAMPAI KETEMU DI PROGRAM SELANJUTNYA');
writeln ('======================================================');
readln ;
{ TODO -oUser -cConsole Main : Insert code here }
end.
Untuk menjalankan program , tekan F9..
Sekian untuk posting pertama ini. semoga bermanfaat...
thanks to www.kuyhaa-android19.com
0 komentar:
Posting Komentar