12.01.2015, 02:06 | #1 (permalink) |
Member
Регистрация: 12.01.2015
Сообщений: 71
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Задача на файлы в Pascal ABC. Найти нужное
а) название игрушек, цена которых не превышает 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. |
12.01.2015, 02:06 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Схожие темы можно найти через поиск, но я помогу вам и вышлю их сюда Pascal, задача Задача. Pascal Задача Pascal ABC Задача на файлы |
12.01.2015, 05:20 | #2 (permalink) |
Member
Регистрация: 12.01.2015
Сообщений: 71
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Уже не нужно. Решила) Спасибо.
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Метки |
pascal abc, задача, файлы |
|
|