Помогите с задачей., Помогите с задачей. Опции

[smokekills]

1 верста =500 саженей,1 сажень=3 аршина, 1 аршин=6 вершков ,1вершок =44,45мм.Длинна некоторого отрезка составляет p метров.Перевести её в русскую неметрическую систему. Помогите плз!

[RathaR]

1 верста =500 саженей,1 сажень=3 аршина, 1 аршин=6 вершков ,1вершок =44,45мм.Длинна некоторого отрезка составляет p метров.Перевести её в русскую неметрическую систему. Помогите плз!

Тоесть пользователь должен выбрать в каких единицах измерения хочет получить ответ, ввести число, и получить результат? Или сразу ввести число, и получить результат в каждой из перечисленых мер?
Проблема в алгоритме, или в програмной реализации?
Если с програмой, то можешь заранее подсчитать сколько вёрст, сажаней, аршинов, вершков в 1 метре, и запиши их в програму как константы, а дальше просто умножай нужную константу на Р - самый простой способ

Сообщение отредактировано: RathaR - 12.10.2009 18:49

[smokekills]

В програмной реализации!

Сообщение отредактировано: smokekills - 12.10.2009 18:53

[sheka]

с помощью div,mod
вот смотри это вся программа:

var p: integer;
begin
writeln('vvedi v metrah');
readln(p);
writeln(p,' metrov= ', p div 44.45*6*3*500 ,' verst ', (p mod 500) div 44.45*6*3,' sazhenei ', 
  (p mod 500*3) div 44.45*6,' arshin ', (p mod 500*3*6) div 44.45,' vershkov');
readln;
end.

[volvo]

sheka, ты уверен, что это

writeln(p,' metrov= ', p div 44.45*6*3*500 ,' verst ', (p mod 500) div 44.45*6*3,' sazhenei ',
  (p mod 500*3) div 44.45*6,' arshin ', (p mod 500*3*6) div 44.45,' vershkov');

хотя бы откомпилируется? Кто тебе разрешит применять целочисленный оператор к вещественным значениям?

[sheka]

Да, чуть протупил... тогда надо использовать trunc итд.

[Lapp]

!

Тема закрыта. Правила раздела, п.1, и Правила Форума, п.4