Задача на файлы в Pascal ABC. Найти нужное
Помогите, пожалуйста доделать. Как найти игрушки стоимостью меньше 4 и для возраста подходящие? И как в ответ это вывести? Дан файл f, содержащий сведения об игрушках: указывается название игрушки (например, кукла, кубики, мяч, конструктор и т.д.), ее стоимость в копейках и возрастные границы детей, для которых игрушка предназначена (например, для детей от двух до пяти лет). Получить следующие сведения:
а) название игрушек, цена которых не превышает 4 руб. и которые подходят детям 5 лет; program v517; Type Toy = record // тип игрушка name : string; // название price : integer; // стоимость age : integer; // возрастные границы a: boolean; end; var f : text; // переменая для работы с файлом i : integer; // счетчик size : integer; // кол. игрушек maxAge : integer; // макс. возрастная граница maxPrice : integer; // макс цена игрушки mas : array [1..100] of Toy; // контейнер игрушек begin assign(f, 'input.txt'); // связываем переменную с файлом reset(f); // открываем файл на чтение i := 1; // 1 игрушка maxPrice := 400; // макс цена = 400 maxAge:=5; //макс. возрастная граница = 5 while (not eof(f)) do // пока не дошли до конца файла begin readln(f, mas[i].name); // считываем данные об игрушке readln(f, mas[i].price); readln(f, mas[i].age); maxAge > mas[i].age; //найти все до 5 лет writeln end; end. |
Уже не нужно. Решила) Спасибо.
|
Часовой пояс GMT +4, время: 02:46. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.