Сведения об игрушках,хранящиеся на складе детского магазина,следующие: название игрушки, стоимость в рублях и возрастные границы

[Яна23]

Сведения об игрушках,хранящиеся на складе детского магазина,следующие: название игрушки, ее стоимость в рублях и возрастные границы. Получить название игрушек,цена которых не превышает 500 руб. и которые подходят детям 5 лет. Определите стоимость самого дорогого конструктора.

[Serge_Bliznykov]

Яна, посмотрите тему - http://programmersforum.ru/showthrea...51#post1606051

там предложено решение аналогичной (хотя и немного другой задачи).
Попробуйте разобраться в этом коде и доделать под своё задание.

Если, вдруг, это несложное задание не будет получаться - выкладывайте свои попытки и рассказывайте, что конкретно не получилось.

[Яна23]

я вообще не понимаю как ее даже исправить
решите мою пожалуйста

[Mad_Cat]

Сообщение от Яна23

я вообще не понимаю как ее даже исправить
решите мою пожалуйста

http://programmersforum.ru/showpost....6&postcount=12

[Serge_Bliznykov]

ладно. Парад невиданной щедрости!

(*
Получить название игрушек,цена которых не превышает 500 руб. и которые подходят детям 5 лет. 
Определите стоимость самого дорогого конструктора.
*)

uses crt;

const MaxcountToys=100;

type Ttoy = record
       name:string;
       price:real;
       ageFrom,ageTo:byte;
     end;
     tArr = array [1..MaxcountToys] of Ttoy;


procedure readdata(fileInp : string; var ar:tArr;var nOut:integer);
var f:text;
  tmp:byte;
  sname:string;
begin
    assign(f,fileInp);
    reset(f);
    while not (eof(f)) do
     begin
        ReadLn(f, sname);
        if sname<>'' then begin
          inc(nOut);
          with ar[nOut] do
           begin
              name:=sname;
              readln(f,price,ageFrom,ageTo);
              if(ageFrom>ageTo) then
              begin
                tmp:=ageTo;ageTo:=ageFrom;ageFrom:=tmp;
              end;
           end;
         end;
     end;
    close(f);
end;

procedure outdata(ar:tArr; size:integer);
var i:integer;
begin
  clrscr;
  for i:=1 to size do
   with ar[i] do
   begin
        writeln('Toy #',i,': "',name,'" RUB:',price:2:2,'. Years:',ageFrom,' to ',ageTo);
   end;
end;

{ Определите стоимость самого дорогого конструктора.  }
function getIndexMostExpKonstruct(ar:tArr; size:integer):integer;
var i, Index :integer;
begin
  Index:=-1;
  for i:=1 to size do
   if (ar[i].name='конструктор') then begin
      if Index<0 then 
         Index := i
      else 
         if ar[i].price>ar[Index].price then Index := i;
    end;
  getIndexMostExpKonstruct := Index
end;

{Получить название игрушек,цена которых не превышает 500 руб. и которые подходят детям 5 лет. }
procedure task1(ar:tArr;size:integer);
var i:integer;
  f:text;
  tmp:real;
begin
    assign(f,'result.txt');
    rewrite(f);
    WriteLn(f,'------------------------');
    WriteLn(f,' название игрушек,цена которых не превышает 500 руб. и которые подходят детям 5 лет. ');
    WriteLn(f,'------------------------');
    WriteLn(' название игрушек,цена которых не превышает 500 руб. и которые подходят детям 5 лет. ');
    WriteLn('------------------------');
    for i:=1 to size do
     with ar[i] do
      begin
         if (price<=500) and (ageFrom<=5) and (ageTo>=5) 
           then begin
             writeln('Toy #',i,': "',name,'" RUB:',price:2:2,'. Years:',ageFrom,' to ',ageTo);
             writeln(f, 'Toy #',i,': "',name,'" RUB:',price:2:2,'. Years:',ageFrom,' to ',ageTo);
           end;
      end;
    close(f);
end;


var 
  N, idx: integer;
  a: tArr;

begin
  readdata('toys.txt',a,n);
  writeln(n);
  outdata(a,n);

  { Получить название игрушек,цена которых не превышает 500 руб. и которые подходят детям 5 лет.  }
  task1(a,n);

  { Определите стоимость самого дорогого конструктора. }
  idx := getIndexMostExpKonstruct(a, n);
  if idx<0 then WriteLn('Конструктора в списке игрушек нет')
  else WriteLn('самый дорогой конструктор имеет цену ', a[idx].price:2:2 );


  readln;
end.

файл toys.txt

конструктор
37.20 7 14 
кукла
12.20 3 7
машинка
22.00 6 8
танк
45.00 7 12
кукла
38.50 7 9
мяч
9.00 3 10
кукла
100.00 4 8
конструктор
77.57 9 14 
конструктор
37.20 5 9