VPF::Помогите найти ошибку в коде - Форум программистов

alex2008ean

Дата 17.12.2008, 01:09 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 17.12.2008
Где: планета Земля

Репутация: нет
Всего: нет

Вроде (вроде!) все правильно, а результат указанного ниже кода не тот что должен был быть.

Код

. . .
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.: Возможно этих данных недостаточно чтоб определить ошибку, я не знаю.

Это сообщение отредактировал(а) volvo877 - 17.12.2008, 02:16

navi

Дата 17.12.2008, 19:27 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 108
Регистрация: 28.4.2007
Где: Moldova

Репутация: нет
Всего: нет

Цитата(alex2008ean @ 17.12.2008, 01:09

)

а в результате обрабатываю 4

всё происходит изза того что у тебя цикл работает 4 раза!
->j=2;
->j=3
->j=4
->j=5;
если вводить p=4;
smile

--------------------

Хакер не преступник! Взлом ради искусства! Смысл в свободе!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »