Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 19, средняя оценка - 4.95
Dianork
1 / 0 / 0
Регистрация: 16.12.2010
Сообщений: 23
#1

Ошибка 100 Disk Read Error - Turbo Pascal

07.04.2011, 19:45. Просмотров 2617. Ответов 6
Метки нет (Все метки)

Помогите пожалуйста исправить ошибку, что бы я не делал и не читал на форуме - ничего не помогло, выдает постоянно 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.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.04.2011, 19:45
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Ошибка 100 Disk Read Error (Turbo Pascal):

Ошибка Error 100: Disk read error - Turbo Pascal
Program pr2122; Uses Dos, crt; Type stip = record pr: string; gr: string; st: integer; end; var

Ошибка Error 100: Disk read error - Turbo Pascal
Что это за ошибка? program test; uses crt; const n = 100; var a: array of real;

Ошибка при добавлении в файл. Ошибка 101: Ошибка записи на диск (Error 101: Disk write error). - Turbo Pascal
Здравствуйте, возникла проблема такого плана. Нужно произвести добавление записи в файл, но после успешного создания и чтения вылазиет...

ошибка 100: Disk read error - Pascal
Привет всем! Нужно считать данные из файла записей, при запуске программы ошибка 100: Disk read error вот листинг uses crt; type...

Ошибка Disk full при сохранении проекта - Turbo Pascal
Всем привет. При попытке созранить увесистый pas-проект, Паскаль пишет "Disk full", хотя места на диске предостаточно (10 гигов). Самое...

Ошибка: const Error 113: Error in statement - Turbo Pascal
const nmax=100; var a: array of real; i,j,d,n,m: integer; begin randomize; write('Введите размеры массива n,m: '); ...

6
iama
1251 / 976 / 49
Регистрация: 30.07.2010
Сообщений: 5,297
07.04.2011, 19:48 #2
Directories почистьте
0
Puporev
Модератор
52830 / 40641 / 13888
Регистрация: 18.05.2008
Сообщений: 94,274
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); уже за пределами файла
1
Dianork
1 / 0 / 0
Регистрация: 16.12.2010
Сообщений: 23
07.04.2011, 20:34  [ТС] #4
И как исправить что бы последнее read(...) было там где надо?
0
Puporev
Модератор
52830 / 40641 / 13888
Регистрация: 18.05.2008
Сообщений: 94,274
07.04.2011, 21:07 #5
Нужно ввести в файл четное число компонент, раз уж парами читаете...
0
Dianork
1 / 0 / 0
Регистрация: 16.12.2010
Сообщений: 23
07.04.2011, 21:30  [ТС] #6
Та я пробовал так вводить, оно ток так работает, ну попробую обмануть препода, а то у меня в задании сказано, что пользователь сам вводит к-во компонент
0
Puporev
Модератор
52830 / 40641 / 13888
Регистрация: 18.05.2008
Сообщений: 94,274
08.04.2011, 06:58 #7
что пользователь сам вводит к-во компонент
Но с включенным мозгом. Если нужно выбирать числа из пар, то понятно что число компонент должно быть четным...
0
08.04.2011, 06:58
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.04.2011, 06:58
Привет! Вот еще темы с ответами:

Error 100 при чтении из типизированного файла - Turbo Pascal
Вот проблемная процедура. Procedure Create(var f:myfile; n:integer; path:string); var size, i,j:integer; aux:car; ...

Вращение отрезка и ошибка "Error 113. Error in statement" - Turbo Pascal
Здравствуйте, встретил старый студенческий листинг реализации задачи: "Отрезок, поворачивающийся на 15° при нажатии клавиши «пробел» и...

Ошибка 100: Ошибка чтения с диска - Turbo Pascal
Здравствуйте. Подскажите, в чем причина? При запуске программы выдает ошибку чтения с диска. Сразу скажу, код не мой, поэтому строго не...

Составить программу для вычисления 100!+2(100) {2 в степени 100} - Turbo Pascal
Еще не могли бы вы помочь мне с этим заданием: Составить программу для вычисления 100!+2(100) {2 в степени 100} program lab_8; uses...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

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