Написать программу, которая бы по введённому номеру единицы измерения массы (1-миллиграмм, 2-грамм, 3-килограмм, 4-центнер, 5-тонна) и массе М выдавала бы соответствующее значение массы в килограммах.
Код к задаче: «По введённому номеру единицы измерения массы и заданной массе вывести вес в килограммах»
Листинг программы
Uses crt; Var n: Integer; m: Real; BEGIN Clrscr; Writeln(‘Введите массу: ‘); Readln(m); Writeln(‘Введите номер единицы массы: ‘); Readln(n); Case n of 1: Writeln(m:2:0,’кг = ‘,m:2:1,’ кг’); 2: Writeln(m:2:0,’мг = ‘,m/1000000:10:8,’ кг’); 3: Writeln(m:2:0,’г = ‘,m/1000:5:8,’ кг’); 4: Writeln(m:2:0,’с = ‘,m*100:5:0,’ кг’); 5: Writeln(m:2:0,’т = ‘,m*1000:5:0,’ кг’); end; Readln END.
Источник: studassistent.ru
Написать программу, которая бы по введенному номеру единицы измерения (1- килограмм, 2- миллиграмм, 3- грамм, 4- тонна, 5- центнер) и массе M выдавала соответствующее значение массы в килограммах. Выполнить в Паскале
Program massa;var m, a: real; begin writeln(‘Введите массу.’); readln(m); writeln(‘Введите единицу измерения массы. 1 — килограмм, 2 — миллиграмм, 3 — грамм, 4 — тонна, 5 — центнер.’); readln(a); writeln(‘Введённое вами значение равно ‘); if a=1 then write(m, ‘ килограмм.’); if a=2 then write(m/1000000, ‘ килограмм.’); if a=3 then write(m/1000, ‘ килограмм.’); if a=4 then write(m*1000, ‘ килограмм.’); if a=5 then write(m*100, ‘ килограмм.’); end.
Математика. 4 класс. Миллиграмм /14.09.2020/
меее, немного с окончаниями напортачила, но если надо, то можно просто до кг сократить и всё будет ок
Оцени ответ
Не нашёл ответ?
Если тебя не устраивает ответ или его нет, то попробуй воспользоваться поиском на сайте и найти похожие ответы по предмету Информатика.
Источник: znatochki.ru
Написать программу, которая бы по введенному номеру единицы измерения (1- килограмм, 2- миллиграмм, 3- грамм, 4- тонна, 5- центнер) и массе M выдавала соответствующее значение массы в килограммах. Выполнить в Паскале
Program massa;var m, a: real; begin writeln(‘Введите массу.’); readln(m); writeln(‘Введите единицу измерения массы. 1 — килограмм, 2 — миллиграмм, 3 — грамм, 4 — тонна, 5 — центнер.’); readln(a); writeln(‘Введённое вами значение равно ‘); if a=1 then write(m, ‘ килограмм.’); if a=2 then write(m/1000000, ‘ килограмм.’); if a=3 then write(m/1000, ‘ килограмм.’); if a=4 then write(m*1000, ‘ килограмм.’); if a=5 then write(m*100, ‘ килограмм.’); end.
меее, немного с окончаниями напортачила, но если надо, то можно просто до кг сократить и всё будет ок
Оцени ответ
Как никогда не запутаться при переводе грамм в килограммы, центнеры и тонны
Не нашёл ответ?
Если тебя не устраивает ответ или его нет, то попробуй воспользоваться поиском на сайте и найти похожие ответы по предмету Информатика.
Источник: uchiru.net