Получить в заданном диапазоне случайные значения координат x, y центров N окружностей радиуса r - Turbo Pascal

Формулировка задачи:

Получить в диапазоне [0,400] x [0,400] случайные значения координат x,y центров N окружностей радиуса r( r случайные значения в диапазоне [20,100] ) и вывести их в типизированный файл f1.

Код к задаче: «Получить в заданном диапазоне случайные значения координат x, y центров N окружностей радиуса r - Turbo Pascal»

textual
Uses Crt;
 
Type
    TCircle = record
     X,Y,R: Integer;
    end;
 
var
 Circle: TCircle;
 F1: File of TCircle;
 i: Integer;
begin
 Assign(F1, 'DemoCircle.dat');
 Rewrite(F1);
 for i := 1 to Random(100)
 do begin
     Circle.X := Random(401);
     Circle.Y := Random(401);
     Circle.R := 20 + Random(101);
     Write(F1, Circle);
     end;
 Close(F1);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

9   голосов, оценка 4.222 из 5


СДЕЛАЙТЕ РЕПОСТ