Написать программу которая бы по введенному номеру единицы измерения 1

Как быстро выучить стихотворение наизусть? Запоминание стихов является стандартным заданием во многих школах.

Как научится читать по диагонали? Скорость чтения зависит от скорости восприятия каждого отдельного слова в тексте.

Как быстро и эффективно исправить почерк? Люди часто предполагают, что каллиграфия и почерк являются синонимами, но это не так.

Как научится говорить грамотно и правильно? Общение на хорошем, уверенном и естественном русском языке является достижимой целью.

• Обратная связь
• Правила сайта

Источник: www.soloby.ru

Единицы измерения

Написать программу которая бы по введенному номеру единицы измерения 1

Написать программу, которая бы по введенному номеру единицы измерения (1 — дециметр, 2 — километр, 3 — метр, 4 — миллиметр, 5 — сантиметр) и длине отрезка
L выдавала бы соответствующее значение длины отрезка в метрах

Комментарии

На чем написать? В Паскале?

Ответ проверен экспертом
4 (14 оценок)

triolana 6 лет назад
Светило науки — 553134 ответа — 388270 раз оказано помощи

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.

Пример работы программы
Укажите код единицы измерения
(1- дм, 2- км, 3- м, 4- мм, 5- см): 4
Укажите длину в выбранных единицах: 126
Это составляет 0.126м

Источник: vashurok.com

прикладная математика

Написать программу которая бы по введенному номеру единицы измерения (1-килограм 2-милиграм 3-грамм 4-тонна 5- центнер) и массе М выдавала бы соответсвующие значения массы в килограммах.

Перевод из одной единицы измерения в другую с помощью схемы, простой способ

var
a,m:integer;
begin
readln(a);
read(m);
if a=1 then writeln(m);
if a=2 then writeln(m*1000000);
if a=3 then writeln(m*1000);
if a=4 then writeln(round(m/1000));
if a=5 then writeln(round(m/10));
end.

«Спасибо» принимается в виде повышения репутации ( Зелёный плюсик:) ).Спасибо
Нужна помощь? Сюда: vkontakte.ru/berestovskiy

Источник: primat.org