Добрый день!
Ранее пользовался подсказками форуме, и кое как сделал программу, но она не совсем правильно работает. Сколько не ломал голову, но найти ошибку не могу.
Ниже будет представлен только проблемный (на мой взгляд) код.
В чем сама проблема: при вводе n-го количества базовых поверхностей выводит результат n+1 поверхностей, т.е. хрен знает откуда прибавляет еще одну. пример - ввожу 2 поверхности на обработку, а выдает обработку 3-х. 

Сам код:
. . . . . . 
begin
writeln('VVedite kolichestvo obrobativaemih ploskostei:');
read(p);
k:=0;
s:=p+1;
for j:= 2 to s do
begin
k:=k+1;
writeln('VVedite tochnost i sherohovatost ',k,' bazovoi poverhnosti');
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);
begin
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;
end;
. . . . . . 

. . . . . .
begin
for i:= 1 to 6 do
begin
for j:= 1 to 17 do
begin
...

d[1,j]:='FREZERNAYA'+#13#10+'Frezerovat bazovyjy poverhnost nacherno'+#13#10+
'Oborydovanie: stanok vertikalno-frezerniy, Instrument: freza torcevaya';
d[2,j]:='FREZERNAYA'+#13#10+'Frezerovat bazovyjy poverhnost nacherno, nachisto'+#13#10+
'Oborydovanie: stanok vertikalno-frezerniy, Instrument: freza torcevaya';
d[3,j]:='FREZERNAYA'+#13#10+'Frezerovat bazovyjy poverhnost nacherno, nachisto, tonko'+#13#10+
'Oborydovanie: stanok vertikalno-frezerniy, Instrument: freza torcevaya';
. . . . 
. . . . 
begin
write(D[i,j]);
end;
writeln;
end;
begin
assign(f,'Resultat.txt');
rewrite(f);
begin
for j:=1 to 17 do
for i:=1 to 6 do
if a[i,j]=1 then
writeln(f,d[i,j]);
end;
close(f);
end;
end;
end;
end;
end.

P.S.: Если что, могу выложить программу целиком.

Тебе этой темы: http://forum.vingrad.ru/forum/topic-240579...y1730332/0.html мало показалось? Надо флудить обязательно? Закрыто!