Даны следующий объекты. Для них надо
- придумать минимум 7 полей (характеристик) с примерами значений
- 2 объекта-наследника, каждый из которых будет иметь минимум 2 дополнительные характеристики (их также описать и привести примеры), которые не может иметь ни базовый класс, ни второй объект родительского класса.
1. Студент
2. Аудитория
3. Сотрудник
4. Файл
5. Поезд
6. Запоминающее устройство
7. Контрольная работа
8. Страна
9. Выпускная квалификационая работа
10. самостоятельная работа
11. Учебное заведение
12. Книга
13. Исполняемый файл
14. Файл-библиотека
15. Робот
16. Компьютер
17. Мобильный телефон
18. Монитор
19. Олимпиада
20. Городской транспорт
21. Двигатель
22. Корабль
23. Здание
24. Учебные дисциплины
25. Дверная коробка
26. Растение
27. Животное
28. Насекомое
29. Метал (химический)
30. Планета
31. Ткань
32. Гитара
33. Смычковый инструмент
34. Часы
35. Почта
36. Рюкзак
37. Принтер
38. Обувь
39. Птица
40. Лампочка
Const V: String = '01';
Function DecToN(A: Longint; D: Byte) : String;
Begin If A > D - 1
then DecToN := DecToN(A div D, D) + V[(A mod D) + 1]
else DecToN := V [A + 1];
end;
Function NToDec(A: String; D: Byte): Longint;
Begin
If Length(a) > 0
then NToDec := Pos(A [Length(A)], V) - 1 + D * NToDec(Copy (A, 1, Length(A) - 1), D)
else NToDec := 0;
end;
Var F: String;
Begin
Write('Входной файл Input.txt: '); Readln(F);
If NToDec(F,2)
mod 7 = 0
then Writeln('Выходной файл Output.txt: 0',DecToN(NToDec(F,2) div 7,2))
else Writeln('Выходной файл Output.txt: 0');
end.
begin
var a:=ArrRandom(100,-10,10);
a.Println;
Writeln(a.Where(x->x>0).Count,' положительных, ',
a.Where(x->x<0).Count,' отрицательных')
end.
Тестовое решение:
4 -6 0 8 2 -2 -1 -8 -6 8 -3 7 4 -7 -5 9 0 -3 -7 1 0 -4 6 3 8 -10 4 9 3 5 8 5 5 8 10 4 -8 3 8 8 -9 2 7 -8 -7 -5 2 -9 0 9 -7 7 -2 -6 7 -2 -1 7 -10 2 4 1 -1 0 10 3 -8 6 -6 2 6 7 -1 -4 -1 8 0 3 0 2 -2 2 -1 5 1 -9 -4 1 -9 1 -6 -5 3 -4 -7 1 -7 -3 -7 1
51 положительных, 42 отрицательных