ООЧЕНЬ Записати програму, яка створює у вікні дві кнопки різних кольорів, одна з
яких малює коло довільного радіуса, а інша – трикутник.
2. Створіть вікно з 4-ма кнопками однакового розміру. При натисненні на
першу у вікні turtle черепашка малює червоний квадрат, при натисненні на
другу - черепашка малює зелений трикутник, третя кнопка дозволяє
черепашці намалювати жовтий круг, четверта - пурпуровий шестикутник.
3.Створити вікно розмірами 300 х 300 жовтого кольору з назвою "Весна". У вікні додати напис "Квітень" зеленого кольору та синю кнопку, при натисненні на яку малюється жовте коло.
Язык програмрования Пайтон
1. ответ: 100001000₂
11001101₂ + 111011₂ = (2⁷*1 + 2⁶*1 + 2⁵*0 + 2⁴*0 + 2³*1 + 2²*1 + 2¹*0 + 2⁰*1) + (2⁵*1 + 2⁴*1 + 2³*1 + 2²*0 + 2¹*1 + 2⁰*1) = (128 + 64 + 0 + 0 + 8 + 4 + 0 + 1) + (32 + 16 + 8 + 0 + 2 + 1) = 205₁₀ + 59₁₀ = 264₁₀ = 100001000₂
Перевод 264₁₀ в 2-ю СС (mod - остаток от деления; каждый раз число делим на 2):
264 mod 2 = 0
132 mod 2 = 0
66 mod 2 = 0
33 mod 2 = 1
16 mod 2 = 0
8 mod 2 = 0
4 mod 2 = 0
2 mod 2 = 0
1 mod 2 = 1
Остаток от деления записываем в обратном порядке. Получается: 100001000₂.
2. ответ: сума двух чисел - 100110010₂, а разность двух остальных- 1011011₂.
10011001₂ = 2⁷*1 + 2⁶*0 + 2⁵*0 + 2⁴*1 + 2³*1 + 2²*0 + 2¹*0 + 2⁰*1 = 128 + 0 + 0 + 16 + 8 + 0 + 0 + 1 = 153 ₁₀
10011001₂ (153₁₀) + 153₁₀ = 153₁₀ + 153₁₀ = 306₁₀
11011001₂ = 2⁷*1 + 2⁶*1 + 2⁵*0 + 2⁴*1 + 2³*1 + 2²*0 + 2¹*0 + 2⁰*1 = 128 + 64 + 0 + 16 + 8 + 0 + 0 + 1 = 217 ₁₀
217 ₁₀ - 126₁₀ = 91₁₀
Переводим 306₁₀ в 2-ю СС (mod - остаток от деления; каждый раз число делим на 2):
306 mod 2 = 0
153 mod 2 = 1
76 mod 2 = 0
38 mod 2 = 0
19 mod 2 = 1
9 mod 2 = 1
4 mod 2 = 0
2 mod 2 = 0
1 mod 2 = 1
Остаток от деления записываем в обратном порядке. Получается: 100110010₂.
Переводим 91₁₀ в 2-ю СС (mod - остаток от деления; каждый раз число делим на 2):
91 mod 2 = 1
45 mod 2 = 1
22 mod 2 = 0
11 mod 2 = 1
5 mod 2 = 1
2 mod 2 = 0
1 mod 2 = 1
Остаток от деления записываем в обратном порядке. Получается: 1011011₂.
===== PascalABC.NET =====
procedure MyCompare<T>(P, Q: HashSet<T>);
begin
if P.SetEquals(Q) then
Print('Множества эквивалентны')
else if P.IsSubsetOf(Q) then
Print('Первое множенство является подмножеством второго')
else if P.IsSupersetOf(Q) then
Print('Второе множенство является подмножеством первого')
else
Print('Проверка множеств завершена')
end;
begin
var n := ReadInteger('Мощность первого множества:');
var P := ReadSeqInteger('Введите элементы множества:', n).ToHashSet;
n := ReadInteger('Мощность второго множества:');
var Q := ReadSeqInteger('Введите элементы множества:', n).ToHashSet;
MyCompare(P, Q)
end.