Вывести названия наиболее дорогих игрушек

@li_lego · Регистрация: 27.10.2012

Author24 — интернет-сервис помощи студентам

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

Pascal

Type Igr = record {Запись, описывающая игрушку}
   title : string[20]; {Название}
   cena: word; {Стоимость}
   year : word; {Возраст}
 end;
 cat = file of igr; {тип - каталог игрушек}
 Var
   f : cat;
   Assortim : Igr;
   fnm, aut : string;
   y : word;
   i,n:integer;
 Begin
   writeln ('Vvedite imia faila: ');
   readln (fnm); {Получаем имя файла для создания }
   assign (f, fnm); {связываем файл с именем на носителе}
   rewrite (f); {открываем файл для записи (создаём новый)}
   write('vvedite kol. zapisey: '); readln(n);
   for i:=1 to n do
     begin
   {ввод данных}
       writeln ('Название:');
       readln (Assortim.title);
       writeln ('Цена:');
       readln (Assortim.cena);
       writeln ('Возраст:');
       readln (Assortim.year);
       write (f, Assortim); {пишем структуру в файл}
    end;
   close (f); {закрываем файл, чтобы сохранить изменения }
   reset (f); {открываем файл для чтения }
   while not eof (f) do {читаем пока не конец файла}
     begin
       read (f, Assortim); {считываем очередную запись}
       if (Assortim.cena<=4) and (Assortim.year>=5) then {если она удовлетворяет условиям}
         writeln (Assortim.title) {выводим название игрушки}
      end;
   close (f); {закрываем файл}
 end.

@maksim32 · 11.05.2013, 18:15

Вроде исправил:

Pascal

type igr=record {Запись, описывающая игрушку}
  title:string[20]; {Название}
  cena:word; {Стоимость}
  year:word; {Возраст}
 end;
cat = file of igr; {тип - каталог игрушек}
var f:cat;
 Assortim:Igr;
 fnm,aut:string;
 y:word;
 i,n,mxcena:integer;
begin
 write('Имя файла: '); readln(fnm); {Получаем имя файла для создания }
 assign(f,fnm); {связываем файл с именем на носителе}
 rewrite(f); {открываем файл для записи (создаём новый)}
 write('Кол-во записей: '); readln(n);
 for i:=1 to n do begin
  write('Название: '); readln(Assortim.title);
  write('Цена: '); readln(Assortim.cena);
  write('Возраст: '); readln(Assortim.year);
  if Assortim.cena>mxcena then mxcena:=Assortim.cena;
  write(f,Assortim); {пишем структуру в файл}
 end;
 close(f); {закрываем файл, чтобы сохранить изменения }
 reset(f); {открываем файл для чтения }
 while not eof(f) do begin
  read(f,Assortim); {считываем очередную запись}
  if Assortim.cena>=mxcena-100 then writeln(Assortim.title);
 end;
 close(f);
end.

@li_lego · 11.05.2013, 19:45 **[ТС]**

maksim32, Спасибо что подали идею, но вот как сделать что бы именно разница была в 1 рубль то)
а так помойму он все будет просто выводить.

@maksim32 · 11.05.2013, 21:54

Ну, так разница равна рублю, т.к. я нахожу в цикле ввода записей максимальную цену - mxcena. А во время считывания записей из файла я вывожу те названия игрушек, которые меньше рубля, а так как цена измеряется в копейках, то я от максиума отнимаю 100:

Сообщение от maksim32

Pascal
1
if Assortim.cena>=mxcena-100 then writeln(Assortim.title);

Разве не верно?

@li_lego · 12.05.2013, 06:04 **[ТС]**

maksim32, Логично =) . Спасибо.

@li_lego 2 / 2 / 2 Регистрация: 27.10.2012 Сообщений: 110
	11.05.2013, 19:45 [ТС]	3
	maksim32, Спасибо что подали идею, но вот как сделать что бы именно разница была в 1 рубль то) а так помойму он все будет просто выводить. 0

@li_lego 2 / 2 / 2 Регистрация: 27.10.2012 Сообщений: 110
	12.05.2013, 06:04 [ТС]	5
	maksim32, Логично =) . Спасибо. 0

Опции темы

Вывести названия наиболее дорогих игрушек

Решение