Soal Latihan SAP no.1

Menghitung jarak 2 titik dan titik tengahnya

•  Analisis:

·        Input :p,q,r,s (semua integer)

·        Proses : X <-(p+q)/2

   Y <-(r+s)/2

   AB<- sqrt((q-p)^2+(s-r)^2)

·        Output : "Jarak antara 2 buah titik ="+AB

    "Titik tengahnya = "+X+","+Y

• Deklarasi:

·        p,q,r,s : Integer (input)

·        X,Y :Integer (inisialisasi)

·        AB : float (inisialisasi)

•  Deskripsi:

·        Read (p,q,r,s)

·        X <-(p+q)/

·        Y <-(r+s)/2

·         AB<- sqrt((q-p)^2+(s-r)^2)

·        Write : "Jarak antara 2 buah titik ="+AB

  "Titik tengahnya = "+X+","+Y

                   FLOWCHART 

 

BAHASA C++

#include <iostream>

#include <string>

#include <math.h>

using namespace std;

int main()

{

   string raptor_prompt_variable_zzyz;

  int r;

   int p;

   int y;

   float AB;

   int X;

   int Y;

   int q;

   int s;

  

   raptor_prompt_variable_zzyz ="Masukan nilai x1";

   cout << raptor_prompt_variable_zzyz << endl;

   cin >> p;

   raptor_prompt_variable_zzyz ="Masukan nilai x2";

   cout << raptor_prompt_variable_zzyz << endl;

   cin >> q;

   raptor_prompt_variable_zzyz ="Masukan nilai y1";

   cout << raptor_prompt_variable_zzyz << endl;

   cin >> r;

   raptor_prompt_variable_zzyz ="Masukan nilai y2";

   cout << raptor_prompt_variable_zzyz << endl;

   cin >> s;

   X =(p+q)/2;

   Y =(r+s)/2;

   AB =sqrt((q-p)^2+(s-r)^2);

   cout << "Jarak antara 2 buah titik ="<<AB << endl;  

   cout << "Titik tengahnya = "<<X<<","<<Y << endl;

   return 0;

}

RUN