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

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment