Menghitung Jarak Di Program Pascal

Assalamu’alaikum Wr.Wb.

Membuat Program Pascal Menghitung Jarak

Dalam pembuatan program di turbo pascal kita Cuma memasukan code program Dengan cara mengetik code program nya ,dalam pembuatan code nya yang harus di perharikan adalah tanda (;),(,),(.),(:),(‘).  kalaw ada kesalahan di dalam program tersebut sob hanya melihat tanda nya aj apakah ada tanda yang tertinggal. Bisa juga dilihat pada gambar disamping ini cara pembuatannya.

Code programnya

Program Menghitung_Jarak;

uses crt;

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('Jadi Jarak Titik A ke B Adalah: ',d:4:2);

 readln;

end.

 A.Setelah pembuatan code program selesai klik  compile,seperti

gambar dibawah ini.

  B. Setelah di compile akan muncul gambar seperti gambar 

dibawah ini ,yang menadakan program sukses.

  C.Kemudian klik Run,untuk menjalan kan aplikasinya.

seperti gambar dibawah ini.

 D.Setelah program dijalan kan input angka 

seperti gambar dibawah ini.

                           

          

Posted by Unknown

Tweet