Форум программистов Контакты:
О проблемах с регистрацией, почтой и по другим вопросам пишите сюда - post@programmersforum.ru
По необходимости будем регистрировать вручную. И проверяйте папку спам!
Главная  |  Правила форума  |  Исходники Delphi  |  Основы Delphi  |  Блог программистов  |  Рассылка  |  Повторная активизация e-mail  | 

Вернуться   Форум программистов > Новички в программировании > Паскаль

Ответ
 
Опции темы
Старый 22.12.2011, 02:47   #1
unbanned
Форумчанин
 
Аватар для unbanned
 
Регистрация: 23.11.2010
Адрес: москва
Сообщений: 493
Репутация: 114

icq: 444660001
По умолчанию Радиус, диаметр, длина окружности

Условие задачи такое:
Цитата:
Даны r1, r2, r3.
Определить, какая из переменных является радиусом, какая – диаметром, а какая - длиной окружности.
Знаю, задача простая, но подскажите как решить рациональнее.

Была мысль найти минимальное число (это и будет радиус) и дальше проверить остальные два на "= 2R". то что не равно - будет длинной окружности. (то что равно соответственно диаметр)

но как оказалось получается очень много кода для такой простой задачи. может можно решить проще?

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

Последний раз редактировалось unbanned; 22.12.2011 в 02:50.
unbanned вне форума   Ответить с цитированием
Старый 22.12.2011, 03:31   #2
Rin
Негодник
Участник клуба
 
Аватар для Rin
 
Регистрация: 10.11.2009
Адрес: сергиев посад
Сообщений: 880
Репутация: 170
По умолчанию

длина окружности = 2ПR = ПD, т.к. D=2R. Вот и проверяй на это условие.
Код:

 
begin
if 2*pi*R1 = pi*R2 then writeln('r1-radius, r2-diametr, r3-dlina okrujnosti');
if 2*pi*R1 = pi*R3 then writeln('r1-radius, r3-diametr, r2-dlina okrujnosti');
if 2*pi*R2 = pi*R3 then writeln('r2-radius, r3-diametr, r1-dlina okrujnosti');
if 2*pi*R2 = pi*R1 then writeln('r2-radius, r1-diametr, r3-dlina okrujnosti');
if 2*pi*R3 = pi*R2 then writeln('r3-radius, r2-diametr, r1-dlina okrujnosti');
if 2*pi*R3 = pi*R1 then writeln('r3-radius, r1-diametr, r2-dlina okrujnosti');
end;

P.S. комбинаторика какая-то получается =).
__________________
Если помог, проси поставить минус. Будь оригинален!

Последний раз редактировалось Rin; 22.12.2011 в 04:24.
Rin вне форума   Ответить с цитированием
Ответ


Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
определить радиус и центр окружности Degster Паскаль 3 12.06.2011 16:38
центр окружности и радиус (всё это на плоскости) Pascal tipilat Помощь студентам 4 09.07.2009 21:19
Высчитать радиус окружности Anyken Фриланс 4 25.06.2009 09:30
Pascal - Высчитать радиус окружности Anyken Помощь студентам 8 24.06.2009 16:53
Определить радиус и центр окружности Verochka Помощь студентам 2 19.11.2008 15:47




17:38.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.

Forex с Admiral Markets — это надежно


Работа на Forex с 2000 года. Очное и дистанционное обучение. Выгодные условия.
магазин горящих туров


более 1000 горящих предложений ежедневно
Бэбиблог - соц сеть для будущих мам


RusProfile.ru


Справочник российских юридических лиц и организаций.