Перевод из Кб в Мб и т.д.

[okgo]

Доброго времени суток.
Уважаемые программисты, помогите составить программу на TP 7, которая будет переводить байты в килобайты, килобайты в гигабайты, как можно больше функций.
Если Вас не затруднит, напишите хотя бы одну операцию, дальше я справлюсь по аналогии.
Знаю, задача довольна простая, но очень давно не сидел за TP, подзабыл и запутался)
Заранее спасибо!

[okgo]

Времени не очень много, если возможно, побыстрее.. Не хочу наглеть, но все же)

[Alex21]

1 Кб = 1024 б
1 Мб = 1024 Кб
и т.д.

[Dux]

Посмотрите здесь

[_Dmitry]

КБ это 2 в 10 степени байт, МБ - 2^20, ГБ - 2^30 и т.д.

var
  b,kb,mb,gb: real;
begin
  b:=123456789; //байты
  kb:=b/(1 shl 10); //килобайты
  mb:=b/(1 shl 20); //мегабайты
  gb:=b/(1 shl 30); //гигабайты
  ........................................

[okgo]

Вот, как раз что, что я и хотел видеть) Большое спасибо, но тему не закрываю))

[okgo]

К сожалению, немного не тот результат, которого я ожидал.
Нельзя ли привести другой тип данных? В Real'e очень много лишнего) За это я и не люблю вещественные типы
Результат приложил.

[_Dmitry]

Если размер в байтах всегда целый, то этот же размер в килобайтах, в мегабайтах и гигабайтах может быть дробным, поэтому в программе и используется тип переменных real. Округляйте результат до необходимого количества знаков после запятой.

Вот, поправил вашу программу. Результаты печатаются с двумя знаками после запятой.

program Calculator;
var b, kb, mb, gb: real;
begin
  write('Bytes: '); readln(b); {bytes}
  kb:=b/(1 shl 10); {kbytes}
  mb:=b/(1 shl 20); {mbytes}
  gb:=b/(1 shl 30); {gbytes}
  writeln(b:1:0,' bytes = ',kb:1:2, ' kbytes = ',mb:1:2, ' mbytes = ', gb:1:2, ' = gbytes ');
  readln;
end.

Обратите внимание на выражения (1 shl 10)...
(1 shl 10) - это сдвиг влево на 10 разрядов. Сдвиг на 1 разряд эквивалентен умножению на 2. Сдвиг единицы влево на 10 разрядов эквивалентен умножению на 2 в 10 степени. Вы же в программе заменили бинарный сдвиг на простое деление, что в корне не верно.

[okgo]

Ой, не заметил) Спасибо, пойду доделывать.