Знаю, задача простая, но подскажите как решить рациональнее.
Была мысль найти минимальное число (это и будет радиус) и дальше проверить остальные два на «= 2R». то что не равно — будет длинной окружности. (то что равно соответственно диаметр)
но как оказалось получается очень много кода для такой простой задачи. может можно решить проще?
да, еще забыл добавить: задачу решать через условия. без массивов и циклов. задача учебная. такие требования.
Последний раз редактировалось unbanned; 22.12.2011 в 03:50 .
Форумчанин
Регистрация: 10.11.2009
Сообщений: 880
длина окружности = 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;
Источник: www.programmersforum.ru
Математика 3 класс (Урок№33 — Круг. Окружность (центр, радиус, диаметр)
Пусть элементами кругаявляются радиус (первый элемент), диаметр (2-ой элемент) и длина
Пусть элементами круга
являются радиус (1-ый элемент), диаметр (второй элемент) и длина окружности
(3-ий элемент). Составить программку, которая по номеру элемента запрашивала
бы его подходящее значение и вычисляла бы площадь круга.
Решение на паскале!
- Егор Скользнев
- Информатика
- 2019-04-05 17:36:55
- 1
- 1
Витька Кричковский 2019-04-05 17:46:36
var
a: real;
k: byte;
begin
writeln(‘1 — l okp.’);
writeln(‘2 — r okp.’);
writeln(‘3 — d okp.’);
readln(k);
readln(a);
write(‘S = ‘);
case k of
1: writeln(sqr(a) / (4 * Pi):0:2);
2: writeln(Pi * sqr(a):0:2);
3: writeln(Pi * sqr(a / 2):0:2);
else writeln(‘?’);
end;
end.
Источник: obrazovalka.com
Pascal (Free) Пусть элементами круга являютс радиус (1-й элемент), диаметр (2-й элемент),…
Pascal (Free) Пусть элементами круга являютс радиус (1-й элемент), диаметр (2-й элемент), длина окружности (3-й элемент). По номеру одного изперечисленных элементов и его значению вычислить площадь круга
в избранное ссылка
РАДИУС ОКРУЖНОСТЬ ДИАМЕТР КРУГ / 3 КЛАСС МАТЕМАТИКА. ЧТО ТАКОЕ ОКРУЖНОСТЬ ? ЧТО ТАКОЕ РАДИУС ?
12 октября 2021
var i: integer; s,v: real; Begin read (i,v); case i of 1: s: =pi*v*v; 2: s: =pi*v*v/4; 3: s: =v*v/pi/4; end; writeln (s); End.
Источник: tutresheno.ru