Спочатку потрібно викликати процедуру randomize.
Потрібно створити ціле число, що належить інтервалу [1, 4]. Для цього будемо використовувати формулу X:=Random(B-A+1)+A, де A=1,B=4.
Перевіримо створене число.
Якщо воно дорівнює 1, то надрукуємо слово 'піка'.
Якщо воно дорівнює 2, то надрукуємо слово 'треф'.
Якщо воно дорівнює 3, то надрукуємо слово 'бубна'.
Якщо воно дорівнює 4, то надрукуємо слово 'чирва'.
Програма
var x:byte;
begin
randomize;x:=random(4)+1;
if x=1 then writeln('пики');
if x=2 then writeln('трефи');
if x=3 then writeln('бубни');
if x=4 then writeln('черви');
end.
Приклад 2
Одержати у програмі 10 випадкових цілих чисел у діапазоні від 0 до 10 включно та знайти їх суму.
Змінні:
Вхідних даних немає.
Вихідні:
x – число, що має значення від 0 до 10 (ціле число)
s – сума всіх чисел x
Проміжні:
i – параметр циклу (ціле число)
Объяснение:
1) Выполнить кодирование числа 3753D
Для этого переведем его сначала в десятичную вот так :
3753D = 3∙16^4+7∙16^3+5∙16^2+3∙16^1+13∙16^0 = 196608+28672+1280+48+13 = 226621
Получилось: 226621
Переведем 226621 в двоичную систему делением на основание новой:
ответ: 110111010100111101
2) Представьте число 11 0111 0101 0011 в двоично-десятичном.
Для этого переведем его сначала в десятичную вот так :
11011101010011 = 1∙2^13+1∙2^12+0∙2^11+1∙2^10+1∙2^9+1∙2^8+0∙2^7+1∙2^6+0∙2^5+1∙2^4+0∙2^3+0∙2^2+1∙2^1+1∙2^0 = 8192+4096+0+1024+512+256+0+64+0+16+0+0+2+1 = 14163
Получилось: 14163
Переведем 14163 в двоично-десятичную систему делением на основание новой
Получилось: 1416310 = 1100111011
ответ: 1100111011
3) Представьте число 1110 1010 1001 в шестнадцатеричном коде
Для этого переведем его сначала в десятичную вот так :
111010101001 = 1∙2^11+1∙2^10+1∙2^9+0∙2^8+1∙2^7+0∙2^6+1∙2^5+0∙2^4+1∙2^3+0∙2^2+0∙2^1+1∙2^0 = 2048+1024+512+0+128+0+32+0+8+0+0+1 = 3753
Получилось: 3753
Переведем 3753 в шестнадцатиричную систему делением на основание новой
Получилось: 3753 = EA916
ответ: EA916
4) Представьте число 110 1010 1001 в восьмеричном коде
Для этого переведем его сначала в десятичную вот так :
110101010012 = 1∙2^10+1∙2^9+0∙2^8+1∙2^7+0∙2^6+1∙2^5+0∙2^4+1∙2^3+0∙2^2+0∙2^1+1∙2^0 = 1024+512+0+128+0+32+0+8+0+0+1 = 1705
Получилось: 1705
Переведем 1705 в восьмеричную систему делением на основание новой
Получилось: 1705 = 3251
ответ: 3251
5) Представьте число 1110 1010 1001 в десятичном коде
Перевод в десятичную производится вот так :
1110101010012 = 1∙2^11+1∙2^10+1∙2^9+0∙2^8+1∙2^7+0∙2^6+1∙2^5+0∙2^4+1∙2^3+0∙2^2+0∙2^1+1∙2^0 = 2048+1024+512+0+128+0+32+0+8+0+0+1 = 375310
ответ: 375310
6) Представьте число 3753D в дополнительном коде
Для этого переведем его сначала в десятичную вот так :
3753D = 3∙16^4+7∙16^3+5∙16^2+3∙16^1+13∙16^0 = 196608+28672+1280+48+13 = 226621
Получилось: 226621
Переведем 226621 в двоичную систему делением на основание новой:
Получилось: 226621 = 110111010100111101
Дополнительный код положительного числа совпадает с прямым кодом.
ответ: Число 3753D представляется в двоичном дополнительном коде как 0,110111010100111101
7) Представьте число -3753D в дополнительном коде
Для отрицательного числа дополнительный код образуется путем получения обратного кода и добавлением к младшему разряду единицы.
ответ: Число 3753D представляется в двоичном дополнительном коде как 1,001000101011000010
В 8 и 9, речь идет о Коде Хэмминга?
CTRL+C: копирование
CTRL+X: вырезание
CTRL+V: вставка
CTRL+Z: отмена действия
DELETE: удаление
SHIFT+DELETE: удаление выбранного объекта без возможности восстановления, не помещая объект в корзину
CTRL с перетаскиванием объекта: копирование выделенного объекта
CTRL+SHIFT с перетаскиванием объекта: создание ярлыка для выбранного объекта
Клавиша F2: переименование выбранного объекта
CTRL+СТРЕЛКА ВПРАВО: перемещение точки ввода в начало следующего слова
CTRL+СТРЕЛКА ВЛЕВО: перемещение точки ввода в начало предыдущего слова
CTRL+СТРЕЛКА ВНИЗ: перемещение точки ввода в начало следующего абзаца
CTRL+СТРЕЛКА ВВЕРХ: перемещение точки ввода в начало предыдущего абзаца
CTRL+SHIFT + клавиши со стрелками: выделение блока текста
SHIFT + клавиши со стрелками: выбор нескольких объектов в окне или на рабочем столе, а также выделение текста в документе
CTRL+A: выделение всего документа
Клавиша F3: поиск файла или папки
ALT+ВВОД: просмотр свойств выбранного объекта
ALT+F4: закрытие активного окна или завершение работы активной программы
ALT+ВВОД: просмотр свойств выбранного объекта
ALT+ПРОБЕЛ: вызов контекстного меню активного окна
CTRL+F4: закрытие активного документа в приложениях, в которых одновременно можно открыть несколько документов
ALT+ТАБУЛЯЦИЯ: переход между открытыми объектами
ALT+ESC: просмотр объектов в том порядке, в котором они были открыты
Клавиша F6: поочередный просмотр элементов интерфейса в окне или на рабочем столе
Клавиша F4: отображение панели адресов в папке «Мой компьютер» или в обозревателе Windows Explorer
SHIFT+F10: вызов контекстного меню для выделенного элемента
ALT+ПРОБЕЛ: вызов системного меню для активного окна
CTRL+ESC: вызов меню «Пуск»
ALT+подчеркнутая буква в названии меню: вызов соответствующего меню
Подчеркнутая буква в имени команды открытого меню: выполнение соответствующей команды
Клавиша F10: активация строки меню в используемой программе
СТРЕЛКА ВПРАВО: вызов следующего меню справа или подменю
СТРЕЛКА ВЛЕВО: вызов следующего меню слева или закрытие подменю
Клавиша F5: обновление активного окна
Клавиша BACKSPACE: просмотр содержимого папки, расположенной выше на один уровень в каталоге «Мой компьютер» или обозревателе Windows Explorer
Клавиша ESC: отмена выполняемого задания
SHIFT при загрузке компакт-диска в привод для компакт-дисков: предотвращение автоматического воспроизведения компакт-диска
CTRL+SHIFT+ESC: вызов диспетчера задач