> 1 <

Автор Сообщение

Sedlex

Members


Статус

1 сообщений

Где: Russia
Род занятий:
Возраст:

#7670   2015-12-18 00:43 GMT+3 часа(ов)      
Доброго дня, помогите пожалуйста с двумя задачами

1) Сводка выполнения плана содержит сведения: наименование изделия, шифр, единица измерения, план выпуска, фактически выпущено, отклонение от плана (перевыполнение, недовыполнение). Описать и заполнить запись для пяти позиций сводки. Предусмотреть возможность выдачи данных по введённому наименованию изделия.

2) Создать класс Самолёт со свойствами: Марка, Модель, Максимальная скорость (в км/ч), Максимальная высота (в метрах). Определить виртуальный метод «Стоимость» — стоимость самолёта, рассчитываемую по формуле Максимальная скорость * 1000 + Максимальная высота * 100 Определить также метод «Информация», который возвращает строку, содержащую информацию об объекте: Марка, Модель, Максимальную скорость, Максимальную высоту и Стоимость. Создать также класс наследник Бомбардировщик, в котором переопределить метод «Стоимость», который вернёт удвоенную стоимость относительно формулы для класса Самолёт. Также создать класс Истребитель — наследник класса Самолёт, для которого переопределить метод «Стоимость» как утроенную стоимость, относительно формулы стоимости для Самолёта. В главной программе (либо по нажатию на кнопку) создать объект класса Самолёт, класса Бомбардировщик, класса Истребитель. Вывести на экран (или форму) информацию о самолётах.

Заранее спасибо

_sg

Members


Статус

31 сообщений

Где: Russia
Род занятий:
Возраст:

#7671   2015-12-18 21:49 GMT+3 часа(ов)      
(defstruct sum name code unit plan impl devi)
 
(defun res (n)
(when (> n 0) (cons (make-sum :name (read)
:code (read)
:unit (read)
:plan (read)
:impl (read)
:devi (read))
(res (1- n)))))
 
(defun result (w name)
(loop for a in w
when (equalp (sum-name a) name) collect a))
 
> (setf summary (res 5))
wheat
1
ton
1000
1100
100
barley
2
ton
800
700
-100
rye
3
ton
400
400
0
maize
4
ton
500
600
100
rice
5
ton
2000
1500
-500
(#S(SUM :NAME WHEAT :CODE 1 :UNIT TON :PLAN 1000 :IMPL 1100 :DEVI 100)
#S(SUM :NAME BARLEY :CODE 2 :UNIT TON :PLAN 800 :IMPL 700 :DEVI -100)
#S(SUM :NAME RYE :CODE 3 :UNIT TON :PLAN 400 :IMPL 400 :DEVI 0)
#S(SUM :NAME MAIZE :CODE 4 :UNIT TON :PLAN 500 :IMPL 600 :DEVI 100)
#S(SUM :NAME RICE :CODE 5 :UNIT TON :PLAN 2000 :IMPL 1500 :DEVI -500))
> (result summary 'rice)
(#S(SUM :NAME RICE :CODE 5 :UNIT TON :PLAN 2000 :IMPL 1500 :DEVI -500))
 
> 1 <


Онлайн :

0 пользователь(ей), 10 гость(ей) :




Реклама на сайте: