Сильно не пинайте, только учусь. Нужно написать программку, в стиле "объектно-ориентированного" программирования. Вот код:
program TrainsMaxSpeed;
uses
SysUtils, Dialogs;
type Train = class //Класс поездов
MaxSpeed1, MaxSpeed2:Integer; //Максимальная скорость 1 и 2 поезда
function Sorting (S:Integer):Integer;//Функция определения кто быстрее
constructor Create (MS1, MS2:Integer);// Конструктор
end;
constructor Train.Create(MS1, MS2: Integer); // Описываем конструктор
begin
MS1:=MaxSpeed1; //Макс. скорость 1 поезда
MS2:=MaxSpeed2; //Макс. скорость 2 поезда
end;
function Train.Sorting(S:Integer):Integer; //Описываем функцию сортировки (кто быстрее)
begin
if MaxSpeed1>MaxSpeed2 then Result:=1 //Определяем кто быстрее
else Result:=2;
end;
var
PrintTrain:Train; //Объявляем переменную с типом "Train"
begin
PrintTrain:=Train.Create(10,12); //Задаем данные для обсчета
ShowMessage (IntToStr (PrintTrain.Sorting())); //здесь происходит ошибка "Not enough actual parameters"
end.
Она должна сказать какой поезд быстрее, но в конце при выводе результата происходит ошибка, сижу уже часа 2, не знаю что сделать, и вывести пытался в отдельную процедуру и просто так оставить, не помогает. Помогите решить и объясните что я написал не так. Не смогу успокоиться пока она не заработает))))
program TrainsMaxSpeed;
uses
SysUtils, Dialogs;
type Train = class //Класс поездов
MaxSpeed1, MaxSpeed2:Integer; //Максимальная скорость 1 и 2 поезда
function Sorting (S:Integer):Integer;//Функция определения кто быстрее
constructor Create (MS1, MS2:Integer);// Конструктор
end;
constructor Train.Create(MS1, MS2: Integer); // Описываем конструктор
begin
MS1:=MaxSpeed1; //Макс. скорость 1 поезда
MS2:=MaxSpeed2; //Макс. скорость 2 поезда
end;
function Train.Sorting(S:Integer):Integer; //Описываем функцию сортировки (кто быстрее)
begin
if MaxSpeed1>MaxSpeed2 then Result:=1 //Определяем кто быстрее
else Result:=2;
end;
var
PrintTrain:Train; //Объявляем переменную с типом "Train"
begin
PrintTrain:=Train.Create(10,12); //Задаем данные для обсчета
ShowMessage (IntToStr (PrintTrain.Sorting())); //здесь происходит ошибка "Not enough actual parameters"
end.
Она должна сказать какой поезд быстрее, но в конце при выводе результата происходит ошибка, сижу уже часа 2, не знаю что сделать, и вывести пытался в отдельную процедуру и просто так оставить, не помогает. Помогите решить и объясните что я написал не так. Не смогу успокоиться пока она не заработает))))