|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
17.12.2008, 00:35 | #1 |
Пользователь
Регистрация: 09.12.2008
Сообщений: 17
|
Помогите найти ошибку
Вроде (вроде!) все правильно, а результат указанного ниже кода не тот что должен был быть.
. . . begin writeln('Введите количество обрабатываемых плоскостей:'); read(p); k:=0; for j:= 2 to p+1 do begin k:=k+1; writeln('Введите точность и шероховатость ',k,' базовой поверхности'); writeln('7 - 10-12 kv, 20<=Rz<=12,5'); writeln('8 - 8,9 kv, 12,5<=Rz<=6,3'); writeln('9 - 7,8 kv, 6,5<=Rz<=3,2'); read(b); if b=7 then a[1,j]:=1; if b=8 then a[2,j]:=1; if b=9 then a[3,j]:=1; end; end; . . . . . . d[1,j]:='ФРЕЗЕРНАЯ'+#13#10+'Фрезеровать базовую поверхность начерно'+#13#10+ 'Оборудование: станок вертикально-фрезерный, Инструмент: фреза торцовая'; d[2,j]:='ФРЕЗЕРНАЯ'+#13#10+'Фрезеровать базовую поверхность начерно, начисто'+#13#10+ 'Оборудование: станок вертикально-фрезерный, Инструмент: фреза торцовая'; d[3,j]:='ФРЕЗЕРНАЯ'+#13#10+'Фрезеровать базовую поверхность начерно, начисто, тонко'+#13#10+ 'Оборудование: станок вертикально-фрезерный, Инструмент: фреза торцовая'; . . . ... write(d[i,j]); writeln; begin assign(f,'Resultat.txt'); rewrite(f); end; for j:=1 to 17 do for i:=1 to 6 do if a[i,j]=1 then writeln(f,d[i,j]); close(f); end; ... Вот при такой записи имею при выводе результата программы на одну запись больше чем вводил – допустим вводил обрабатывать 3 плоскости, а в результате обрабатываю 4. Хрен знает каким макаром прога добавляет одну запись сама. Р.S.: Возможно этих данных недостаточно чтоб определить ошибку, я не знаю. Последний раз редактировалось alex2008ean; 17.12.2008 в 00:38. |
17.12.2008, 05:15 | #2 |
Форумчанин
Регистрация: 28.10.2008
Сообщений: 350
|
а p+1 просто на p не пробывал поставить
|
17.12.2008, 15:43 | #3 |
Пользователь
Регистрация: 09.12.2008
Сообщений: 17
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
помогите найти ошибку | rUs_LAN | Microsoft Office Excel | 5 | 19.11.2008 20:15 |
помогите найти ошибку | MyQwErTy | Помощь студентам | 1 | 05.11.2008 21:24 |
помогите найти ошибку | Максим_Леонидович | БД в Delphi | 4 | 20.08.2008 23:23 |
Помогите найти ошибку | N!ckeL | Общие вопросы Delphi | 9 | 05.05.2008 14:15 |
Помогите найти ошибку | KnDmPetr | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 11.04.2008 15:48 |