Beranda > Komputer > Program Menghitung Jarak – Pascal

Program Menghitung Jarak – Pascal


Menggunakan bahasa pascal kamu bisa membuat sebuah program rumus sederhana maupun tingkat tinggi. Kalau kamu kreatif dan kamu memiliki logika yang baik, kamu akan bisa mengembangkan sebuah bahasa pemrograman yang dinamakan PASCAL.

Program untuk menghitung Jarak :

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.

Copy code diatas, kemudian paste di aplikasi TPW punya kamu.

Maka tampilannya akan seperti ini :

Program Menghitung Jarak Titik A dan B

Jarak

  1. Belum ada komentar.
  1. No trackbacks yet.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: