Pascal/Turbo Pascal - distancias

   
Vista:

distancias

Publicado por marios (58 intervenciones) el 01/04/2014 15:14:22
buenos dias ramon, me gustaria tu colaboracion o si puedes ayudarme con el codigo de este programa que me lleva loco "ª$·&%·/""·$/%$(/&)
4 3 3 3 3 3 3 3
4 3 2 2 2 2 2 3
4 3 2 1 1 1 2 3
4 3 2 1 P 1 2 3
4 3 2 1 1 1 2 3
4 3 2 2 2 2 2 3
4 3 3 3 3 3 3 K
4 4 4 4 4 4 4 4
5 5 5 5 5 5 5 5
6 6 6 6 6 6 6 6

Si P es una coordenada(x,y), como puedo en espiral saber la distancia que separa K de ese punto, mil gracias por la ayuda que puedan darme
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

distancias

Publicado por ramon (2072 intervenciones) el 02/04/2014 12:30:58
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
{Supongo que k son cordenadas como p}
  program distancia;
  uses
     crt;
  type
     posicion = record
            xp : integer;
            yp : integer;
          end;
 
  var
    k, p : posicion;
 
  procedure entrada(var t, g : posicion);
  begin
     write('  Entre Posicion cordenada X de P : ');
     readln(t.xp);
     write('  Entre Posicion cordenada Y de P : ');
     readln(t.yp);
     write('  Entre Posicion cordenada X de K : ');
     readln(g.xp);
     write('  Entre Posicion cordenada Y de K : ');
     readln(g.yp);
  end;
 
   function distancia_p_k(c, d : posicion) : integer;
   var
     x, y : integer;
     res : real;
   begin
       x := sqr(d.xp - c.xp);
       y := sqr(d.yp - c.yp);
       res := sqrt(x + y);
       distancia_p_k := round(res);
   end;
 
  begin
      clrscr;
      entrada(p,k);
      writeln('  La Distancia Es De : ',distancia_p_k(p,k));
      writeln;
      writeln('  Pulse Una Tecla ');
      readkey;
  end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar