<em>MS DOS QBasic 1.0</em>
DIM n AS INTEGER
CLS
INPUT "N=", n
REDIM a(1 TO n) AS INTEGER
DIM a AS INTEGER
RANDOMIZE TIMER
FOR i = 1 TO n
a(i) = 9 * RND + 1
PRINT a(i);
NEXT i
PRINT
'--------- SORT -----------
DIM j AS INTEGER, t AS INTEGER
FOR i = 1 TO n
FOR j = 1 TO n
IF a(i) < a(j) THEN
t = a(i): a(i) = a(j): a(j) = t
END IF
NEXT j
NEXT i
'---------------------------
t = a(1): j = 1
FOR i = 2 TO n
IF a(i) = t THEN
j = j + 1
ELSE
PRINT t; "-"; j
t = a(i): j = 1
END IF
NEXT i
PRINT t; "-"; j
<u>Пример</u>
N=10
7 5 2 7 3 3 5 9 7 6
2 - 1
3 - 2
5 - 2
6 - 1
7 - 3
9 - 1
Решил часть заданий. Склеить и поглотить попробуете сами.
1.
За неимением нужного шрифта я обозначил
Х прямое
высказывание, а
х отрицание
f1 =
(x1·x2·x3)v(x1·X2·X3)v(X1·x2·x3)v(X1·X2·X3)
f2 =
(x1·x2·X3)v(x1·X2·X3)v(X1·x2·x3)v(X1·X2·x3)
f3 =
(x1·x2·x3)v(X1·x2·x3)v(X1·x2·X3)v(X1·X2·x3)v(X1·X2·X3)
f4 =
(x1·x2·x3)v(x1·x2·X3)v(X1·x2·x3)v(X1·x2·X3)v(X1·X2·X3)
2.
f1 =
(x1·x2·X3)v(x1·X2·X3)v(X1·x2·X3)v(X1·X2·x3)
<span>В Excel листах защита без пароля. Защиту не снимайте, чтобы не
модифицировать формулы, иначе может быть ошибка. Листы живые, подставляйте
формулы в ячейки, защита в них снята.</span>
6)Повтори 5[направо 50 вперед 80];
7)D;
8)A.
25/2=12 (1) 12/2=6 (0) 6/2=3 (0)3/2=(1)(1)
25=11001
11001= 2^4+2^3+1=25
13/2=6 (1) 6/2=3 (0) 3/2=(1) (1)
13=1101
1101=2^3+2^2+1=13