Работа 3.3 Упр.5 Задание 3 ГДЗ Семакин 10 класс (Информатика)

Задача

Рассмотрим вариант решения задания из учебника Семакин, Хеннер, Шеина 10 класс, Бином: 5. Написать программу, которая бы по введенному номеру единицы измерения (1 — дециметр, 2 — километр, 3 — метр, 4 — миллиметр, 5 — сантиметр) и длине отрезка L выдавала соответствующее значение длины отрезка в метрах. *Цитирирование задания со ссылкой на учебник производится исключительно в учебных целях для лучшего понимания разбора решения задания. 10 semakin10 pract/3-3/zad3/5 98

Подробный ответ

Нужно перевести длину отрезка в метры в зависимости от кода единицы измерения:

$$1$$ — дециметр: $$1\ \text{дм} = 0{,}1\ \text{м}$$, значит $$L_m = \frac{L}{10}$$;
$$2$$ — километр: $$1\ \text{км} = 1000\ \text{м}$$, значит $$L_m = L \cdot 1000$$;
$$3$$ — метр: $$L_m = L$$;
$$4$$ — миллиметр: $$1\ \text{мм} = 0{,}001\ \text{м}$$, значит $$L_m = \frac{L}{1000}$$;
$$5$$ — сантиметр: $$1\ \text{см} = 0{,}01\ \text{м}$$, значит $$L_m = \frac{L}{100}$$.

Для этого удобно использовать оператор case.

Var
  c: integer;
  L, Lm: real;
begin
  Writeln(‘Укажите код единицы измерения’);
  Write(‘(1 — дм, 2 — км, 3 — м, 4 — мм, 5 — см): ‘);
  Read(c);
  Write(‘Укажите длину в выбранных единицах: ‘);
  Read(L);
  case c of
    1: Lm := L / 10;
    2: Lm := L * 1000;
    3: Lm := L;
    4: Lm := L / 1000;
    5: Lm := L / 100;
  end;
  Writeln(‘Это составляет ‘, Lm, ‘ м’);
end.