Помогите пожалуйста.Я вас отблагодарю!Даны два круга с общим центром и радиусами R1 и R2...

Question

Помогите пожалуйста.Я вас отблагодарю!Даны два круга с общим центром
и радиусами R1
и R2
(R1 > R2).
Найти площади этих кругов S1
и S2,
а также площадь S3
кольца, внешний радиус которого равен R1,
а внутренний радиус равен R2:
S1 = P·(R1)2,
S2 = P·(R2)2,
S3 = S1 – S2.
В качестве значения P
использовать константу языка Паскаль
Входные данные: ввести два целых
числа R1
и R2
(1<=R1,R2<=100).<br>Выходные данные: вывести площади
этих кругов S1
и S2,
а также площадь S3
кольца, внешний радиус которого равен R1,
а внутренний радиус равен с
точностью до 3 цифр в дробной части в
разных строках.

Answer 1

Ответ показан в файле 

Comments

Число пи не обязательно указывать в разряде констант, в паскале оно всегда равно 3,1415... И записывается как pi

Answer 2

Program zn2; Uses crt; Var s1, s2, s3: real; R1, r2: integer; Begin Clrscr; Repeat Write ('Enter r1, r2: '); Readln (r1, r2); Until (r1>=1) and (r2<=100); S1:=pi*sqr(r1); S2:=pi*sqr(r2); S3:=s1-s2; Writeln ('S1=', s1:0:3); Writeln ('S2=', s2:0:3); Writeln ('S3=', s3:0:3); Readkey; End.

Comments

Это и есть Паскаль

---

S1 s2 s3 не могут быть типа integer, они действительные, а не целые, так как в формуле площади круга присутствует иррациональное число пи.

---

Возведение в квадрат в паскале - sqr(x)

---

Program zn2;
Uses crt;
Var s1, s2, s3, R1, r2: real;
Begin
Clrscr;
Repeat
Write ('Enter r1, r2: ');
Readln (r1, r2);
Until (r1>=1) and (r2<=100); <br> S1:=pi*sqr(r1);
S2:=pi*sqr(r2);
S3:=s1-s2;
Writeln ('S1=', s1:0:3);
Writeln ('S2=', s2:0:3);
if s3>0 then
Writeln ('S3=', s3:0:3)
else writeln ('s3<0');<br> Readkey;
End.

---

тестирование:

---

enter r1, r2: 5 3;

---

s1 = 78.540; s2 = 28.274; s3 = 50.265;

---

enter r1, r2: 7 9; s1 = 153.938; s2 = 254.469; s3<0;