Паскаль, файл с данными

[Алина-малина]

Пожайлуста помогите, думаю несложно, хотя я все равно не могу)) Составила лишь вспомогательную, и то незнаю правильно или нет)

Дан файл f, содержащий сведения об игрушках: указывается название игрушки (н-р кукла, кубики, мяч, конструктор и т.д.), ее стоимость и возрастные границы детей, для которых игрушка предназначена (н-р для детей от 2-х до 5 лет)
Получить следующие сведения: Можно ли подобрать игрушку, любую, кроме мяча, подходящую ребенку 3-х лет, и дополнительно мяч так, что бы суммарная стоимость игрушек не превосходила 100р

ВОт мое начало))

Program vspom;
type igryshki = RECORD
NAZVANIE: string[20];
Stoimost: 10..200;
Vgranicy: string[10];- или здесь как-то иначе? 
end;
VAR f:file of igryshki; a:igryshki; i,n:byte;
Begin
     Assign (f,'C:\123.dat');
     Rewrite (f);
     write ('vvedite n='); readln (n);
     For i:=1 to n do begin
     write ('vvedi Nazvanie='); readln (a.NAZVANIE);
     write ('vvedi stoimost='); readln (a.stoimost);
     write ('vvedi Vgranicy='); readln (a.Vgranicy);
     write (f,a);
     end;
     close(f);
     end.

[Stilet]

Ну допустим файл уже набит тогда примерно так:

Reset (f);
while not eof(f) begin read(f,a);
if (a.NAZVANIE<>'Мяч')and(a.stoimost+Stoim_macha<=100)and(a.vgranicy=3) then begin
 write ('Nazvanie=',a.NAZVANIE);
 write ('stoimost=',a.stoimost);
end;
end;
close(f);

А до этого ты в переменку Stoim_macha должна пихнуть стоимость мяча.

[puporev]

Я так понимаю, что файла такого еще нет, поскольку он типизированный (кто ж Вам его сделает) и его надо создать.

uses crt;
type Tigr=record  // не люблю длинных имен идентификаторов
          naz:string[20];
          stm:10..200;
          vz_min,vz_max:1..12;//нижняя и верхняя границы
          end;
var sp:array[0..100]of Tigr;
    f:file of Tigr;
    st_m:10..200;
    n,i,k:integer;
    c:char;
begin
clrscr;
assign(f,'123');
rewrite(f);
n:=0;
repeat
writeln('Игрушка ',n+1);  //заполняем массив записей
write('Название: ');readln(sp[n].naz); //обязательно включите мяч
write('Стоимость: ');readln(sp[n].stm);
write('Минимальный возраст: ');readln(sp[n].vz_min);
write('Максимальный возраст: ');readln(sp[n].vz_max);
write(f,sp[n]);  //записываем в файл
c:=readkey; //два раза Enter, если продолжаем
n:=n+1;
until c=#27; // Esc и Enter если заканчиваем ввод
clrscr;
reset(f);
n:=0;k:=0;
while not eof(f) do
   begin
    read(f,sp[n]); //читаем очередную запись
    if sp[n].naz='мяч'then st_m:=sp[n].stm;  //запоминаем стоимость мяча
    if (sp[n].vz_min<=3)and(sp[n].vz_max>=3)and(sp[n].naz<>'мяч') //если выполняются все условия
    and(sp[n].stm+st_m<=100) then
       begin
         writeln(sp[n].naz,' cтоимость ',sp[n].stm,' от ',sp[n].vz_min,' до ',sp[n].vz_max);//выводим сведения о игрушке
         k:=1;  //фиксируем совпадение
       end;
   end;
if k=0 then write('Такой игрушки нет!'); //если совпадений нет, сообщаем
close(f);
readln
end.

[Алина-малина]

Stilet, puporev большое спасибо)) оч помогли)) чмок вас)
и еще вопросик по 2решению этой задачи?

c:=readkey;
n:=n+1;
until c=#27; что делают каждая из строк? readkey #27 ?

[Stilet]

c:=readkey; Ждем нажатия клавиши на клаве и сохраняем ее код с переменку
n:=n+1; Инкремент
until c=#27; Пока то чего мы нажали не станет равно 27, а это код клавиши ЕSCAPE мы крутимси в цикле

[puporev]

Переменная с считывает символьное представление кода нажатой клавиши. Когда мы нажимаем клавишу Esc, то переменная с считывает это и передает оператору until сообщение, что пора завязывать с вводом и после нажатия клавишы Enter программа выходит из цикла ввода данных и переходит к выполнению следующих операторов.

[RUSLAN13]

у меня похожая задача!=) только надо вывести названия наиболее дорогих игрушек(цена которых отличается от цены самой дорогой игрушки не более чем на 1 рубль) помогите пожайлуста

[puporev]

Похожая да не совсем. У тебя сначала надо найти стоимость самой дорогой игрушки, это как максимум в массиве, только массив у тебя из записей, а потом читать из ыфайла записи и если max-sp[i].stm<=1 then
writeln(sp[i].naz);

[RUSLAN13]

вот я составил, но не работает? Подскажите в чем ошибка?

Begin assign(f,'H:/RGR3.dat');Reset(f);
writeln('spisok_samyh_dorogih_igrus hek');
while not EOF(f) do begin
read(f,a);a.stoim_t:=max;
If a.stoim_t>max then a.stoim_t:=max;
If (max-a.stoim_t)<=100 then writeln(a.nazv_e);
end;
End.

[RUSLAN13]

P.S. 100 потому что цена в копейках