Форум программистов, компьютерный форум CyberForum.ru Форум программистов | Компьютерный форум | Форум web-программистов | Форум по электронике и бытовой технике | Форум о софте | Научный форум | Карьера и бизнес
CyberForum.ru - форум программистов и сисадминов > > >
Восстановить пароль Регистрация

Ответ Создать новую тему
 
Dianork
Новичок
1 / 0 / 0
Регистрация: 16.12.2010
Сообщений: 23
07.04.2011, 19:45     Ошибка 100 Disk Read Error
  #1
Помогите пожалуйста исправить ошибку, что бы я не делал и не читал на форуме - ничего не помогло, выдает постоянно 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.
AdAgent
Объявления
07.04.2011, 19:45
iama
Нарушитель
1243 / 971 / 12
Регистрация: 30.07.2010
Сообщений: 5,299
07.04.2011, 19:48
  #2
Directories почистьте
Puporev
Модератор
42195 / 30709 / 1789
Регистрация: 18.05.2008
Сообщений: 65,357
07.04.2011, 20:08
  #3
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); уже за пределами файла
Dianork
Новичок
1 / 0 / 0
Регистрация: 16.12.2010
Сообщений: 23
07.04.2011, 20:34  [ТС]
  #4
И как исправить что бы последнее read(...) было там где надо?
Puporev
Модератор
42195 / 30709 / 1789
Регистрация: 18.05.2008
Сообщений: 65,357
07.04.2011, 21:07
  #5
Нужно ввести в файл четное число компонент, раз уж парами читаете...
Dianork
Новичок
1 / 0 / 0
Регистрация: 16.12.2010
Сообщений: 23
07.04.2011, 21:30  [ТС]
  #6
Та я пробовал так вводить, оно ток так работает, ну попробую обмануть препода, а то у меня в задании сказано, что пользователь сам вводит к-во компонент
Puporev
Модератор
42195 / 30709 / 1789
Регистрация: 18.05.2008
Сообщений: 65,357
08.04.2011, 06:58     Ошибка 100 Disk Read Error
  #7
что пользователь сам вводит к-во компонент
Но с включенным мозгом. Если нужно выбирать числа из пар, то понятно что число компонент должно быть четным...
Yandex
Объявления
08.04.2011, 06:58
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Автор Дата
Turbo Pascal Не работает! пишет ошибку Error 100: Disk read error! кто может исправить?
Program pr2122; Uses Dos, crt; Type stip = record pr: string; gr: string; st: integer; end; var
Turbo Pascal Casillas1 06.06.2013 10:55
Turbo Pascal Ошибка при добавлении в файл. Ошибка 101: Ошибка записи на диск (Error 101: Disk write error).
Здравствуйте, возникла проблема такого плана. Нужно произвести добавление записи в файл, но после успешного создания и чтения вылазиет ошибка: Ошибка 101: Ошибка записи на диск. Я понял, что...
Turbo Pascal Zarechnev 27.05.2013 10:50
Turbo Pascal Ошибка Error 100: Disk read error
Что это за ошибка? program test; uses crt; const n = 100; var a: array of real;
Turbo Pascal smilegirl73 28.10.2012 20:25
Turbo Pascal Error 100 при чтении из типизированного файла
Вот проблемная процедура. Procedure Create(var f:myfile; n:integer; path:string); var size, i,j:integer; aux:car; begin assign(f,path); for i:=1 to n do begin
Turbo Pascal saintfu11 20.02.2012 23:49
Pascal ошибка 100: Disk read error
Привет всем! Нужно считать данные из файла записей, при запуске программы ошибка 100: Disk read error вот листинг uses crt; type zap=record name:string; ob:char; ves:integer; end; var f:file...
Pascal (Паскаль) Alekssey 11.12.2010 09:59
Ошибка при загруке: "A disk read error occurred Press Ctrl+Alt+Delete to restart"
У меня случилась такая неприятность: При включении компа выдает ошибку A disk read error occurred Press Ctrl+Alt+Delete to restart" При рестарте все повтряется не пускает в Виндовс. Что это...
Носители информации spad 17.04.2010 16:06
Windows 7 disk read error occurred
Такой у меня трабл: Пытаюсь установить "Семёрку" билд 7022 с загрузочного ДВД. Загружаюсь с него, выбираю первый раздел диска, удаляю, создаю, форматирую и клацаю "установить". Проходит первый этап...
Windows 7 Karamaz 05.03.2009 16:11
Опции темы

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

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