Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 08.03.2015, 17:48   #1
Xo6ut
Пользователь
 
Регистрация: 23.04.2013
Сообщений: 76
По умолчанию Типизированные файла

Delphi. Есть файл с таким содержимым
Иванов И.И. ФМ-1-02 Высшая математика 4
Петров П.П. ФМ-1-02 Высшая математика 3
Сидоров С.С. ФМ-2-02 Физика 3
Иванов И.И. ФМ-1-02 Физика 5
Петров П.П. ФМ-1-02 Физика 4
Иванов И.И. ФМ-1-02 Информатика 4
Сидоров С.С. ФМ-2-02 Информатика 5
Кузнецов К.К. ФМ-2-02 Физика 3
Петров П.П. ФМ-1-02 Философия 4
Кацман К.К. ФМ-3-02 Философия 5
Нужно сделать, чтобы при нажатии «Ввод» - при выборе этого предложения должен производиться ввод из файла
SESSION.TXT сведений о сдаче экзаменационной сессии студентами, представленных в виде стандартных записей, каждая из которых содержит ФИО студента (17 знаков), группу (8 знаков), название дисциплины (20 знаков), полученную на экзамене оценку (1 знак).
Как это реализовать?
Xo6ut вне форума Ответить с цитированием
Старый 08.03.2015, 18:53   #2
Xo6ut
Пользователь
 
Регистрация: 23.04.2013
Сообщений: 76
По умолчанию

Есть идеи у кого?
Xo6ut вне форума Ответить с цитированием
Старый 08.03.2015, 18:58   #3
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Есть. Описать все через записи.
Впрочем если это не устаривает, считывай записи и функцией copy() получай данные.
Например
Код:
readln(файл,s);
i:=1;
k:=17; ФИО:=copy(s,i,k); inc(i,k);
k:=8;   Группа:=copy(s,i,k); inc(i,k);
k:=20; Дисциплина:=copy(s,i,k); inc(i,k);
k:=1;  Оценка:=copy(s,i,k); inc(i,k);
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 08.03.2015, 19:02   #4
Xo6ut
Пользователь
 
Регистрация: 23.04.2013
Сообщений: 76
По умолчанию

Скорее тут через записи нужно, как это правильно записать?
Xo6ut вне форума Ответить с цитированием
Старый 08.03.2015, 19:15   #5
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,629
По умолчанию

Цитата:
Есть идеи у кого?
тут и идеи не нужны, делается за 10 минут во время перекура или за 15 – по пьяни в коматозе.
так и будешь по форумам шариться в поисках халявы или скачаешь матчасть с примерами? в матчасти точно есть пример(ы) и по сабжу, кстати.
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Старый 08.03.2015, 19:26   #6
Xo6ut
Пользователь
 
Регистрация: 23.04.2013
Сообщений: 76
По умолчанию

Я не могу понять как работать с готовым файлом, если я бы этот файл сам формировал , а потом считывал...
Xo6ut вне форума Ответить с цитированием
Старый 08.03.2015, 19:33   #7
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,629
По умолчанию

Цитата:
Я не могу понять как работать с готовым файлом, если я бы этот файл сам формировал , а потом считывал...
это ты к кому обращаешься?
Цитата:
не могу понять
почему?
Цитата:
с готовым файлом
дай файл.
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Старый 08.03.2015, 19:36   #8
Xo6ut
Пользователь
 
Регистрация: 23.04.2013
Сообщений: 76
По умолчанию

Вот файл.
Вложения
Тип файла: txt SESSION.TXT (482 байт, 151 просмотров)
Xo6ut вне форума Ответить с цитированием
Старый 08.03.2015, 19:40   #9
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
как работать с готовым файлом
Цитата:
Есть файл с таким содержимым
Цитата:
Скорее тут через записи нужно
Топай-ка к преподу и задай ему этот вопрос. Типизированным файл, что приведен в теме назвать нельзя, поэтому записи тут бессмыслены. Не ну можно изгибнуться и сделать через
Код:
rec=record
 fio:array[1..17] of char;
 Group:array[1..8] of char;
 Disc:array[1..20] of char;
 Ball:char;
 Enter:array[1..2] of char;
end;
...
f:file of rec;
И считывать так его обычным образом, но...
В общем к преподу топай.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 08.03.2015, 19:41   #10
Xo6ut
Пользователь
 
Регистрация: 23.04.2013
Сообщений: 76
По умолчанию

Задание на работу:
1. Открыть папку TEMА05 в своем каталоге на рабочем диске.
2. Обратиться к среде Delphi. Разработать программу-приложение, при запуске кото-
рой должна появляться форма с заголовком «Обработка данных о сдаче сессии» и с
меню, включающим следующие предложения:
3. «Ввод» - при выборе этого предложения должен производиться ввод из файла
SESSION.TXT сведений о сдаче экзаменационной сессии студентами, представ-
ленных в виде стандартных записей, каждая из которых содержит ФИО студента
(17 знаков), группу (8 знаков), название дисциплины (20 знаков), полученную на
экзамене оценку (1 знак).
4. «Студенты» - должны проводиться расчеты и формироваться таблица, обобщаю-
щая данные по каждому студенту и включающая 3 колонки: ФИО студента, число
сданных дисциплин, средний балл. Таблица должна отображаться на отдельной
форме.
5. «Дисциплины» - должны проводиться расчеты и формироваться таблица, обобща-
ющая данные по каждой дисциплине и включающая 3 колонки: название дисци-
плины, число студентов, сдавших экзамен по дисциплине, средний балл по данной
дисциплине. Таблица должна отображаться на отдельной форме.
6. «Выход» - завершение выполнения программы.
7. Присвоить проекту имя – производное от своей фамилии: 5 латинских букв + циф-
ра «5» + символы «pr». Присвоить модулям формы имя: те же 5 букв, что и в про-
екте + «5» + символы «uХ», где Х – порядковый номер модуля. Закрыть приложе-
ние.
8. Внести в приложение изменения и дополнения по указанию преподавателя.
Вот как выглядит все задание
Xo6ut вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Типизированные файлы Krasopetka Паскаль, Turbo Pascal, PascalABC.NET 2 16.11.2011 18:33
Типизированные файлы Lev.F Помощь студентам 5 16.06.2010 16:17
Типизированные файлы surf135 Помощь студентам 1 14.06.2010 11:55
Типизированные файлы qwertytol Помощь студентам 2 02.06.2009 08:44
Типизированные файлы.Создание, удаление, редактирование, сортировка записей типизированного файла.Паскаль Студент Шиза Помощь студентам 6 08.12.2007 13:41