Регистрация
аникдим
25.02.2021 10:19
Информатика
Есть ответ 👍

Дано масив рядків: "блок, файл', 'біт, 'ко- лонка, 'миша. Розробіть програму пошуку максимального і мінімального значень еле- ментів.

147
233
Посмотреть ответы 1

Ответы на вопрос:

karinademina8
karinademina8
4,8(6 оценок)
Var n_for_1, n_for_2 : integer;   number : real; // 1 страница программы procedure firstlistofmenu; begin writeln('1. перевод из '); writeln('2. перевод из '); writeln('3. перевод из '); writeln('4. перевод из '); writeln('5. перевод из '); write('ввод > > '); end; // 2 страница программы procedure secondlistofmenu; begin writeln(' биты.'); writeln(' байты.'); writeln(' килобайты'); writeln(' мегабайты'); writeln(' гигабайты'); write('ввод > > '); end; // переводprocedure translate(a, b : integer; value : real); begin   case a of     1 : begin       case b of         1 : write('вы переводите из битов в биты! ');         2 : write(value : 0 : 2, ' bit = ', (value / 8) : 0 : 10, 'byte.');         3 : write(value : 0 : 2, ' bit = ', (value / 8 / 1024) : 0 : 10, 'kbyte');         4 : write(value : 0 : 2, ' bit = ', (value / 8 / 1024 / 1024) : 0 : 10, 'mbyte');         5 : write(value : 0 : 2, ' bit = ', (value / 8 / 1024 / 1024 / 1024) : 0 : 10, 'gbyte');         else write('выбран неверный режим! ');       end;       end;     2 : begin       case b of         1 : write(value : 0 : 2, ' byte = ', (value * 8) : 0 : 10, 'bit.');         2 : write('вы переводите из байтов в байты! ');         3 : write(value : 0 : 2, ' byte = ', (value / 1024) : 0 : 10, 'kbyte');         4 : write(value : 0 : 2, ' byte = ', (value / 1024 / 1024) : 0 : 10, 'mbyte');         5 : write(value : 0 : 2, ' byte = ', (value / 1024 / 1024 / 1024) : 0 : 10, 'gbyte');         else write('выбран неверный режим! ');       end;       end;     3 : begin       case b of         1 : write(value : 0 : 2, ' kbyte = ', (value * 8 * 1024) : 0 : 10, 'bit.');         2 : write(value : 0 : 2, ' kbyte = ', (value * 1024) : 0 : 10, 'byte');         3 : write('вы переводите из килобайтов в килобайты! ');         4 : write(value : 0 : 2, ' kbyte = ', (value / 1024) : 0 : 10, 'mbyte');         5 : write(value : 0 : 2, ' kbyte = ', (value / 1024 / 1024) : 0 : 10, 'gbyte');         else write('выбран неверный режим! ');       end;       end;     4 : begin       case b of         1 : write(value : 0 : 2, ' mbyte = ', (value * 8 * 1024 * 1024) : 0 : 10, 'bit.');         2 : write(value : 0 : 2, ' mbyte = ', (value * 1024 * 1024) : 0 : 10, 'byte');         3 : write(value : 0 : 2, ' mbyte = ', (value * 1024) : 0 : 10, 'kbyte');         4 : write('вы переводите из мегабайтов в мегабайты! ');         5 : write(value : 0 : 2, ' mbyte = ', (value / 1024) : 0 : 10, 'gbyte');         else write('выбран неверный режим! ');       end;       end;     5 : begin       case b of         1 : write(value : 0 : 2, ' gbyte = ', (value * 8 * 1024 * 1024 * 1024) : 0 : 10, 'bit.');         2 : write(value : 0 : 2, ' gbyte = ', (value * 1024 * 1024 * 1024) : 0 : 10, 'byte');         3 : write(value : 0 : 2, ' gbyte = ', (value * 1024 * 1024) : 0 : 10, 'kbyte');         4 : write(value : 0 : 2, ' gbyte = ', (value * 1024) : 0 : 10, 'gbyte');           5 : write('вы переводите из гигабайтов в гигабайты! ');         else write('выбран неверный режим! ');       end;       end;   end; end; // тело главной функцииbegin firstlistofmenu; readln(n_for_1); secondlistofmenu; readln(n_for_2); writeln; write('введите число для перевода > > '); readln(number); writeln; translate(n_for_1, n_for_2, number); end.

Популярно: Информатика