Разработка, отладка и испытание разветвляющихся алгоритмов и программ

@fabion · Регистрация: 13.11.2012

Author24 — интернет-сервис помощи студентам

Единицы длины пронумерованы следующим образом: 1 — дециметр, 2 — километр, 3 — метр, 4 — миллиметр, 5 — сантиметр. Дан номер единицы длины (целое число в диапазоне 1–5) и длина отрезка в этих единицах (вещественное число). Найти длину отрезка в метрах.

@ermolay · 24.10.2013, 09:58

Pascal

var
  e: byte;
  l: real;
begin
  repeat
    write('Ââåäèòå íîìåð åäèíèöû äëèíû [1..5]: ');
    readln(e);
  until e in [1..5];
  write('Ââåäèòå äëèíó îòðåçêà: ');
  readln(l);
  case e of
    1: l:=l*0.1;
    2: l:=l*1000;
    4: l:=l/1000;
    5: l:=l/100;
  end;
  writeln('Äëèíà îòðåçêà â ìåòðàõ = ',l);
  readln;
end.

@fabion · 24.10.2013, 10:11 **[ТС]**

Эм что то не работает

@ermolay · 24.10.2013, 10:20

что именно? какие данные вводите? у меня все работает:

@fabion · 24.10.2013, 10:24 **[ТС]**

спсибо палит))

@fabion 0 / 0 / 0 Регистрация: 13.11.2012 Сообщений: 24
		1
	Разработка, отладка и испытание разветвляющихся алгоритмов и программ 24.10.2013, 09:44. Показов 1714. Ответов 4 Метки нет (Все метки) Единицы длины пронумерованы следующим образом: 1 — дециметр, 2 — километр, 3 — метр, 4 — миллиметр, 5 — сантиметр. Дан номер единицы длины (целое число в диапазоне 1–5) и длина отрезка в этих единицах (вещественное число). Найти длину отрезка в метрах. 0

@fabion 0 / 0 / 0 Регистрация: 13.11.2012 Сообщений: 24
	24.10.2013, 10:11 [ТС]	3
	Эм что то не работает 0

@ermolay 3451 / 2389 / 2135 Регистрация: 04.12.2011 Сообщений: 3,966
	24.10.2013, 10:20	4
	что именно? какие данные вводите? у меня все работает: Миниатюры 1

@fabion 0 / 0 / 0 Регистрация: 13.11.2012 Сообщений: 24
	24.10.2013, 10:24 [ТС]	5
	спсибо палит)) 0