Классы и методы класса

[Exploit]

Не могу сделать курсовую, ПОМОГИТЕ ПЛИЗ!!!!


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.

[SuperVisor]

Как я понимаю, это - работа!?

[Exploit]

Это курсовая работа если точнее, короче мне надо сделать курсовик по классам, надо НАСЛЕДОВАНИЕ И ПОЛИМОРФИЗМ, немного сделал если хочешь покажу , тока обьясни как вылажить архив.

[zetrix]

Сообщение от Exploit

Это курсовая работа ...

имелось в виду, что работа платная....

Сообщение от Exploit

обьясни как вылажить архив.

нажми накнопку ОТВЕТИТЬ, или внизу, около быстрого ответа, нажми расширеный режим. Потом на новой страничке увидишь кнопку с надписью Управление Вложениями. Далее думаю сам разберёшься.

[Exploit]

Я думал сдесь форум где помогают и подсказывают людям, а сдесь какие-то барыги, спасибо сам разберусь!!!

[zetrix]

Просто мы отвечаем на конкретные вопросы, а не делам за других курсовые.

А насчёт барыг... Зделаю я эту курсовую (потрачу 3-4 дня, а может неделю) и что? Под конец года, у всех напряг со временем... Толи на вопрос ответить, толи всё написать.. А что ты тогда будешь делать? Оформишь и сдашь? Медвежья услуга получается... За бесплатно редкий чел возьмётся курсовую делать.

спасибо сам разберусь!!!

Вот видишь, ты даже сам не начал разбирать, а просто выложил на кучу форумов: "пусть порешают". Потом по кусочкам соберёшь, и всё курсовая готова.
Лучше сам давай делай, будут сложности (конкретно в чём-то) - поможем

[Exploit]

Извени не хотел обидеть, просто надоело рыться в учебниках и читать эл.книги где ничего понять не могу. А курсовик уже ячерез неделю сдавать.
А насчет твоих слов:

Сообщение от zetrix

Просто мы отвечаем на конкретные вопросы, а не делам за других курсовые.

то я и не просил делать за меня всю курсовую, а попросил объяснить как вылажить фаил (кстати так и не нашел), что бы показать что сделал и добавил что осталось тока НАСЛЕДОВАНИЕ и ПОЛИМОРФИЗМ

вот КОД:
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.

[Exploit]

вот продолжение, просто на одну строницу все не влезло.


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;

[SuperVisor]

Сообщение от Exploit

а попросил объяснить как вылажить фаил (кстати так и не нашел), что бы показать что сделал и добавил что осталось тока НАСЛЕДОВАНИЕ и ПОЛИМОРФИЗМ

Нижимешь Расширеннфй режим и в Дополнительных опциях (ниже поля редактирования) есть кнопка "управление вложениями"

[Exploit]

Спасибо нашел. Но раньше почему то жтой кнопки не было, было тока "разрешенный типы файлов"