PROGRAM EJER26B; {Autor: Victor Sanchez Sanchez email: [email protected]}
USES CRT;
VAR x1, x2, y1, y2 : REAL;
VAR area : REAL;
BEGIN
{Sirve para calcular el area de un rectangulo a partir de
coordenadas}
WRITELN ('Para calcular el area del rectangulo ');
WRITELN ('introduzca el valor de las coordenadas');
WRITELN (' ');
WRITE ('x1: ');
READLN (x1);
WRITE ('y1: ');
READLN (y1);
WRITE ('x2: ');
READLN (x2);
WRITE ('y2: ');
READLN (y2);
WRITELN (' ');
area := (x2 - x1) * (y2 - y1);
{Se restan las coordenadas de X e Y para sacar los lados y
luego se multiplican}
WRITE ('El area del rectangulo es de: ');
WRITE (area : 5 : 2);
END.