Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  coorRect.pas
Language: PASCAL
Code:
program HelloWorld;
var
x1,x2,y1,y2: real;
procedure rect(x1,x2,y1,y2: real);
begin
  repeat
    writeln('ingrese las coordenadas del punto inferior izquierdo');
  until (x1<x2)     and (y1<y2);
  readkey
end;
begin
  clrscr;
  rect(x1,x2,y1,y2);
  readkey
end.

Comments: