Перевести километры в метры - Turbo Pascal

Формулировка задачи:

Ребят помогите с этой задачей ну очень нужно. определить по введённому номеру еденицк измерения( 1дециметр 2 километр 3 метр 4 милиметр 5 сантиметр)и длинне отрезка L выдовала соответствующие ЗНАЧЕНИЕ ДЛИННЫ отрезка в метрах.

Код к задаче: «Перевести километры в метры - Turbo Pascal»

textual
var
L,b:integer;
a:real;
 
begin
WriteLn('Введиет длину отрезка');
ReadLn(l);
WriteLn('Единица измерения? 1дециметр 2 километр 3 метр 4 милиметр 5 сантиметр');
ReadLn(b);
 
case b of
1:a:=l*0.1;
2:a:=l*1000;
3:a:=l;
4:a:=l*0.001;
5:a:=l*0.01;
end;
WriteLn('Длина отрезка=',a,'м');
Read();
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

8   голосов, оценка 4.000 из 5


СДЕЛАЙТЕ РЕПОСТ