• Lenguaje

    Pascal

  • Descripción

    Dada la ecuación general de la recta Ax + By + C = 0. Hacer un algoritmo que dados los parámetros A, B, C, y un punto en el plano cartesiano (x, y) identifique si el punto hace parte de la recta.

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
program RectaEnUnPuntoDelPlanoCartesiano;
uses crt;

var A, B, C, x, y : real;
begin
    write ('Ingresa el valor de A: ');
    readln (A);
    write ('Ingresa el valor de B: ');
    readln (B);
    write ('Ingresa el valor de C: ');
    readln (C);
    write ('Ingresa el valor de x: ');
    readln (x);
    write ('Ingresa el valor de y: ');
    readln (y);
    if A*x+B*y+C=0 then
        begin
            writeln ('S'#161' pertenece a la recta.');
        end
    else
        begin
            writeln ('No pertenece a la recta.');
        end;
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.