Написать программу в паскале,чтобы переводила из бит в байты в мбайты кбайты,вообще из бит-кбайт в кбайты-бит и наоборот.напимер ввожу 2 мбайт,хочу перевести в кбайты.

174

290

Посмотреть ответы 3

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

VTKOF

Информатика

4,8(48 оценок)

Var a: integer; begin write('a = '); readln(a); writeln('укажите направление перевода: '); writeln('1 - бит -> байт, кбайт, мбайт'); writeln('2 - байт -> бит, кбайт, мбайт'); writeln('3 - кбайт -> бит, байт, мбайт'); writeln('4 - мбайт -> бит, байт, кбайт'); readln(n); case n of 1: writeln(a,' бит = ',a/8,' байт, ',a/8/1024,' кбайт, ',a/8/1024/1024,' мбайт'); 2: writeln(a,' байт = ',a*8,' бит, ',a/1024,' кбайт, ',a/1024/1024,' мбайт'); 3: writeln(a,' кбайт = ',a*8*1024,' бит, ',a*1024,' байт, ',a/1024,' мбайт'); 4: writeln(a,' мбайт = ',a*8*1024*1024,' бит, ',a*1024*1024,' байт, ',a*1024,' кбайт'); else writeln('неверный номер'); end; end. пример: a = 2048 укажите направление перевода: 1 - бит -> байт, кбайт, мбайт 2 - байт -> бит, кбайт, мбайт 3 - кбайт -> бит, байт, мбайт 4 - мбайт -> бит, байт, кбайт 3 2048 кбайт = 16777216 бит, 2097152 байт, 2 мбайт

Gear228man

Информатика

4,7(78 оценок)

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.

13Андрей1311

Информатика

4,7(68 оценок)

#include "stdafx.h"#include < iostream> #include < conio.h> using namespace std; int main(){ int a[10]; for (int i = 0; i < 10; i++) { cout < < "a[" < < i < < "] = "; cin > > a[i]; } cout < < "source massiv: "; for (int i = 0; i < 10; i++) { cout < < a[i] < < " "; if (a[i] > 15) a[i] = 15; } cout < < "\nnew massiv: "; for (int i = 0; i < 10; i++) cout < < a[i] < < " "; cout < < endl; _getch(); return 0; }

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

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

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.