НАПИСАТЬ ПРОГРАММУ ЖЕЛАТЕЛЬНО В BASIC,можно и в PASCALФедя пытается протолкнуть в...

0 голосов
108 просмотров

НАПИСАТЬ ПРОГРАММУ ЖЕЛАТЕЛЬНО В BASIC,можно и в PASCAL
Федя пытается протолкнуть в форточку размерами X см и Y см свою голову, длина окружности которой С см. Удастся ли мальчику его эксперимент или голова застрянет?


Информатика (62 баллов) | 108 просмотров
0

И какая версия Бейсика желательна?

0

да в принципе мне только формула важна

0

остальное,я на другие языки переведу

Дан 1 ответ
0 голосов
Правильный ответ

Составим условие прохождения окружности длины С в прямоугольник со сторонами х и у.  Очевидно, что диаметр окружности должен быть меньше минимальной из длин сторон.
\displaystyle min(x,y) \ \textgreater \ \ C; \ C=\pi d \to d= \frac{C}{\pi}; \quad min(x,y) \ \textgreater \ \frac{C}{\pi}

'MS Qbasic 1.0
INPUT "x,y=", x, y
INPUT "C=", C
pi = 4 * ATN(1)
IF x < y THEN
   min = x
ELSE
   min = y
END IF
IF min > C / pi THEN
   PRINT "YES!!!"
ELSE
   PRINT "No"
END IF

(142k баллов)
0

хорошо,щас все  попробую и отпишусь

0

Уже попробовано

0

как то не то,если вводим стороны форточек 1 000 и 1000 с головой 1 ,то пишет нет

0

Да, конечно, условие поменяйте < на >

0

в 1 или 2 условии?

0

Поправил

0

И в формулах, и в программе

0

Попутал "пролезет" и "не пролезет"

0

буду надеяться на вас,чтобы было все правильно)Спасибо.Отмечаю 5 звезд

0

Нарисуйте чертежик - все станет понятно.