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.
Rabu, 16 Juni 2010
Program Menghitung Jarak
Langganan:
Posting Komentar (Atom)
search
Entri Populer
-
Program Urut_Bilangan; Uses Wincrt; Var A,B,C:integer; Begin Writeln('Program Mengurut Bilangan'); Writeln('====================...
Labels
- Algoritma (7)
- Mysql Data Base (1)
- Sistem Operasi (1)
- Tips dan Trik Computer (7)
- Tutorial (3)
About Me
- jodhypati
- Ilmu Komputer adalah ilmu yang sedang saya cari saat ini... jadi minat saya adalah mencari ilmu komputer setinggi mungkin
Tidak ada komentar:
Posting Komentar