Предмет: Информатика,
автор: Лёвушкa
Из железной полосы длиной 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
Похожие вопросы
Предмет: Алгебра,
автор: Аноним
Предмет: МХК,
автор: senpai0921
Предмет: Английский язык,
автор: olesasurupova2
Предмет: Математика,
автор: tyhthththf
Предмет: Математика,
автор: Балыковартур