Нужно написать две программы на питоне с классами! 1.Создать класс летательные аппараты со свойствами: скорость,
поднимаемый вес, наименование, в полете/на земле. Атрибуты заполняются через метод инициализации. Добавить программно свойство: количество ракет. Создать метод, инициализирующий
атрибут класса «остаток по весу» = поднимаемый вес - количество ракет * 10. Атрибут в полете/на земле – логического типа и задается случайно.
2.Для класса задачи 1 создать два объекта и логически правильно задать
параметры для: вертолет, бомбардировщик. Создать 2 метода изменяющие состояние – в небе/на земле и загрузить/разгрузить. Загрузка/разгрузка осуществляется только если летательный аппарат на земле.
Процедура ShowMessage виводить на екран вікно з текстом і командної кнопкою ОК.
У загальному вигляді інструкція виклику процедури ShowMessage виглядає так:
ShowMessage (Повідомлення);
де повідомлення – текст, який буде виведений у вікні.
Слід звернути увагу на те, що в заголовку вікна повідомлення, що виводиться процедурою ShowMessage, зазначено назва програми, з якою задається на вкладці Application вікна Project Options. Якщо назва додатка не задано, то в заголовку буде ім’я виконуваного файлу.
===== PascalABC.NET =====
= 1 =
begin
var n := ReadInteger('N =');
var A := ArrRandom(n, -99, 99);
A.Println;
// собственно, решение
var s := A.Sum; // сумма всех элементов массива
var L := new List<integer>; // то, что войдет в массив В
// берем каждого претендента и сравниваем его с остальной суммой
for var i := 0 to A.High do
if (Abs(A[i] mod 10) = 5) and (A[i] > s - A[i]) then
L.Add(A[i]);
var B := L.ToArray;
if B.Length > 0 then
begin
Print('Особые элементы:');
B.Print
end
else
Print('Нет "особых" элементов');
end.
= 2 =
begin
var n := ReadInteger('N =');
var A := ArrRandom(n, -10, 10);
A.Println;
// собственно, решение
var D := new Dictionary<integer, integer>; // словарь
foreach var k in A do // перебор элементов
if D.ContainsKey(k) then
D[k] += 1 // +1, если такой элемент был
else
D.Add(k, 1); // 1, если элемент встретился впервые
D.Count(p -> p.Value > 1).Print
end.