IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Файл записей
сообщение
Сообщение #1


Гость






В поиске находила по инфо по файлам записей,но сделать свою задачу не смогла.
Если можете-помогите.
Создать типизированный файл записей,решить задачу используя данный типа запись.
Условие:
О каждом студенте известно фамилия и оценка за экзамен(3,4,5).Вывести список студентов так,чтобы сначала шли фамилии тех кто получил 5,потом тех кто получил 4,а в конце всех остальных. Порядок следования студентов,получивших одну и туже оценку сохраняется!
Плиз,очень прошу помощи!
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Много очень похожих задач про студентов и оценки уже решены, ищи "Студенты", "Оценки" и т.д.

А смысл твоей задачи сводится к сортировке набори записей, находящихся с кажем в массиве, в который ты их прочитала из файла по полю "оценка".

Еще советую заглянуть сюда: Записи. Record. и сюда Файлы


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






просмотрела,но нет.не сделала.
как произвести эту сортировку?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






Если кто-то может,то решите эту программу. Не понимаю я записи(((Сэнкс
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гость






А если сделать файл тектовым, то программу оставлять такой такой же, только писать чтение из файла по-другому?
type stud=record
name:string;
bal:byte;
end;

var b:stud; f:text; i:byte;
begin
clrscr;
assign(f,'f.txt');
reset(f); writeln;
while not eof(f) do
begin
readln(f,b.name,b.bal);
writeln(b.name,' ',b.bal);
end;
close(f);

Где тут ошибка подскажите пжлста.....
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Бывалый
***

Группа: Пользователи
Сообщений: 222
Пол: Мужской
Реальное имя: Andrew

Репутация: -  0  +


Записи можно записывать только в типизированные файлы,т.е в файл типа byte,ты записать, например b.bal ,не сможешь,т.к у него другой тип. объявление файла должно быть таким,
type stud=record
name:string;
bal:byte;
end;

var
f: file of stud;


Также чтение и запись в типизированные файлы производиться ТОЛЬКО с помощью процедур write и read.
Почитай книгу,записи не так уж и тяжело понять.Тут самое сложное это сортировка.

Сообщение отредактировано: Andrewshkovskii -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Гость






А если выходной файл должен быть текстовым,то что делать? Сам файл создан,а впрограмме как?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Бывалый
***

Группа: Пользователи
Сообщений: 222
Пол: Мужской
Реальное имя: Andrew

Репутация: -  0  +


Цитата

Гость


В поиске находила по инфо по файлам записей,но сделать свою задачу не смогла.
Если можете-помогите.
Создать типизированный файл записей,решить задачу используя данный типа запись.


Где тут речь о текстовом файле?
Ты можешь сохранять файл в любом формате,вот пример

var
path:string;
f:file of stud;
begin
....
...
Writeln('Vvedite pyt i imya faila');
readln(path);
assign (f,path);
rewrite(f);
write(f,b.bal);
close(f);
...
...
end.


при вводе пути и имени,укажи допустим,test.txt,и все.

Сообщение отредактировано: Andrewshkovskii -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Цитата
Ты можешь сохранять файл в любом формате,вот пример


Приведенный тобой код работать не будет.

 ! 
7. Проверяйте программы перед тем, как разместить их на форуме!!!
устное замечание





--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 2.10.2020 0:50
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name