Форум программистов и сисадминов CyberForum.ru
Вернуться   Форум программистов и сисадминов CyberForum.ru > Форум Форум программистов > Форум Pascal (Паскаль) > Форум Turbo Pascal
Восстановить пароль Регистрация

Ответ Создать новую тему
 
Старый 07.04.2011, 19:45   #1
Dianork
Новичок
 
Регистрация: 16.12.2010
Сообщений: 23
Репутация: 1 (0)
Ошибка 100 Disk Read Error / Turbo Pascal

Помогите пожалуйста исправить ошибку, что бы я не делал и не читал на форуме - ничего не помогло, выдает постоянно 100-ю ошибку
Код Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program lab_8 ;
uses crt;
var r1,r2:file of real;
    a1,a2:real;
    begin
    clrscr;
    assign(r1,'chisla.txt');
    assign(r2,'output.txt');
    reset(r1);
    rewrite(r2);
    while not eof(r1) do
      begin
       read(r1,a1);
       read(r1,a2);
       if abs(a1)>abs(a2) then a1:=abs(a1) else a1:=abs(a2);
       write(r2,a1);
      end;
    close(r1);
    close(r2);
    end.
Старый 07.04.2011, 19:48   #2
iama
Нарушитель
 
Аватар для iama
 
Регистрация: 30.07.2010
Сообщений: 5,300
Репутация: 1241 (969)
Лучшие ответы: 13
Ошибка 100 Disk Read Error

Directories почистьте
Другие темы раздела Форум программистов Turbo Pascal. Программирование на языке Turbo Pascal. Помощь студентам и школьникам в решении задач.
Turbo Pascal Найти среднее арифметическое элементов массива(P5), первые 4 элемента которого являются суммой соответствующих элементов A и В, а остальные элементы
Найти среднее арифметическое элементов массива(P5), первые 4 элемента которого являются суммой соответствующих элементов A и В, а остальные элементы – нули. Добавлено через 3 часа 38 минут помогите кто-то)
Контурные кусочно-линейные примитивы Turbo Pascal
По данным коордитнатамы центра описано круг и его радиусом нарисовать 6-лучевую звезду и соединить с центром все вершины полученного многоугольника.
Старый 07.04.2011, 20:08   #3
Puporev
Модератор
 
Аватар для Puporev
 
Регистрация: 18.05.2008
Сообщений: 62,270
Репутация: 40942 (29489)
Лучшие ответы: 1171
Ошибка 100 Disk Read Error

100 Disk read error (Ошибка чтения с диска).
Генерируется процедурой READ в типизированном файле в случае, если Вы пытаетесь осуществить считывание из полностью прочитанного файла.

Добавлено через 1 минуту
Код Pascal
1
2
3
4
while not eof(r1) do
      begin
       read(r1,a1);
       read(r1,a2);
Если в файле нечетное число компонент, то последнее обращение read(r1,a2); уже за пределами файла
Старый 07.04.2011, 20:34  [ТС]   #4
Dianork
Новичок
 
Регистрация: 16.12.2010
Сообщений: 23
Репутация: 1 (0)
Ошибка 100 Disk Read Error

И как исправить что бы последнее read(...) было там где надо?
Старый 07.04.2011, 20:34
Google
Объявления
Старый 07.04.2011, 21:07   #5
Puporev
Модератор
 
Аватар для Puporev
 
Регистрация: 18.05.2008
Сообщений: 62,270
Репутация: 40942 (29489)
Лучшие ответы: 1171
Ошибка 100 Disk Read Error

Нужно ввести в файл четное число компонент, раз уж парами читаете...
Старый 07.04.2011, 21:30  [ТС]   #6
Dianork
Новичок
 
Регистрация: 16.12.2010
Сообщений: 23
Репутация: 1 (0)
Ошибка 100 Disk Read Error

Та я пробовал так вводить, оно ток так работает, ну попробую обмануть препода, а то у меня в задании сказано, что пользователь сам вводит к-во компонент
Старый 08.04.2011, 06:58   #7
Puporev
Модератор
 
Аватар для Puporev
 
Регистрация: 18.05.2008
Сообщений: 62,270
Репутация: 40942 (29489)
Лучшие ответы: 1171
Ошибка 100 Disk Read Error / Turbo Pascal

что пользователь сам вводит к-во компонент
Но с включенным мозгом. Если нужно выбирать числа из пар, то понятно что число компонент должно быть четным...
Старый 08.04.2011, 06:58
Yandex
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Автор
Жесткие диски При попытке проверить с chkdsk выходит ошибка "Повреждена основная таблица файлов".
Принесли ноутбук, при которого выходит ошибка Disk read error occurred. Загрузился с флешки. HDD поделен на 3 раздела. Два раздела нормально читаются, а третий - системный не читается. При попытке проверить с chkdsk выходит ошибка "Повреждена основная таблица файлов". После проверки с Victoria...
Rinatus
Носители информации A disk read error occurred после отключений электричества..
Доброе время суток! Товарищи, подскажите, пожалуйста! Было два отключения электричества, после чего при включении компа пишется сообщение a disk read error occurred press ctrl+alt+del to restart. Подключила HDD к заведомо рабочему компу Прогнала диск Victoria 3.5 с Advanced REMAP S.M.A.R.T.-...
Ночь
Windows A disk read error occurred - HELP !
Не давно у друга полетела винда, я отфармотировал жесткий диск со своего компа. Форматирование произошло успешно, винда переустановлена. Потом установили жестяк на его комп и вот ошибка "A disk read error occurred Press Ctrl + Alt + Del to restart". Полазел в гугле нечего полезного не нашел. Кто...
the_one111
Pascal (Паскаль) ошибка 100: Disk read error
Привет всем! Нужно считать данные из файла записей, при запуске программы ошибка 100: Disk read error вот листинг uses crt; type zap=record name:string; ob:char; ves:integer; end; var f:file of zap; z:zap;
Alekssey
Windows 7 disk read error occurred
Такой у меня трабл: Пытаюсь установить "Семёрку" билд 7022 с загрузочного ДВД. Загружаюсь с него, выбираю первый раздел диска, удаляю, создаю, форматирую и клацаю "установить". Проходит первый этап установки, потом ребут и БИОС мне выдаёт disk read error occurred. В системе 3 жестких диска (два...
Karamaz
Опции темы

Текущее время: 18:43. Часовой пояс GMT +4.

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.