<em>/ PascalABC.NET 3.2, сборка 1385 от 14.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('Поквартирная численность жильцов');
var a:=ArrRandom(36,1,10); a.Println;
var mx:=a.Max;
Write('Квартиры с максимальным количеством жильцов: ');
a.Select((x,i)->(x,i)).Where(x->x[0]=mx).Select(x->x[1]+1).Println
end.
<u>Пример</u>
Поквартирная численность жильцов
7 9 6 7 8 9 1 4 7 8 8 8 1 7 7 8 3 10 7 7 2 9 7 3 2 8 2 2 10 4 4 5 2 1 7 1
Квартиры с максимальным количеством жильцов: 18 29
SCREEN 12
INPUT "risovat den ili noch(l/y)"; a$
IF a$ = "l" THEN a = 14 ELSE a = 15
CIRCLE (200, 200), 100, a
PAINT (200, 200), a, a
может так
33*40*64*8бит на символ = скоко аа
вес в битах
(кои-8 ето 8 бит на символ не 8символнасимвол)
⌐(x ⋀ y) ⋁ z (см.картинку)
При составлении таблиц истинности необходимо:
1. Выяснить количество строк в таблице (2^n, где n – количество переменных, + 1(строка под заголовки)).
Здесь 3 переменные: x, y и z
2^3 = 8
8 + 1 = 9 строк
2. Выяснить количество столбцов (количество переменных + количество операций).
Здесь 3 операции:
1. x ⋀ y (промежуточная логическая формула)
2. ⌐(x ⋀ y) (промежуточная логическая формула)
3. ⌐(x ⋀ y) ⋁ z (формула)
Здесь 3 переменные: x, y и z
3 + 3 = 6 столбцов
3. Установить последовательность выполнения логических операций.
Порядок выполнения логических операций в сложном логическом выражении:
1. Инверсия
2. Конъюнкция
3. Дизъюнкция
4. Импликация
5. Эквивалентность
6. Для изменения указанного порядка выполнения операций используются скобки
Здесь порядок выполнения операций:
1. x ⋀ y
2. ⌐(x ⋀ y)
3. ⌐(x ⋀ y) ⋁ z
4. Построить таблицу, указывая названия столбцов и возможные наборы значений исходных логических переменных.
5. Заполнить таблицу истинности по столбцам.