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

Задача

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

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

Переведём массу в килограммы в зависимости от введённого кода единицы измерения:

$$1$$ — килограмм, тогда $$M_{кг}=M$$;
$$2$$ — миллиграмм, тогда $$M_{кг}=\dfrac{M}{1000000}$$;
$$3$$ — грамм, тогда $$M_{кг}=\dfrac{M}{1000}$$;
$$4$$ — тонна, тогда $$M_{кг}=M \cdot 1000$$;
$$5$$ — центнер, тогда $$M_{кг}=M \cdot 100$$.

Составим программу с ветвлением case.

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