Вопрос по информатике:

Решить задачи по программированию на языке QBasic: 8
1) Вычислить площадь кольца, ширина которого равна А, а отношение радиусов окружностей равно В. Значения исходных данных ввести с клавиатуры или задать с помощью генератора случайных чисел. Вывести на экран изображение кольца и результаты вычислений.
2) Вводятся годы рождения двух девочек. Определить старшую из них.

Ответ:

Не обращай внимания на подчеркивания. это для выравнивания по горизонтали.

Ответ:

офигеть

Ответ:

ну вы умные

Ответ:

2 задача совсем простая.Sub DevochkiDim Year1 As Integer, Year2 As IntegerInput "Vvedite 1 god roghdeniya", Year1Input "Vvedite 2 god roghdeniya", Year2If Year2 = Year1 Then_ _ _Print "Vozrast devochek odinakoviy"ElseIf Year1 > Year2 Then_ _ _Print "2 devochka starshe 1"Else_ _ _Print "1 devochka starshe 2"End IfEnd Sub 1) Намного сложнее. Нужно посчитать радиусы R1 и R2 > R1, зная ширину кольца R2 - R1 = A и отношение радиусов B.Если B = 1, но A не = 0; или A = 0, но B не = 1, то такого не может быть.Это противоречие. Иначе. Если B = 1 и A = 0, то R1 = R2, тогда площадь кольца S = 0.Если B < 1, то R1/R2 = B.Получаем: R1=R2-A=R2*B, отсюда R2=A/(1-B); R1=R2*B=A*B/(1-B)Если B > 1, то R2/R1 = BПолучаем R1=R2-A=R2/B, отсюда R2=A/(1-1/B)=A*B/(B-1); R1=R2/B=A/(B-1)В обоих случаях площадь S = pi*R2^2 - pi*R1^2 = pi*(R2^2 - R1^2)Sub KolcoDim A As Double, B As DoubleDim R1 As Double, R2 As Double, S As DoubleConst Pi  = 3,141592653589Input "Vvedite A", AInput "Vvedite B", BIf ((B = 1) And (A <> 0)) Or ((B <> 1) And (A = 0)) Then_ _ _Print "Protivorechie"Else_ _ _If (B = 1) Or (A = 0) Then _ _ _ _ _S = 0_ _ _ElseIf (B < 1) Then_ _ _ _ _R1 = A*B/(1 - B): R2 = A/(1 - B)_ _ _ _ _S = Pi*(R2*R2 - R1*R1)_ _ _Else_ _ _ _ _R1 = A/(B - 1): R2 = A*B/(B - 1)_ _ _ _ _S = Pi*(R2*R2 - R1*R1) _ _ _End If_ _ _Print "S = " & SEnd IfEnd Sub