запутался с random решение задачи

[Artemona]

Нужно найти площадь кольца, внутренний радиус которого равен r, а внешний заданному R (R > r). как правильно задать random, чтобы r не было больше R ? Иначе площадь получается с минусовым результатом.

[veniside]

radius := Random(R);

[Blondy]

Нужно задавать рандом с границами. Для одного радиуса скажем, от 5 до 10, для другого, большего, начания с 11

[Alex11223]

Для одного радиуса скажем, от 5 до 10, для другого, большего, начания с 11

Так R же задается (readln, например), а не рандом.

[Artemona]

Сообщение от Blondy

Нужно задавать рандом с границами. Для одного радиуса скажем, от 5 до 10, для другого, большего, начания с 11

ну да мне нужно что-бы внутренний радиус был меньше заданной R и больше 0.

[veniside]

> меньше заданной R и больше 0

Если R — вещественное, то:

radius := R * (1 + Random(99)) / 100;

Если R — целочисленное и больше 1, то:

radius := 1 + Random(R - 1);

Если R — целочисленное и меньше 2, то решений нет )

[Artemona]

Сообщение от Alex11223

Так R же задается (readln, например), а не рандом.

R - это внешний диаметр кольца (Задаётся пользователем), а r - это внутрениий диамертр кольца (выбирается системой)и как это записать я не знаю.

[Sparkman]

uses crt;
var R,rad : integer;
    s1,s2:real;
begin
     randomize;
     clrscr;
     write('Enter R: ');
     readln(R);
     rad := random(R-2)+1;
     writeln('r: ',rad);
     s1:=pi*sqr(R);
     s2:=pi*sqr(rad);
     s1:=s1-s2;
     write('Square: ',s1:0:2);
     readln;
end.