| Типы программирования, программирование, языки программирования, книги программирование | На сайте представлена информация про программирование в Интернете и работу |
|
Коллеги, занимательная задачка для треннировки. TApplication, Приемы работы UPS., Как поймать команду от UPS'a ? Борты у Формы Кто создает свои компоненты? Поделитесь опытом, прорисовка рамки Компоненты, А где найти компоненты? Работа с Com 1,2 портами, Работа с Com 1,2 портами Вопрос, DLL как.....? Outlook Express, Отправка e-mail с прицепом добраться до закладки в WORD, Как добраться до закладки в WORD? Как управлять Internet Explorer-oм из Delphi? Как свернут окно в .....? Опять о чужих окнах..., Вопрос к знатокам На счет файлов... TChartSeries, creating Pascal-----Assembler Без BDE, как Открыть таблицу по сети без DBE Загрузка курсора в TImage??? Как поставить каретку TMemo в нужную строку, Как поставить каретку TMemo в нужную стр Работа с чужим приложением, Как закрыть другое приложение? У меня появилась новая технология но коечто неясно, Запись в exe и самочтение записи Как картинку из Imagelist1 запихать в Image1 !!!!!!!!!!!!ПОМОГИТЕ&#, Как.... Грузим ресурсы из DLL, Грузим ресурсы из DLL Чего за дела?, Как узнать, что вызвало запуск DLL? Excel Как работать с ADO компонентами в DLL?, Практический совет Как заставить работать COM объекты в потоке?, Практический совет Как отображать координаты курсора Как изменить код программы, Каким образом... Текст в иконку, Пример кода Форматим диск, Пример кода Power Ресурсы в Delphi Ловля клавишь! Базы данных!!! Вопрос..., Плавная прокрутка.... TBitmap ?, Как наложить изображение. ODBC-драйвер SQL Напоминалка..., Напоминалка... Как Вы относитесь к курящим девушкам? Как создать link на приложение в window 2000 Помогите найти ошибку в задачке....! На паскале! mcisendstring,..., info Таблы и перетаскивание Клонирование Форм? Shape, Как создать свой приметив???? RichEdit ? Определение цвета, Как определить цвет точки на экране? Прдотвращение второга запуска. Появился новый раздел!, Милости просим 2 варианта смены обоев, какой из вариантов рациональнее... Информация о состоянии клавиатуры, Примеры кода Совмещение функций..., Совмещение функций... Глючит прога ХЕЛП!!! SHAREWARE, Как создать SHAREWARE программу? Memo В базах? Создание таблицы Распросторонение программы на Delphi 5 Билдер и Дельфи, соответствие типов данных Интерфейс Delphi 5 if Odd(GetAsyncKeyState(113)) Реакция на срабатывание кнопки Enter в Memo компон, Реакция на срабатывание кнопки Enter в M Нужно узнать размер файла после сжатия., Нужно узнать размер файла после сжатия. Имитация печатной машинки.... Как проиграть wav файл, который находится в DLL?, Как проиграть wav файл, который находитс convert *bmp into ASCII Dll-Как юзать? текстовый файл, текстовый файл |
Платные хостинги Раскрутка сайта Книги по программированию Помогите найти ошибку в задачке....! На паскале!
- вот значитЕсть файл с вопросамиvopros.txtВот такого формата:1Вопрос 12Вопрос 2где 1, 2 в начале каждой строки это номер вопроса...И файл с ответамиotvet.txtВот такого формата:1b2cгде 1, 2 в начале каждой строки это номер ответа на вопрос под таким же номером..., а b,c - ответы.....Я её попробовал решить вот так:uses crt; var masi,numgen : integer; s, numgen_str, s1 : string; fvopros, fotvet : text; mas : array[1..10] of integer; chvopros, chotvet : char; counter : real;function IntToStr(I: Longint): String;var S: string[11];begin Str(I, S); IntToStr := S;end;procedure generate;{процедура генерации номера вопроса}beginrandomize; numgen := random(2) + 1; for masi := 1 to 3 do begin if mas[masi] = numgen then numgen := random(2) + 1 else mas[masi] := numgen; end; numgen_str := inttostr(numgen);end;beginClrScr; assign(fvopros,'vopros.txt'); reset(fvopros); assign(fotvet,'otvet.txt'); reset(fotvet); repeat generate; repeat readLn(fvopros,s); until s = numgen_str; readLn(fvopros,s); writeLn(s); read(chotvet); repeat readLn(fotvet,s1); until s1 = numgen_str; readLn(fotvet,s1); if chotvet = s1 then begin textColor(green); WriteLn('Right!!'); textColor(15); counter := counter + 0.5; end else begin textColor(red); WriteLn('Wrong!! Right answer is ', chotvet); textColor(15); counter := counter - 0.2; end; WriteLn; until masi = 2; if (counter >-9) and (counter < 0) then WriteLn('Ploho!'); if (counter > 0) and (counter < 4) then WriteLn('Sredne!'); if (counter > 4) and (counter < 8) then WriteLn('Horosho!'); if (counter > 8) and (counter <10) then WriteLn('Otlichno!'); Close(fotvet); Close(fvopros);end.Но при попытке сгенерить второе число возникает какая-то ошибка (ошибки вообще по-моему любять ВОЗНИКАТЬ.... !! :-))))) - А какая именно ошибка и в какой строке? - repeat generate; repeat readLn(fvopros,s); until s = numgen_str;//Вот здесь readLn(fvopros,s); writeLn(s); read(chotvet); repeat readLn(fotvet,s1); until s1 = numgen_str; readLn(fotvet,s1); - А где проверка на достижение конца файла? - Сначала у меня было вот такuntil eof(fvopros); а теперь стало вот такuntil masi = 2;// проверка на заполнение массива. - Так как файл может содержать не совсем то что ожидается то проверка на конец файла должен оставаться, что то типа Until (something=somethingelse) or eof(f); - Там даже не ошибка... он просто не может выйти из первого цикла!repeat readLn(fvopros,s);until s = numgen_str;//Вот здесь - Вот и я о том же - .....repeat readLn(fvopros,s);until (s = numgen_str) or eof(fvopros);Напиши вот так, и в подобных местах точно также, толькоs и fvopros замени соответствующими именами переменных....  |