Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
Прочтите прежде чем задавать вопрос!1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| Файлы прямого доступа, Программа тестирования |
| Anastacia Adesso |
Сообщение
#1
|
 Пионер  Группа: Пользователи Сообщений: 92 Пол: Мужской Реальное имя: Stanislav Репутация:  0   |
Хмммм если честно, попробовала сделать эту программу.. Только или запуталась где-то или что-то вообще неверно делаю... Просто не компилирует.
Программа тест.. Сначала делается файл с вопросами в виде-вопросб количество вариантов ответа, сами варианты ответов и номер правильного. А результат записывается так- номер вопроса, имя и фамилия, выбранный номер ответа, правильный ответ. 
UZD10.PAS ( 2.37 килобайт )
Кол-во скачиваний: 649Может кто-нибудь в этом разбирается... Сообщение отредактировано: Anastacia Adesso - -------------------- Ben sensiz yaşayamam
|
   |
 
|
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  |
|
Текстовая версия | 4.11.2025 16:26 |
