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

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

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

2 страниц V < 1 2  
 Ответить  Открыть новую тему 
> Списки, Считать с файла
сообщение
Сообщение #21


Пионер
**

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

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


оказывается мне ещё надо это все разместить в типизированном файле.т.е надо его создать и внести туда head2,tail2 ) т.е строки в новом файле должны выглядеть так:
Цитата

Сидоров Василий Васильевич 5 5 4 4.7
Юрьев Алексей Юрьевич 4 5 5 4 4.5

получается надо создать файл и разместить всё это в нём.Это делается так?

begin
...
....
head2:=nil;
assign(n,'sot2.txt');
rewrite(n)
while p<>nil do begin
write(n,{???});
p:=p^.next;
end{while}
close(n);
end.


Добавлено через 11 мин.
и всё-таки я думаю,что я как всегда намудрил в программе. blink.gif вот программа:
Прикрепленный файл  1_1.PAS ( 3.77 килобайт ) Кол-во скачиваний: 267

Вот то,на чём тестил:
Прикрепленный файл  SOT.TXT ( 162 байт ) Кол-во скачиваний: 267

заранее благодарен за помощь!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #22


Гость






begin  
...
assign(n,'sot2.dat'); { <--- Файл типизированный, не вводи пользователя в заблуждение }
rewrite(n)

p := head2;
while p<>nil do begin
write(n, p^); { <--- Правда поле next после записи будет содержать мусор, но ... }
{
надо сразу давать полное задание - видишь, к чему приводят "костыли"?
теперь чтобы от этого избавиться надо переписывать программу!
}
p:=p^.next;
end{while}
close(n);
end.

 К началу страницы 
+ Ответить 
сообщение
Сообщение #23


Пионер
**

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

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


ну,так получилось.Мне просто преподаватель условие добавила.Я не виноват(
А много там надо переписывать??? Мне просто надо,чтобы все работало(
Цитата

while p<>nil do begin
write(n, p^); {<---Здесь у меня выдаёт ошибку 64:Cannot Read or Write variables of this type.}
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #24


Гость






Я что, тепепат, знать как именно ты описываешь файл N ?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #25


Пионер
**

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

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


а как его надо описать?
n:text ?
много там надо переписывать в моей пограмме???



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


Пионер
**

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

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


погмогите пожалуйста(
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #27


Гость






Я уже говорил тебе, что ты в задании делаешь одно, а в условии у тебя - совсем другое? Опять то же самое:

Цитата(Rom1k @ 17.05.2007 18:46)
оказывается мне ещё надо это все разместить в типизированном файле.


Цитата(Rom1k @ 17.05.2007 19:35)
а как его надо описать?
n:text ?

Вот когда ты решишь для себя, типизированный файл тебе нужен, или все-таки текстовый, тогда приходи...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #28


Пионер
**

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

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


ну,да.мне нужно в типизированном файле.Тогда как его объявить?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #29


Гость






Тогда объяви
var n: file of TData;

и будет тебе счастье... Только чтобы просмотреть его тебе понадобится написать еще одну программу, я так понимаю, это будет следующий костыль, который тебя заставит делать преподаватель... Так что будь готов smile.gif
 К началу страницы 
+ Ответить 
сообщение
Сообщение #30


Пионер
**

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

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


volvo если Вам не тяжело, вы можете посмотреть мою программу.
Вообще в файл типизированный не понятно что записывает,что делать?

Добавлено через 4 мин.
Вот программа: Прикрепленный файл  1_1.PAS ( 3.93 килобайт ) Кол-во скачиваний: 260


Добавлено через 4 мин.
надо,чтобы нормально в файле всё выводилось...подскажите пожалуйста,что надо делать?

Добавлено через 18 мин.
Цитата(volvo @ 17.05.2007 21:53) *

Тогда объяви
var n: file of TData;

и будет тебе счастье... Только чтобы просмотреть его тебе понадобится написать еще одну программу, я так понимаю, это будет следующий костыль, который тебя заставит делать преподаватель... Так что будь готов smile.gif

а что мне теперь надо написать?конкретно? и там много?

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


Гость






Цитата
Вообще в файл типизированный не понятно что записывает,что делать?
Ну я же тебе говорил, что просмотреть типизированный файл в блокноте тебе не удастся. Что ты написал, тебе процитировать? Теперь опять начинается старая песня - надо ЕЩЕ и ЕЩЕ?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #32


Пионер
**

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

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


нет,мне просто надо исправить,чтобы в типизированный файл нормально выводилось,иначе мне туго придется.Вы можете объяснить как мне надо исправить или помочь исправит?! wacko.gif .

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


Гость






Нельзя сделать так, чтобы выводилось "нормально", потому что в типизированный файл пишется машинное представление данных, понимаешь? Машинное... А ты не машина, а человек, поэтому ты читаешь текстовые файлы, а не типизированные...

Кстати, в файл все прекрасно заносится, хочешь убедиться? Запусти программу... Она напечатает тебе кроме всего прочего еще и то, что сохранилось в файле...


Прикрепленные файлы
Прикрепленный файл  1_1.pas ( 3.6 килобайт ) Кол-во скачиваний: 104
 К началу страницы 
+ Ответить 
сообщение
Сообщение #34


Пионер
**

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

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


так.значит,смотрите.с меня не будут требовать тогда нормального отображения sot2.dat ? если в задании дано,что файл типизированный?!
Да,и что такое {$mode tp} ???
У меня пишет: Error 17: Invalid compiler directive.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #35


Гость






Ну, правильно, убери эту строку, я же компилирую под FPC, но с имитацией Турбо Паскаля... Просто забыл удалить...
 К началу страницы 
+ Ответить 

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

 





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