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

[Anton5475]

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

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

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

 

[Cruzzz]

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

 

[Anton5475]

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

 

[Daniellos]

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

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

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.

ВСЁ.

 

[Gruvi]

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

Uses Crt;
Var n:byte;
l:real;
Begin
Repeat
ClrScr;
writeln('1 — дециметр');
writeln('2 — километр');
writeln('3 — метр');
writeln('4 — миллиметр');
writeln('5 — сантиметр');
write('Введите номер еденицы длины: ');readln;
write('Введите длину отрезка: ');readln(l);
Case n of
1:writeln('Метров = ',l/10:0:4);
2:writeln('Метров = ',l*1000:0:4);
3:writeln('Метров = ',l:0:4);
4:writeln('Метров = ',l/1000:0:4);
5:writeln('Метров = ',l/100:0:4)
else writeln('Не правильный выбор!')
End;
write('Повторить (1=yes/2=no): ');readln;
Until n=2;
End.

 

[Anton5475]

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

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

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

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;
Until n=2;
End.