> 1 <

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

Sedlex

Members


Статус

1 сообщений

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

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

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

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

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

_sg

Members


Статус

42 сообщений

Где: 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 пользователь(ей), 50 гость(ей) :