Описать процедуру присваивающую параметру Ц наименьшую цену из непустого прейскуранта П.

[Prohozhii]

Type цена =record руб:0..maxint;
коп:0..99
end;
прейскурант=file of цена;
Описать процедуру min(П,Ц), присваивающую параметру Ц наименьшую цену из непустого прейскуранта П.

[asmodey1]

Ну и что тут сложного ???
Вот тут ответ:
http://programmersforum.ru/forumdisplay.php?f=29

[Prohozhii]

Пардон конечно...Но тут, это где? По-точнее ссылку, если не сложно...

[phomm]

asmodey1, +1 , но всё-таки троллинг ))

Уважаемый автор темы (ТС), если Вы столкнулись со сложностями в написании программы, то приводите код и конкретный вопрос, что и почему не получается. В противном случае, Ваша тема выглядит приказом сделать Вам бесплатно курсовую/контрольную/подчеркнуть что надо. Если код будет и что-то у Вас действительно застопорилось, то поможем разобраться, а иначе задание стоит денег, либо обращайтесь во фриланс(ссылка выше как раз ведёт туда), ну или пишите по контактам отозвавшихся в даннной теме ))

[Prohozhii]

type
  TPrice = packed record
    RUR: 0..MaxInt; // рубли
    RUC: 0..99;       // копейки
  end;
  TPriceCurrent = file of TPrice;
..
procedure Min(PriceCurrent: TPriceCurrent; out MinPrice: TPrice);
var
  NextPrice: TPrice;
  bFirstRecord: Boolean;
begin
  bFirstRecord := True;
  while not Eof(PriceCurrent) do begin
    Read(PriceCurrent, NextPrice);
    if bFirstRecord then begin
       MinPrice := NextPrice;
       bFirstRecord := False;
    end else if (NextPrice.RUR <= MinPrice.RUR) and (NextPrice.RUC <= MinPrice.RUC) then
       MinPrice := NextPrice;
  end;
end;

Вотс...Но что-то процедура по какой-то причине все равно работать не желает...(



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[phomm]

Если честно, давно не работал со стандартным вводом-выводом, всё как-то быстрее через потоки пишу, но возможно косяк в том, что цены на каждой строке, а считываете простым read'ом , а по идее надо readln , а так всё остальное вроде нормально, на мой взгляд
Ещё могу посоветовать написать не procedure Min(PriceCurrent: TPriceCurrent; out MinPrice: TPrice); а procedure Min(var PriceCurrent: TPriceCurrent; out MinPrice: TPrice); но это не должно, на мой взгляд влиять на результат, просто не создается локальной копии

[Serge_Bliznykov]

возможно косяк в том, что цены на каждой строке, а считываете простым read'ом , а по идее надо readln

не-не-не!!! Ни в коем разе! Readln здесь точно не нужен! Впрочем, , если я не ошибаюсь, Readln(PriceCurrent,...) даже не откомпилируется!
Readln допустим ИСКЛЮЧИТЕЛЬНО для текстовых файлов (ну для стандартного input'а - т.к. он, по сути, тоже текстовый.
для типизированных файлов только Read()


Prohozhii, дайте полный код программы.
в чём проявлеятся то, что программа не работает?
Файл PriceCurrent существует? Не пустой?
Файл PriceCurrent открыт? А где в нём указатель?
Возможно, что поможет банальная установка указателя на начало:

bFirstRecord := True;
Seek(PriceCurrent,0);
while not Eof(PriceCurrent) do begin

дальше.
Проверка на минимальность у Вас ОШИБОЧНАЯ!

По Вашей логике 1.95 БОЛЬШЕ чем 500.01
из-за вот этого and (NextPrice.RUC <= MinPrice.RUC)
измените проверку на :

else if ( (NextPrice.RUR*100 + NextPrice.RUC )  <= (MinPrice.RUR*100 + MinPrice.RUC) ) then ....