Л. И. Долинер основы программирования в среде pascalabc. Net учебное пособие
 Скачать 1.88 Mb.
|
|
f_ntx1.pas . В файле хранится программа, читающая информацию, создаваемую программой из предыдущего задания. Выполните следующее: а) программа испорчена – вместо одной из строк программы поставлен комментарий из звездочек. Восстановите эту строку (ее смысл поясняется комментарием, расположенным правее). Проверьте правильность работы программы (данные, хранящиеся в файле stud.dat , известны); б) измените программу так, чтобы она после вывода всех чисел вывела среднее арифметическое этих чисел; в) выполните программу f_ntx2.pas и введите произвольный набор чисел; г) измените программу f_ntx1.pas так, чтобы на экран выводились числа, значения которых не меньше заданного числа. Задание 183 Составьте программу, которая создает сразу два файла. Первый файл (назовем его fam.dat) должен содержать название товара, второй (costs.dat) – его стоимость. Ввод данных с экрана должен осуществляться последовательно: название товара, его стоимость, название товара, его стоимость... Задание 184 Пусть дан файл fam.dat, содержащий название товара, и costs.dat, содержащий цены этих товаров. Составьте программу, которая определяет: а) название самого дорогого товара; б) название самого дешевого товара; в) среднюю стоимость товаров. 127 Задание 185 Имеются две программы, записывающие одну и ту же числовую информацию в файлы: а) program a1; var x:real:= 3569.45603; f: text; begin assign(f,'num1.dat'); rewrite(f); repeat writeln(f,x); x+=1 until x>3579.45603; close(f) end. б) program a2; var x:real:= 3569.45603; f:file of real; begin assign(f,'num1.dat'); rewrite(f); repeat writeln(f,x); x+=1 until x>3579.45603; close(f) end. Определите размеры файлов в байтах. Какой из файлов будет занимать больше места на диске? Задачи для самостоятельной работы 1. Создайте программу, которая с помощью датчика случайных чисел создаст файл вещественных чисел. Программа должна заменить в файле все элемен- ты на их квадраты. 2. Дан файл, содержащий различные даты. Каждая дата – это число, месяц, год. Найти год с наименьшим номером. 3. Дан файл, содержащий сведения об учениках школы. Каждая запись включа- ет имя, фамилию, название класса (год обучения и букву), в котором ученик учится. Составьте программу, с помощью которой можно: выяснить, имеются ли в школе однофамильцы; определить, имеются ли однофамильцы в параллельных классах; то же, в каком-нибудь классе; выяснить, в каких классах насчитывается менее 25 учеников; выяснить, на сколько человек в девятых классах больше, чем в одиннадцатых; сформировать в текстовом файле список учеников заданного класса. 4. Дан файл, содержащий сведения об автомобилях. Каждая запись включает марку автомобиля, его номера и фамилии владельца. Составьте программу, с помощью которой можно определить: 128 фамилии владельцев и номера автомобилей данной марки; количество автомобилей каждой марки. 5. Составьте программу, которая создает типизированный файл, содержащий информацию о работниках института. Помимо ввода информации программа должна обеспечить вывод: среднего стажа работы в институте; фамилий работников, работающих на должности инженера; работников, фамилии которых начинаются с заданной буквы; фамилий работников, у которых оклад больше (меньше) заданного пользователем; фамилий работников пенсионного и предпенсионного возраста. 6. Имеется типизированный файл, содержащий данные о работающих в фирме: фамилию, имя, отчество, адрес (улица, дом, квартира) и дату поступления на работу (месяц, год). Во второй файл запишите данные только о тех из них, кто на сегодняшний день проработал не менее 5 лет. Затем расположите в файле записи в алфавитном порядке по фамилиям. 7. Имеется типизированный файл, содержащий данные об учениках школы: фа- милию, имя, отчество, адрес (улица, дом, квартира), класс. Во второй файл запишите все данные об учениках определенного класса. Затем расположите в файле записи в алфавитном порядке по фамилиям. Выведите содержимое файла, выделяя тех, кто живет на заданной улице. Пригласите преподавателя и продемонстрируйте ему сделанные вами про- граммы. Будьте готовы ответить на вопросы преподавателя. Если вы обучаетесь в условиях использования дистанционных образовательных технологий, вышлите все файлы с подготовленными вами программами препо- давателю. |