Ayuda programa de ecuacion general de la recta
Publicado por Jean Carlos (13 intervenciones) el 09/12/2016 01:14:38
Saludos para todo me mandaron a hacer un programa donde dados dos puntos escriba la ecuacion de la forma Ax+By+C=0, indique punto medio, longitud del segmento y el angulo que forma el segmento con el eje X y esto llevo:
El problema es que al ejecutar lo único que hace en pantalla es indicar los números de las coordenadas y no hace mas instrucciones y no veo el problema, si pueden ayudarme lo agradecería demasiado.
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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
program project1;
Var x1,y1,x2,y2,x3,y3,a,b,c,m, angulo: extended;
s1,s2,s3,s4:string;
Error:Integer;begin
Writeln('PROGRAMA PARA EL CALCULO DE ECUACION GENERAL DE UNA RECTA, PUNTO MEDIO Y ANGULO');
Writeln('=========================================================================');
Writeln('JEAN CARLOS CARRERO.SECCION 01.22027749');
Writeln('-------------------------------------------------------------------------');
Writeln;
Writeln('Ingrese las coordenadas de los puntos');
//Coordenadas de los puntos
Repeat
Readln(S1);
Val(S1,X1,Error);
Until Error=0;Writeln('La coordenada X1 es',x1:0:2);
Repeat
Readln(s2);
Val(S2,y1,Error);
Until Error=0;Writeln('La coordenada y1 es',y1:0:2);
Repeat
Readln(s3);
Val(S3,x2,Error);
Until Error=0;Writeln('La coordenada x2 es',x2:0:2);
Repeat
Readln(s4);
Val(S4,y2,Error);
Until Error=0;Writeln('La coordenada y2 es',y2:0:2);
//Ecuacion general de la recta Ax+By+C=0
Begin
If x2<>x1 then
Begin
A:=Y1-Y2;
Writeln('El coeficiente de X es',A:0:2);
B:=X2-X1;
Writeln('El coeficiente de Y es',B:0:2);
M:=A/B;
C:=Y1-(M*X1);
Writeln('El termino independiente de la recta es',C:0:2);
End
else
begin
Writeln;
Writeln('La recta es vertical');
end;
//Calculo del Punto Medio
Writeln;
Writeln('El punto medio del segmento de recta entre P1 y P2 es: ');
x3 := (x1 + x2) / 2;
y3 := (y1 + y2) / 2;
Writeln('Punto Medio = (', x3:0:2, ', ', y3:0:2, ')');
//Angulo de la recta respecto al eje X
Writeln;
Writeln('El angulo que forma el segmento con el eje x es: ');
Angulo:=Arctan(M);
Writeln('angulo respecto a x =',angulo:0:2);
end;
End.El problema es que al ejecutar lo único que hace en pantalla es indicar los números de las coordenadas y no hace mas instrucciones y no veo el problema, si pueden ayudarme lo agradecería demasiado.
Valora esta pregunta
0