0 / 0 / 0
Регистрация: 09.12.2008
Сообщений: 13
|
|
1 | |
Помогите найти ошибку17.12.2008, 00:42. Показов 527. Ответов 0
Метки нет (Все метки)
Вроде (вроде!) все правильно, а результат указанного ниже кода не тот что должен был быть.
. . . 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.: Возможно этих данных недостаточно чтоб определить ошибку, я не знаю.
0
|
17.12.2008, 00:42 | |
Ответы с готовыми решениями:
0
Программа пишет ошибку!! Помогите найти ошибку Помогите найти ошибку) помогите найти ошибку помогите найти ошибку |
17.12.2008, 00:42 | |
17.12.2008, 00:42 | |
Помогаю со студенческими работами здесь
1
Помогите найти ошибку в коде помогите найти ошибку в графе Помогите найти ошибку в задаче Помогите найти ошибку плз!!!! Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |