Tugas Pemrograman Komputer 1

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang menghitung koordinat titik tengah dua titik.

Program Menghitung_Koordinat_Titik_Tengah_Dua_Titik;

Uses Wincrt;

Var

x1,y1,x2,y2,x,y:real;

Begin

Write ('Masukkan nilai x1: ');readln (x1);

Write ('Masukkan nilai y1: ');readln (y1);

Write ('Masukkan nilai x2: ');readln (x2);

Write ('Masukkan nilai y2: ');readln (y2);

x:=(1/2)*(x1+x2);

y:=(1/2)*(y1+y2);

Writeln ('Koordinat titik tengah=(x,y)= ',('('),(x):5:2,(','),(y):5:2,(')'));

End.