Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Помогите с задачей.

Автор: smokekills 12.10.2009 22:03

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

Автор: RathaR 12.10.2009 22:42

Цитата(smokekills @ 12.10.2009 18:03)

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

Автор: smokekills 12.10.2009 22:51

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

Автор: sheka 13.10.2009 21:58

с помощью 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 13.10.2009 22:48

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 14.10.2009 0:44

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

Автор: Lapp 14.10.2009 15:30

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