|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
23.03.2010, 23:52 | #1 |
Новичок
Джуниор
Регистрация: 23.03.2010
Сообщений: 2
|
Не могу исправить ошибку.(Турбо Паскаль)
Вспомогательная часть работает,а основная выдает ошибку 63. Не знаю как ее исправить. Пожалуйста помогите. Заранее спасибо
Program vspom; Type name = record FIO : string [20]; KD : BYTE; SZ : REAL; END. VAR F : file of name ; a : name; i,n : byte; Begin Writeln (‘vvedy kol-vo dannuh’); Readln (n); Assign (f, c:\d.dat); rewrite(f); For I : 1 to n do begin Write (‘vv FIO’); readln (a. FIO); Write (‘vv KD’); readln (a. KD); Write (‘vv SZ’); readln (a. SZ); Writeln (f.a); end; Close (f); End. Program osnov; Type name = record FIO : string [20]; KD : BYTE; SZ : REAL; End; VAR F : file of name ; a : name; i,n : byte; s : real; k : integer; Begin Assign (f, 'c:\d.dat'); Resset (f); S : = 0; k : = 0; While not (eof(f)) do begin Readln (f,a); [[[вот здесь выдает ошибку 63 invalid file type]]] K : = k=1; s : = s+ a.SZ; end; s : = s/k; close (f); reset (f); While not (eof(f)) do begin Readln (f,a); If a.SZ < s then writeln (a.FIO); end; Close(f); End. Последний раз редактировалось alzm; 24.03.2010 в 00:01. |
24.03.2010, 00:02 | #2 |
Старожил
Регистрация: 26.04.2008
Сообщений: 2,645
|
Всюду Read (f,a); а не readln
ДОБАВЛЕНО И write (f,a); а не writeln Последний раз редактировалось eoln; 24.03.2010 в 00:05. |
24.03.2010, 00:14 | #3 |
Новичок
Джуниор
Регистрация: 23.03.2010
Сообщений: 2
|
А теперь пишет ошибка 200 division by zero
Program osnov; Type name = record FIO : string [20]; KD : BYTE; SZ : REAL; End; VAR F : file of name ; a : name; i,n : byte; s : real; k : integer; Begin Assign (f, 'c:\d.dat'); Resset (f); S : = 0; k : = 0; While not (eof(f)) do begin Read(f,a); K := k+1; s := s+a.SZ; end; s := s/k; [[[[[[[[[[[[вот здесь]]]]]]]]]]]] close (f); reset (f); While not (eof(f)) do begin Read(f,a); If a.SZ < s then write(a.FIO); end; Close(f); End. Последний раз редактировалось alzm; 24.03.2010 в 00:26. |
24.03.2010, 00:34 | #4 | ||
Старожил
Регистрация: 26.04.2008
Сообщений: 2,645
|
Цитата:
Цитата:
|
||
25.03.2010, 14:44 | #5 | |
Форумчанин
Регистрация: 07.04.2009
Сообщений: 245
|
Цитата:
Код:
Код:
Всякое безобразие должно быть единообразным. Тогда это называется порядком.
Последний раз редактировалось Anatole; 25.03.2010 в 14:56. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Паскаль.Исправить ошибку! | kikimka | Помощь студентам | 2 | 16.03.2010 08:17 |
исправить ошибку ..паскаль. | qasw | Помощь студентам | 6 | 07.10.2009 20:33 |
массив записи, не могу исправить ошибку | Алекс К. | Помощь студентам | 3 | 30.05.2009 02:28 |
Паскаль, не могу найти ошибку в программе | Julinja | Помощь студентам | 2 | 17.11.2008 20:42 |