Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program Lab_1_1;
- {$APPTYPE CONSOLE}
- uses
- SysUtils;
- var
- x , y , r , CircleCenterX , CircleCenterY : real;
- flag , flag1 , flag2 , flag3 , flag4: boolean;
- begin
- Writeln ('Enter parametres M( x ; y )');
- repeat
- Write ('x = ');
- try
- Readln (x);
- flag := true;
- except
- on E : EInOutError do
- Writeln ('?rong, you should enter the number ') ;
- end;
- until flag = True;
- repeat
- Write ('y = ');
- try
- Readln (y);
- flag1 := True;
- except
- on E : EInOutError do
- Writeln (' wrong , you should enter the number') ;
- end;
- until flag1 = True;
- Writeln('the parametres of a close set D :');
- Writeln ('Enter the center of a circle(x,y)');
- repeat
- Write('x = ');
- try
- Readln (CircleCenterX);
- flag2 := True;
- except
- on E : EInOutError do
- Writeln ('wrong , you should enter the number') ;
- end;
- until flag2 = True;
- repeat
- Write('y = ');
- try
- Readln (CircleCenterY);
- flag3:=True;
- except
- on E : EInOutError do
- Writeln (' wrong , you should enter the number') ;
- end;
- until flag3 = True;
- repeat
- Writeln ('radius = ');
- try
- Readln (r);
- if r<0
- then
- begin
- flag4:=False;
- Writeln (' wrong,you should enter the number,which is more than 0 ');
- end
- else flag4:=True;
- except
- on E : Exception do
- Writeln (' wrong,you should enter the number,which is more than 0 ') ;
- end;
- until (flag4 = true) and (r > 0);
- if sqrt(sqr(CircleCenterX - x) + sqr(CircleCenterY - y)) <=r then
- Writeln('the dot M belongs to the closed set D')
- else
- Writeln('the dot M does not belong to the closed set D');
- Readln;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement