Составить программу - конвертер, которая запрашивает тип единицы

@Berimor7331 · Регистрация: 19.12.2017

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

Задача 2. Составить программу - конвертер, которая запрашивает тип единицы измерения информации: 1 - бит, 2 - байт, 3 - килобайт, 4 - мегабайт, 5 - гигабайт, а также число - значение в этой единице измерения информации и переводит данное число во все остальные единицы измерения информации. Ввод чисел заканчивается нажатием клавиши 0.

Протокол работы программы:

Выберите тип единицы измерения информации: 1 - бит, 2 - байт, 3 - килобайт, 4 - мегабайт, 5 - гигабайт, 0 - выход.

1

Введите значение этой единицы измерения информации: 12288

Ответ: 12288 бит = 1536 байт = 1,5 Кбайт = 0,0014 Мбайт = 0,0000014 Гбайт

Выберите тип единицы измерения информации: 1 - бит, 2 - байт, 3 - килобайт, 4 - мегабайт, 5 - гигабайт, 0 - выход.

4

Введите значение этой единицы измерения информации: 20

Ответ: 20 Мбайт = 0,019 Гбайт = 20480 Кбайт =20 951 520 байт = 167 772 160 бит

Выберите тип единицы измерения информации: 1 - бит, 2 - байт, 3 - килобайт, 4 - мегабайт, 5 - гигабайт, 0 - выход.

0

Пока!

@Hitoku · 17.03.2018, 18:38

Как вариант:

Pascal

const n = 5;
type num = record
    val: string;
    x: integer;
  end;
 
var vars: array[1..n] of num;
    i, x: integer;
    v: real;
begin
  vars[1].val := 'бит'; vars[1].x := 8;
  vars[2].val := 'байт'; vars[2].x := 1024;
  vars[3].val := 'килобайт'; vars[3].x := 1024;
  vars[4].val := 'мегабайт'; vars[4].x := 1024;
  vars[5].val := 'гигабайт'; vars[5].x := 1024;
  x := 6;
  while x <> 0 do begin
    while not (x in [0..5]) do begin
      writeln('Выберите тип единицы измерения информации: 1 - бит, 2 - байт, 3 - килобайт, 4 - мегабайт, 5 - гигабайт, 0 - выход.');
      read(x);
    end;
    if x <> 0 then begin
      write('Введите значение этой единицы измерения информации: ');
      read(v);
      if x > 1 then
        for i := x - 1 downto 1 do v := v * vars[i].x;
      for i := 1 to n do 
      begin
        write(v, ' ', vars[i].val);
        if i <> n then write(' = ');
        v := v / vars[i].x;
      end;
      writeln;
    end;
    if x <> 0 then x := 6;
  end;
  writeln('Пока!');
end.

@Berimor7331 0 / 0 / 0 Регистрация: 19.12.2017 Сообщений: 49
		1
	Составить программу - конвертер, которая запрашивает тип единицы 17.03.2018, 18:18. Показов 3791. Ответов 1 Метки нет (Все метки) Задача 2. Составить программу - конвертер, которая запрашивает тип единицы измерения информации: 1 - бит, 2 - байт, 3 - килобайт, 4 - мегабайт, 5 - гигабайт, а также число - значение в этой единице измерения информации и переводит данное число во все остальные единицы измерения информации. Ввод чисел заканчивается нажатием клавиши 0. Протокол работы программы: Выберите тип единицы измерения информации: 1 - бит, 2 - байт, 3 - килобайт, 4 - мегабайт, 5 - гигабайт, 0 - выход. 1 Введите значение этой единицы измерения информации: 12288 Ответ: 12288 бит = 1536 байт = 1,5 Кбайт = 0,0014 Мбайт = 0,0000014 Гбайт Выберите тип единицы измерения информации: 1 - бит, 2 - байт, 3 - килобайт, 4 - мегабайт, 5 - гигабайт, 0 - выход. 4 Введите значение этой единицы измерения информации: 20 Ответ: 20 Мбайт = 0,019 Гбайт = 20480 Кбайт =20 951 520 байт = 167 772 160 бит Выберите тип единицы измерения информации: 1 - бит, 2 - байт, 3 - килобайт, 4 - мегабайт, 5 - гигабайт, 0 - выход. 0 Пока! 0

	17.03.2018, 18:38

Составить программу - конвертер, которая запрашивает тип единицы

Решение