|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
13.12.2006, 11:55 | #1 |
Пользователь
Регистрация: 13.12.2006
Сообщений: 13
|
Классы и методы класса
Не могу сделать курсовую, ПОМОГИТЕ ПЛИЗ!!!!
1. Разработать класс, который инкапсулирует информацию о транспортных средствах, таких как легковые автомобили, автобусы, грузовики. Этот класс ( Vehicle) должен хранить следующие данные – количество пассажиров ( passengers), объем бака ( fuelcap), расстояние (mpl), которое проедет автомобиль, используя один литр топлива. 2. В классе использовать 3 поля (Fpassengers, Ffuelcap, Fmpl); 3. Создать объект Motor и инициализировать начальные значения полей путем присвоения. 4. Найти максимальное расстояние, которое может пройти автомобиль Motor, имея полный бак. 5. Создать класс ( Vehicle1) , который является наследником класса Vehicle, определить в нем 3 свойства Passengers, FuelCap, Mpl, все типа Byte. Последнее свойство работает только на чтение. В процедурах записи значений свойств Passengers, FuelCap использовать ограничения. 6. Для класса Vehicle1 разработать конструктор с начальной инициализацией. При этом бак должен быть заполнен наполовину. 7. Создать объект Motor1 класса Vehicle1. 8. Ввести расстояние, которое должен пройти автомобиль Motor1 и найти оставшееся количество топлива 9. Создать класс ( Vehicle2) , который является наследником класса Vehicle1, определить в нем метод ( Distance), который определяет максимальную дальность поездки, с данной заправкой топливного бака. 10. В классе Vehicle2 определить метод FuelNeeded, который на заданное расстояние возвращает необходимое количество топлива. 11. Создать объект Motor2 класса Vehicle2, используя конструктор класса Vehicle1. 12. Присвоить объекту Motor1 данные объекту Motor2. 13. Ввести расстояние, и определить необходимое количество топлива для автомобилей Motor1 и Motor2.
Если не даешь мне денег на жизнь, не учи меня жить!!!
|
13.12.2006, 18:53 | #2 |
Павел Сергеевич
Форумчанин
Регистрация: 05.11.2006
Сообщений: 665
|
Как я понимаю, это - работа!?
Познавая других, мы познаем себя.
С'est la vie... |
15.12.2006, 09:43 | #3 |
Пользователь
Регистрация: 13.12.2006
Сообщений: 13
|
Это курсовая работа если точнее, короче мне надо сделать курсовик по классам, надо НАСЛЕДОВАНИЕ И ПОЛИМОРФИЗМ, немного сделал если хочешь покажу , тока обьясни как вылажить архив.
Если не даешь мне денег на жизнь, не учи меня жить!!!
|
15.12.2006, 10:52 | #4 |
Delphi/C++/C#
Участник клуба
Регистрация: 29.10.2006
Сообщений: 1,972
|
имелось в виду, что работа платная....
нажми накнопку ОТВЕТИТЬ, или внизу, около быстрого ответа, нажми расширеный режим. Потом на новой страничке увидишь кнопку с надписью Управление Вложениями. Далее думаю сам разберёшься. |
15.12.2006, 11:06 | #5 |
Пользователь
Регистрация: 13.12.2006
Сообщений: 13
|
Я думал сдесь форум где помогают и подсказывают людям, а сдесь какие-то барыги, спасибо сам разберусь!!!
Если не даешь мне денег на жизнь, не учи меня жить!!!
|
15.12.2006, 11:11 | #6 | |
Delphi/C++/C#
Участник клуба
Регистрация: 29.10.2006
Сообщений: 1,972
|
Просто мы отвечаем на конкретные вопросы, а не делам за других курсовые.
А насчёт барыг... Зделаю я эту курсовую (потрачу 3-4 дня, а может неделю) и что? Под конец года, у всех напряг со временем... Толи на вопрос ответить, толи всё написать.. А что ты тогда будешь делать? Оформишь и сдашь? Медвежья услуга получается... За бесплатно редкий чел возьмётся курсовую делать. Цитата:
Лучше сам давай делай, будут сложности (конкретно в чём-то) - поможем Последний раз редактировалось zetrix; 15.12.2006 в 11:17. |
|
17.12.2006, 17:48 | #7 | |
Пользователь
Регистрация: 13.12.2006
Сообщений: 13
|
Извени не хотел обидеть, просто надоело рыться в учебниках и читать эл.книги где ничего понять не могу. А курсовик уже ячерез неделю сдавать.
А насчет твоих слов: Цитата:
вот КОД: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Grids, ComCtrls, XPMan, ImgList, jpeg, ValEdit; type t_Tuning=(CD,Alarm,Condition);//описание перечисляемого типа tName=(Toyota, Mitsubishi, Honda, Nissan); tModel_Toyota=(Celica, Vista, Surf, Duna); tMotor=record Name:tName; Model:tModel_Toyota; Tuning:Set of t_Tuning; end; type TForm1 = class(TForm) GroupBox1: TGroupBox; GroupBox2: TGroupBox; ComboBox1: TComboBox; ComboBox2: TComboBox; Button3: TButton; XPManifest1: TXPManifest; ListBox1: TListBox; ImageList1: TImageList; Image1: TImage; procedure FormCreate(Sender: TObject); procedure Button3Click(Sender: TObject); procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); procedure ComboBox1Select(Sender: TObject); procedure ComboBox2Select(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; Motor1:tMotor; Motor2:tModel_Toyota; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin //--------------------------------- //--------------------------------- ComboBox1.Items.Append('Toyota'); ComboBox1.Items.Append('Mitsubishi' ); ComboBox1.Items.Append('BMW'); ComboBox1.Items.Append('Nissan'); end; procedure TForm1.Button3Click(Sender: TObject); begin Close; end; procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin if MessageDlg('Вы уверены что хотите выйти?',mtConfirmation,mbOKCancel,0 )=mrOk then CanClose:=true else CanClose:=false; end; procedure TForm1.ComboBox1Select(Sender: TObject); begin If ComboBox1.Text = 'Toyota' Then Begin ComboBox2.Text:=''; ComboBox2.Items.Clear; listbox1.Clear; ComboBox2.Items.Append('Supra T-turbo'); End else If ComboBox1.Text = 'Mitsubishi' Then Begin ComboBox2.Text:=''; listbox1.Clear; ComboBox2.Items.Clear; ComboBox2.Items.Append('Pajero 3000 V6-24V'); ComboBox2.Items.Append(''); End Else If ComboBox1.Text = 'Nissan' Then Begin ComboBox2.Text:=''; listbox1.Clear; ComboBox2.Items.Clear; ComboBox2.Items.Append('Laurel 2.5i 24V Club S'); ComboBox2.Items.Append(''); end; If ComboBox1.Text = 'BMW' Then Begin ComboBox2.Text:=''; ComboBox2.Items.Clear; listbox1.Clear; ComboBox2.Items.Append('BMW 318i Cabrio'); ComboBox2.Items.Append(''); End else end; procedure TForm1.ComboBox2Select(Sender: TObject); begin If ComboBox2.Text = 'Supra T-turbo' Then end; end.
Если не даешь мне денег на жизнь, не учи меня жить!!!
Последний раз редактировалось SuperVisor; 17.12.2006 в 17:52. |
|
17.12.2006, 17:52 | #8 |
Пользователь
Регистрация: 13.12.2006
Сообщений: 13
|
вот продолжение, просто на одну строницу все не влезло.
Begin ListBox1.Items.Add(' Кузов:'); ListBox1.Items.Add('Количество дверей' + '-2'); ListBox1.Items.Add('Количество мест' + '-2'); ListBox1.Items.Add(' Двигатель:'); ListBox1.Items.Add('Число и расположение цилиндров' + '-R6'); ListBox1.Items.Add('Расположение двигателя' + ' -спереди, продольно'); ListBox1.Items.Add('Рабочий объем, куб.см.' + ' -2997'); ListBox1.Items.Add('Диаметр цилиндра и ход поршня' + ' -86.0 x 86.0'); ListBox1.Items.Add('Степень сжатия' + ' -8.5'); ListBox1.Items.Add('Число клапанов на цилиндр' + ' -4'); ListBox1.Items.Add('Система питания' + ' -многоточечный впрыск'); ListBox1.Items.Add('Наличие наддува' + ' -турбонаддув'); ListBox1.Items.Add('Мощность, л.с.(кВт) при 1/мин.' + ' -330(243)/5600 '); ListBox1.Items.Add('Крутящий момент, Н/м' + ' -440/4800'); ListBox1.Items.Add('Тип проивода' + ' -заднеприводной'); ListBox1.Items.Add('Число передач автоматической КП' + ' -4'); ListBox1.Items.Add(' Ходовая часть:'); ListBox1.Items.Add('Передняя подвеска' + ' -винтовая пружина'); ListBox1.Items.Add('Тормоза передние/задние' + ' -дисковые вентилир.'); ListBox1.Items.Add('Наличие АБС' + ' -Да'); ListBox1.Items.Add('Шины ' + ' -225/50-245/50 ZR 16'); ListBox1.Items.Add(' Общие данные:'); ListBox1.Items.Add('Разгон с места до 100 км/ч, с.' + ' -n.a.'); ListBox1.Items.Add('Максимальная скорость, км/ч.' + ' -n.a.'); ListBox1.Items.Add('Средний расход топлива, л/100 км.' + ' -9.9'); ListBox1.Items.Add('Тип топлива ' + ' -бензин неэтилированный'); Image1.Picture.LoadFromFile('Image/SUPRA.bmp'); End; If ComboBox2.Text = 'Pajero 3000 V6-24V' Then begin ListBox1.Items.Add(' Кузов:'); ListBox1.Items.Add('Количество дверей' + '-4'); ListBox1.Items.Add('Количество мест' + '-5'); ListBox1.Items.Add(' Двигатель:'); ListBox1.Items.Add('Число и расположение цилиндров' + '-V6'); ListBox1.Items.Add('Расположение двигателя' + ' -спереди, продольно'); ListBox1.Items.Add('Рабочий объем, куб.см.' + ' -2972'); ListBox1.Items.Add('Диаметр цилиндра и ход поршня' + ' -91.1 x 76.0'); ListBox1.Items.Add('Степень сжатия' + ' -9'); ListBox1.Items.Add('Число клапанов на цилиндр' + ' -4'); ListBox1.Items.Add('Система питания' + ' -многоточечный впрыск'); ListBox1.Items.Add('Наличие наддува' + ' -нет'); ListBox1.Items.Add('Мощность, л.с.(кВт) при 1/мин.' + '181(133)/5500'); ListBox1.Items.Add('Крутящий момент, Н/м' + ' -255/4500'); ListBox1.Items.Add('Тип проивода' + ' -постоянный на все колеса'); ListBox1.Items.Add('Число передач автоматической КП' + ' -4'); ListBox1.Items.Add('Число передач механической КП' + ' -5'); ListBox1.Items.Add(' Ходовая часть:'); ListBox1.Items.Add('Передняя подвеска' + ' -поперечный стабилизатор'); ListBox1.Items.Add('Тормоза передние/задние' + ' -дисковые вентилир.'); ListBox1.Items.Add('Наличие АБС' + ' -Да'); ListBox1.Items.Add('Шины ' + ' -265/70 R 15 Н'); ListBox1.Items.Add(' Общие данные:'); ListBox1.Items.Add('Разгон с места до 100 км/ч, с.' + ' -11.1'); ListBox1.Items.Add('Максимальная скорость, км/ч.' + ' -175'); ListBox1.Items.Add('Средний расход топлива, л/100 км.' + ' -13.7'); ListBox1.Items.Add('Тип топлива ' + ' -бензин '); Image1.Picture.LoadFromFile('Image/ПАДЖЕРО1.bmp'); end;
Если не даешь мне денег на жизнь, не учи меня жить!!!
|
17.12.2006, 17:55 | #9 |
Павел Сергеевич
Форумчанин
Регистрация: 05.11.2006
Сообщений: 665
|
Нижимешь Расширеннфй режим и в Дополнительных опциях (ниже поля редактирования) есть кнопка "управление вложениями"
Познавая других, мы познаем себя.
С'est la vie... |
17.12.2006, 18:21 | #10 |
Пользователь
Регистрация: 13.12.2006
Сообщений: 13
|
Спасибо нашел. Но раньше почему то жтой кнопки не было, было тока "разрешенный типы файлов"
Если не даешь мне денег на жизнь, не учи меня жить!!!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Классы в php | Romanbl4 | PHP | 3 | 08.08.2008 07:09 |
Классы | Старовъръ | Общие вопросы Delphi | 4 | 26.06.2008 17:00 |
массив указателей на методы класса? | cout | Общие вопросы C/C++ | 2 | 08.05.2008 09:43 |
Классы | Voucik | Общие вопросы C/C++ | 2 | 22.01.2008 17:03 |