Предмет: Информатика, автор: Аноним

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

Ответы

Автор ответа: mefody66
0
2 задача совсем простая.
Sub Devochki
Dim Year1 As Integer, Year2 As Integer
Input "Vvedite 1 god roghdeniya", Year1
Input "Vvedite 2 god roghdeniya", Year2
If Year2 = Year1 Then
_ _ _Print "Vozrast devochek odinakoviy"
ElseIf Year1 > Year2 Then
_ _ _Print "2 devochka starshe 1"
Else
_ _ _Print "1 devochka starshe 2"
End If
End 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 Kolco
Dim A As Double, B As Double
Dim R1 As Double, R2 As Double, S As Double
Const Pi  = 3,141592653589
Input "Vvedite A", A
Input "Vvedite B", B
If ((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 = " & S
End If
End Sub
Автор ответа: mefody66
0
Не обращай внимания на подчеркивания. это для выравнивания по горизонтали.
Автор ответа: xochu0znat0vse
0
офигеть
Автор ответа: xochu0znat0vse
0
ну вы умные
Похожие вопросы
Предмет: Другие предметы, автор: alexkos143
Опираясь на рассказ определите особенности эпохи Возрождения:

1

2

3

Когда Леонардо писал ее портрет, она не улыбалась. К ней приглашали актеров и музыкантов, но улыбка не появлялась на ее лице, тогда Леонардо рассказал ей историю.

Жил-был один бедный человек, было у него четыре сына: три умных, а один из них и так, и сяк. Перед смертью, отец позвал к себе детей и сказал: "Сыны мои, скоро я умру. Как только вы схороните меня, заприте хижину и идите на край света Добывать себе счастья. Пусть каждый из вас чему-нибудь научится, чтобы мог кормить сам себя". Отец умер, а сыновья разошлись по свету, договорившись спустя три года вернуться на поляну родной рощи. Пришел первый брат, который научился плотничать,
срубил дерево и обтесал его, сделал из него женщину, отошел немного и был портной, в одну минуту одел ее: как искусный мастер он сшил для нее красивую шелковую одежду. Третий сын украсил женщину золотом и драгоценными камнями - ведь он был ювелир. Наконец, пришел четвертый брат. Он не умел плотничать и шить, он умел только слушать, что говорит земля, деревья, травы, звери и птицы, знал ход небесных тел и еще умел петь чудесные песни. Он запел песню, от которой заплакали притаившиеся за кустами братья. Песней этой он оживил женщину, она улыбнулась и вздохнула. Братья бросились к ней и каждый кричал одно и то же: "Ты должна быть моей женой". Но

женщина ответила: "Ты меня создал - будь мне отцом. Ты меня одел, а ты украсил-будьте мне братьями.

А ты, что вдохнул в меня душу и научил радоваться жизни, ты один мне нужен на всю жизнь". Закончив сказку, Леонардо взглянул на Мону Лизу, ее лицо озарилось светом, глаза сияли. Потом, точно пробудившись от сна, она вздохнула, провела по лицу рукой и без слов пошла на свое место, сложила руки и приняла обычную позу Но дело было сделано