Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  asc.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: