Ввести длину отрезка в метрах и перевести в выбранную единицу измерения. Паскаль
 

Единицы измерения пронумерованы следующим образом:1- сантиметр,2-миллиметр,3-дециметр,4-киллометр.ввести длину отрезка в метрах и провести в выбранную единицу измерения

Очень нуждаюсь в вашей помощи

Изменить порядок последовательно (милли-,санти-, деци-, кило-) и добавить соответствующий децимальный множитель - не?

нет( вводятся метры. потом с клавиатуры указывается в какую единицу измерения перевести

Ну так же знание тригонометрии не требуется для выполнения этого задания! Это же элементарно!

Uses Crt;


var: a,b,c,d,e :real;

begin
WriteLn ('Введите длину в метрах')
ReadLn (a);
b:=a*1000;
c:=a*100;
d:=a*10;
e:=a/1000;
WriteLn ('Длина в миллиметрах ' ,a, ' будет составлять ' b);
WriteLn ('Длина в сантиметрах ' ,a, ' будет составлять ' с);
WriteLn ('Длина в дециметрах ' ,a, ' будет составлять ' d);
WriteLn ('Длина в километрах ' ,a, ' будет составлять ' e);
end.

ВСЁ.

Вот я писал 2 года назад:

всем спасибо, в итоге получился такой вот код:

Uses Crt;
Var
n:byte;
l:real;
Begin
Repeat
ClrScr;
writeln('1 — сантиметр');
writeln('2 — миллиметр');
writeln('3 — дециметр');
writeln('4 — киллометр');

write('Введите длину отрезка в метрах: ');readln(l);
write('Введите номер еденицы длины: ');readln(n);

Case n of
1:writeln('сантиметров = ',l*100:0:3);
2:writeln('миллиметров = ',l*1000:0:3);
3:writeln('дециетров = ',l*10:3);
4:writeln('киллометров = ',l/1000:0:3);

else writeln('Не правильный выбор!')
End;
write('Повторить (1=да/2=нет): ');readln(n);
Until n=2;
End.