Вывести массу тела в килограммах

Lavriet

Единицы массы пронумированны следующим образом: 1 - тонна, 2 - центнер, 3 - килограмм, 4 - грамм, 5 - миллиграмм. Дан номер единицы массы и масса тела М в этих единицах (М - вещественное число). Вывести массу этого тела в килограммах.
3 ответа

Lavriet

Используя if...then...?


Lavriet

Всмысле if M = 1 then [N - переменная] x = x / 1000 Так?А... Всё понял... Вот пример:
CLS
INPUT "Введите номер единицы массы", M
INPUT "Введите массу тела", N
IF M = 1 THEN x = N * 1000
PRINT x, "Килограмм"


Lavriet

CLS
INPUT "nomer massiy"; o
IF o = 1 THEN PRINT "kolichestvo tonn";
IF o = 2 THEN PRINT "kolichestvo tsentnerov";
IF o = 3 THEN PRINT "kolichestvo kilogramm";
IF o = 4 THEN PRINT "kolichestvo gramm";
IF o = 5 THEN PRINT "kolichestvo miligramm";
INPUT y
IF o = 1 THEN x = y * 1000
IF o = 2 THEN x = y * 100
IF o = 3 THEN x = y
IF o = 4 THEN x = y / 1000
IF o = 5 THEN x = y / 10000
PRINT "kolichestvo kilogramm = ";
PRINT x