Из железной полосы длиной L метров нужно изготовить обруч. На соединение концов уходит D метров полосы. Разработать схему алгоритма для вычисления радиуса R обруча. если не сложно то в паскале.
дам 50 баллов
Ответы
Ответ дал:
0
1. Найдем длину окружности обруча: C=L-D
2. Из формулы длины окружности C=2πR найдем радиус: R=C/(2π)
R=(L-D)/(2π) - это формулу и надо запрограммировать.
// PascalABC.NET 3.3, сборка 1542 от 05.10.2017
// Внимание! Если программа не работает, обновите версию!
begin
var (L,D):=ReadReal2('Введите длину полосы L и припуск на соединение D:');
Writeln('Радиус обруча будет равен ',(L-D)/(2*Pi):0:3)
end.
Пример
Введите длину полосы L и припуск на соединение D: 6 0.7
Радиус обруча будет равен 0.844
2. Из формулы длины окружности C=2πR найдем радиус: R=C/(2π)
R=(L-D)/(2π) - это формулу и надо запрограммировать.
// PascalABC.NET 3.3, сборка 1542 от 05.10.2017
// Внимание! Если программа не работает, обновите версию!
begin
var (L,D):=ReadReal2('Введите длину полосы L и припуск на соединение D:');
Writeln('Радиус обруча будет равен ',(L-D)/(2*Pi):0:3)
end.
Пример
Введите длину полосы L и припуск на соединение D: 6 0.7
Радиус обруча будет равен 0.844
Ответ дал:
0
что значит ReadReal2? спасибо за ответ!!!
Ответ дал:
0
Ввод двух значений типа Real c предварительным комментарием
Ответ дал:
0
Как бы комбинация двух операторов
Ответ дал:
0
Write('Введите длину полосы L и припуск на соединение D: '); Read(L,D);
Ответ дал:
0
А var (L,D) позволяет одновременно описать нужные переменные и присвоить им значения, автоматически выводя тип по значению типа в правой части, т.е. real
Вас заинтересует
2 года назад
3 года назад
3 года назад
10 лет назад