Значение переменной x, означающее некоторую длину в единицах p, заменить на величину этой же длины в метрах

@NoviiMir · Регистрация: 23.09.2012

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

Даны следующие описания (русский язык используется для лучшего понимания задачи, при реализации нужно будет исключить русские буквы в записи идентификаторов).
Type единица=(дециметр,километр,метр,миллиметр,сантиметр);
Длина=real;
Var x:длина; p:единица;
Требуется значение переменной x, означающее некоторую длину в единицах p, заменить на величину этой же длины в метрах.

@mefisto74 · 22.10.2014, 10:27

vot mne tozhe interesno kak reshit.
u menya poluchilos nechto takoe:

Delphi

Program lengthprog;
type edinica = (decimetr, kilometr, metr, millimetr, santimetr);
dlina = real;
 
function RandomEd: edinica;
begin
RandomEd := edinica(Random(Succ(Ord(High(edinica)))));
end;
var x:dlina; p:edinica;
begin
randomize;
x:=random(10);
p := RandomEd;
writeln(p);
case p of
decimetr: x:=x/10;
kilometr: x:=x/1000;
metr: x:=x;
millimetr: x:=x/1000;
santimetr: x:=x/100;
end;
writeln(p,'=',x,'metrov');
readln;
end.

no kak vivesti znachenie to peremennoi perechislyaemogo tipa???

@Joy · 22.10.2014, 13:01

Pascal

1	kilometr: x:=x/1000;

может все-таки

Pascal

1	kilometr: x:=x*1000;

@mefisto74 · 22.10.2014, 16:12

ну то не суть, я на это даже не обращал внимания особо, а вопрос в том как же все таки вывести то что вот столько-то дециметров=столько то метров в итоге?

@Joy · 22.10.2014, 16:41

Насколько мне известно перечисляемые типы нельзя ни ввести ни вывести, как вариант так:

Pascal

...
case p of
   decimetr: writeln(x,' decimetrov=',x/10:0:4,' metrov');
...

@NoviiMir 10 / 10 / 2 Регистрация: 23.09.2012 Сообщений: 427
		1
	Значение переменной x, означающее некоторую длину в единицах p, заменить на величину этой же длины в метрах 24.10.2012, 16:26. Показов 3581. Ответов 4 Метки нет (Все метки) Даны следующие описания (русский язык используется для лучшего понимания задачи, при реализации нужно будет исключить русские буквы в записи идентификаторов). Type единица=(дециметр,километр,метр,миллиметр,сантиметр); Длина=real; Var x:длина; p:единица; Требуется значение переменной x, означающее некоторую длину в единицах p, заменить на величину этой же длины в метрах. 0

@mefisto74 0 / 0 / 0 Регистрация: 04.08.2013 Сообщений: 43
	22.10.2014, 16:12	4
	ну то не суть, я на это даже не обращал внимания особо, а вопрос в том как же все таки вывести то что вот столько-то дециметров=столько то метров в итоге? 0

	22.10.2014, 16:41

Опции темы