 Файлы прямого доступа, Программа тестирования |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| Anastacia Adesso |
 8.01.2007 12:52
Сообщение
#1
|
 Пионер  Группа: Пользователи Сообщений: 92 Пол: Мужской Реальное имя: Stanislav Репутация:  0   |
Хмммм если честно, попробовала сделать эту программу.. Только или запуталась где-то или что-то вообще неверно делаю... Просто не компилирует.
Программа тест.. Сначала делается файл с вопросами в виде-вопросб количество вариантов ответа, сами варианты ответов и номер правильного. А результат записывается так- номер вопроса, имя и фамилия, выбранный номер ответа, правильный ответ. 
UZD10.PAS ( 2.37 килобайт )
Кол-во скачиваний: 368Может кто-нибудь в этом разбирается... Сообщение отредактировано: Anastacia Adesso - 8.01.2007 12:54 -------------------- Ben sensiz yaşayamam
|
   |
 
|
  |
Ответов
| Anastacia Adesso |
9.01.2007 16:29
Сообщение
#2
|
|
Пионер Группа: Пользователи Сообщений: 92 Пол: Мужской Реальное имя: Stanislav Репутация: 0 |
Сделала... Всё равно не пишет.. Ну и ладно...
Спасибо!!!! -------------------- Ben sensiz yaşayamam
|
|
|
|
Сообщений в этой теме
Anastacia Adesso Файлы прямого доступа 8.01.2007 12:52
volvo как ты думаешь, сколько ошибок вот в этом фагменте... 8.01.2007 13:01 Anastacia Adesso Надо
begin
readln(f1,q.otv);
... 8.01.2007 13:06 volvo Не совсем... Файл F1 определен, как File of Test -... 8.01.2007 13:09 Anastacia Adesso Эммм
read(f1,q.vopr);
writeln(q.vopr);
... 8.01.2007 13:14 volvo Я же предупредил:, а ты опять хочешь прочесть толь... 8.01.2007 13:26 Anastacia Adesso Тогда можно оставить вот так..
read(f1,q);
... 8.01.2007 13:32 Anastacia Adesso Тогда теперь ему что-то уже здесь не нравится
... 8.01.2007 13:59
Malice
Тогда теперь ему что-то уже здесь не нравится
f... 8.01.2007 14:06 Anastacia Adesso Нет
for i:=1 to q.j_sk do
begin writel... 8.01.2007 14:10 Malice RE: Файлы прямого доступа 8.01.2007 14:16 Anastacia Adesso Не в этом смысле..
Вначале идёт вообще создание фа... 8.01.2007 14:21 Malice Приведи еще раз, что получилось, ведь были еще исп... 8.01.2007 14:37 Anastacia Adesso Вот такое получилось
9.01.2007 14:48 Malice Перед
while not eof(f1) do begin
надо поставить R... 9.01.2007 15:36 Anastacia Adesso На otv_nr он говорит что неизвестный идентификатор... 9.01.2007 15:48 Malice
Вот так программа работае.
Ну да, правильно, я и... 9.01.2007 15:56 Anastacia Adesso А может потому что у меня в папке много файлов и я... 9.01.2007 16:02 Malice Ты делаешь Close (f2), хотя его не открывала. Он у... 9.01.2007 16:14 Malice Эт я тебе про ошибку написал, а не пишет т.к. запи... 9.01.2007 16:36 Anastacia Adesso Пишеееет!!!!!!! Ураааа... 11.01.2007 12:24 |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 20.07.2025 2:34 |