25 April 2016

Membuat Program Menghitung Jarak Menggunakan Pascal

.

Ups, Kamu Sedang Dialihkan.. Tunggu Sebentar Ya


Pascal adalah bahasa pemrograman yang pertama kali di buat oleh ilmuan yang bernama Niklaus Wirth, di adalah seorang anggota International Federation of Information Processing (IFIP) pada tahun 1971. Dikesempatan ini saya akan mencoba membahas tentang pemrograman bahasa pascal, yaitu cara membuat program menghitung jarak. Pada tutorial kali ini saya menggunakan program pascal dari dev-pascal.
Cukup mudah apalagi kalau sobat sendiri sudah mengerti syntax-syntax yang ada pada pascal, kalau belum mengerti tenang saja karena disini saya akan berikan langkah-langkahnya.

Langkah - Langkah / Tutorial :
  • Pertama silahkan buka program pascalnya dan jangan lupa buka proyek baru / new project
  • Masukan kode berikut ini
Program Menghitung_Jarak;
Uses WinCrt;
var
x1,x2,y1,y2:integer;
d:real;
begin
Writeln('Program Menghitung Jarak Titik A dan B');
Writeln('======================================');
Writeln;
Write('Masukan Nilai A (X1): ');readln(x1);
Write('Masukan Nilai B (X2): ');readln(x2);
Write('Masukan Nilai A (Y1): ');readln(y1);
Write('Masukan Nilai B (Y2): ');readln(y2);
d:=sqrt(sqr(x2-x1)+sqr(y2-y1));
Writeln;
Writeln('Jadi Jarak Titik A ke B Adalah: ',d:4:2);
end.
  • Kemudian silahkan simpan
  • Setelah itu silahkan klik menu Execute lalu klik Compile. Atau untuk mempermudah silahkan tekan CTRL+F9 pada keyboard sobat
  • Tunggu sampai selesai proses compilenya.
  • Setelah itu silahkan klik menu Run untuk melihat/menjalankan program. (Menu Run dibawah menu Compile)
  • Selesai
Bagaimana? mudah bukan? itulah cara membuat program menghitung jarak di pascal. semoga bermanfaat

Buka Komentar


EmoticonEmoticon