Архив компьютерного форума, Очень нужна помощь, Delphi, Срочно нужна помощь в решении данной задачи.Я б и сама с удовольствием,да вот нету у меня на компьютере Delph

Не, ну какое сохранение в базу, если тут не идет речь даже о чтении из нее. :) И хотя по идее этот вариант наболее вероятен в реальной системе, думаю тут на это можно смело положить. Тем более, если "впарить преподу не проблема".
Что бы совсем отвязаться от БД можно написать структуру (record, думаю класс тут ни к чему), содержащую 4 необходимых поля, передавать массив структур, как бы считанный из БД в требуемую функцию. Внутри функции написать цикл, пробегающий по всем записям, при этом сохраняя самое минимальное и самое максимальное значение цены. И в Result добавить их разницу.

type TPriceClassifier = record begin
A:string[5]
B:string[5]
C:string[20]
Price:Currency;
end;

type TPriceClassifiersRecords = Array of TPriceClassifier

function GetVarDimension(PriceClassifiers: TPriceClassifiersRecords):Currency
var i:integer;
var cMin, cMac: Currency;

begin
cMin: = PriceClassifiers[0].Price;
cMax: = cMin;
for i = 1 to Length(PriceClassifiers)-1
begin
if (PriceClassifiers[i].Price > cMax) then cMax := PriceClassifiers[i].Price
else
if (PriceClassifiers[i].Price < cMin) then cMin := PriceClassifiers[i].Price;
end;
Result := cMax - cMin;
end;

Вообще говоря для задачи совершенно неважны 3 осташиеся текстовых поля структуры. Поэтому вместо стреутуры можно передавать просто массив Currency и работать непосредственно с ним: ведь никакого отчета от функции не требуется, а стало быть и названия товаров ни к чему. Но это уж смотрите сами.

P.S. Если встретите какую-нить синтаксическую неточность, прошу извинять: на дельфике не писал уже лет 5. Да нет его у меня нигде поблизости. Вот если бы был нужен пример на c++ - тогда и на "компилируемость" проверил бы. :)

P.P.S. А девушка видимо вообще не рубит в том, чему ее учитат: не отлько даже приблизительно не знает как сделать, но и даже соответствующего ПО на компе не держит. Демаю ни один препод не дал бы писать прогу на делфике, если бы весь симестр обучал студентов Сям. :))))

Очень нужна помощь

Текстовая версия форума: Архив компьютерного форума