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

[Serge_Bliznykov]

Vlad51, я задал Вам вопросы (см. пост #18)
будем отвечать или будем шутки шутить?

[Serge_Bliznykov]

Всё понятно. Видно, оно так сильно Вам надо...

продолжение "Парада невиданной щедрости"

(*
1)Получить название самой дешевой игрушки 
2)Определите стоимость всех кукол для детей шести лет.
*)

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;

{ 1)Получить индекс в массиве самой дешевой игрушки  }
function getIndexCheapest(ar:tArr; size:integer):integer;
var i, IndexCheapest :integer;
begin
  IndexCheapest:=1;
  for i:=2 to size do
   if ar[i].price<ar[IndexCheapest].price then IndexCheapest := i;
  getIndexCheapest := IndexCheapest
end;

{2)Определите стоимость всех кукол для детей шести лет.
  результат вывести в текстовый файл и на экран}
procedure task2(ar:tArr;size:integer);
var i:integer;
  f:text;
  tmp:real;
begin
    assign(f,'result.txt');
    rewrite(f);
    WriteLn(f,'------------------------');
    tmp:=0;    
    for i:=1 to size do
     with ar[i] do
      begin
         if (name='кукла') and (ageFrom<=6) and (ageTo>=6) 
           then begin
             tmp:=tmp+price;
             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;
    WriteLn(f, 'Стоимость всех кукол для детей шести лет: ',tmp:3:2);
    WriteLn('Стоимость всех кукол для детей шести лет: ',tmp:3:2);
    close(f);
end;


var 
  N, idx: integer;
  a: tArr;

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

  {1)Получить название самой дешевой игрушки  }
  idx := getIndexCheapest(a, n);
  WriteLn('самая дешёвая игрушка это ', a[idx].name, ' с ценой ', a[idx].price:2:2 );


  task2(a,n);
  readln;
end.

[Vlad51]

Спасибо большое )

[Serge_Bliznykov]

пожалуйста.