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

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

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

> Файлы прямого доступа, Программа тестирования
сообщение
Сообщение #1


Пионер
**

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

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


Хмммм если честно, попробовала сделать эту программу.. Только или запуталась где-то или что-то вообще неверно делаю... Просто не компилирует.

Программа тест.. Сначала делается файл с вопросами в виде-вопросб количество вариантов ответа, сами варианты ответов и номер правильного.
А результат записывается так- номер вопроса, имя и фамилия, выбранный номер ответа, правильный ответ.

Прикрепленный файл  UZD10.PAS ( 2.37 килобайт ) Кол-во скачиваний: 540

Может кто-нибудь в этом разбирается...

Сообщение отредактировано: Anastacia Adesso -


--------------------
Ben sensiz yaşayamam
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Пионер
**

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

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


Тогда можно оставить вот так..
      read(f1,q);
writeln(q.vopr);
for i:=1 to q.j_sk do
begin
writeln(i,'. ',q.vopr);
end;
те ридлайны, что были раньше надо убрать, так как прочитана уже вся запись?


--------------------
Ben sensiz yaşayamam
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Anastacia Adesso   Файлы прямого доступа   8.01.2007 16:52
volvo   как ты думаешь, сколько ошибок вот в этом фагменте…   8.01.2007 17:01
Anastacia Adesso   Надо begin readln(f1,q.otv); …   8.01.2007 17:06
volvo   Не совсем... Файл F1 определен, как File of Test -…   8.01.2007 17:09
Anastacia Adesso   Эммм read(f1,q.vopr); writeln(q.vopr); …   8.01.2007 17:14
volvo   Я же предупредил:, а ты опять хочешь прочесть толь…   8.01.2007 17:26
Anastacia Adesso   Тогда можно оставить вот так.. read(f1,q); …   8.01.2007 17:32
Anastacia Adesso   Тогда теперь ему что-то уже здесь не нравится …   8.01.2007 17:59
Malice   Тогда теперь ему что-то уже здесь не нравится f…   8.01.2007 18:06
Anastacia Adesso   Нет for i:=1 to q.j_sk do begin writel…   8.01.2007 18:10
Malice   RE: Файлы прямого доступа   8.01.2007 18:16
Anastacia Adesso   Не в этом смысле.. Вначале идёт вообще создание фа…   8.01.2007 18:21
Malice   Приведи еще раз, что получилось, ведь были еще исп…   8.01.2007 18:37
Anastacia Adesso   Вот такое получилось   9.01.2007 18:48
Malice   Перед while not eof(f1) do begin надо поставить R…   9.01.2007 19:36
Anastacia Adesso   На otv_nr он говорит что неизвестный идентификатор…   9.01.2007 19:48
Malice   Вот так программа работае. Ну да, правильно, я и…   9.01.2007 19:56
Anastacia Adesso   А может потому что у меня в папке много файлов и я…   9.01.2007 20:02
Malice   Ты делаешь Close (f2), хотя его не открывала. Он у…   9.01.2007 20:14
Anastacia Adesso   Сделала... Всё равно не пишет.. Ну и ладно... Спа…   9.01.2007 20:29
Malice   Эт я тебе про ошибку написал, а не пишет т.к. запи…   9.01.2007 20:36
Anastacia Adesso   Пишеееет!!!!!!! Ураааа…   11.01.2007 16:24


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

 





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