Question

Elaborat un program care determină indicele bazinului cel mai apropiat de liceu dat. PROGRAMUL trebuie sa conțină un subprogramul cu numele BZ care, primind de la programul apelant în calitate de parametri numerele reale x{i} si y{i} - coordonatele bazinului i, returnează un nr real- distanta de la liceu pana la bazinul i. In Pascal! Mersi

Answer 1

Răspuns:

#include <iostream>

#include <fstream>

#include <cmath>

using namespace std;

ifstream f("bazin.in");

ofstream g("bazin.out");

float x,y, d, dmin;

int n, i, ind;

float BZ(float x, float y)

{

   return sqrt(x*x+y*y);

}

int main()

{

   f >> n;

   f >> x >> y;

   dmin=BZ(x,y); ind=1;

   for (i=2; i<=n; i++)

   {

       f >> x >> y;

       d=BZ(x,y);

       if (d<dmin)

       {

           dmin=d; ind=i;

       }

   }

   g << ind;

}

Explicație:

Sper codul să fie explicit...  Succese!