Спочатку потрібно викликати процедуру 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, речь идет о Коде Хэмминга?
=СЧЁТ(C4:H4)
Эту формулу нужно вставить в клетку I4