[nikitaef]

Надеюсь на вашу помощь.
Задание:

Программу я написал,но она не совсем правильно работает и достаточно большая, помогите,пожалуйста, исправить.

const n=30;
var a,c:array[1..n] of integer;
i,b,k:integer;
begin
k:=1;
i:=1;
for i:=1 to 30 do
a[i]:=random(100) + 1;
for i:=1 to 30 do
write (' ',a[i]);
writeln('Введите число, которое нужно удалить');
read (b );
for i:=1 to n do begin
if a[i]=b then begin
c[k]:=i;
k:=k+1;
end;
end;
for k:=1 to n do begin
for i:=1 to n do begin
if i=c[k] then begin
a[i]:=a[i+1];
a[n]:=0;
end;
end;end;
writeln('Готовый массив');
for i:=1 to 30 do begin
write (' ',a[i]);
end;
end.

@темы: Pascal

Comments

[Слушатель]

Да, это от души (прошу прощения не сдержался ).

Если честно, вместо сдвига влево всех кусков относительно всех индексов i_1, i_2 ... i_k где встречается b (а как я понял, именно это вы и пытаетесь сделать). Я бы прошёлся по исходному массиву, там где встречается b - пометил его -1. После чего перекопировал бы элементы в новый массив, пропуская там где -1.

Если сдвиг влево относительно множества индексов i_1, i_2, ... i_k - обязательное условие задачи - то надо подумать (но это изврат, мы не выигрываем ни в месте ни во времени. Более того сдвиг влево увеличивается с каждым последующим индексом).

[nikitaef]

Я очень плохо знаю паскаль. Так Вы хотели,чтобы я сделал? Так правильно?

var a,d:array[1..n] of integer;
i:integer;
begin
.....
For i:=1 to n do begin
if a[i]=b then
a[i]:=-1
end;
for i:=1 to n do begin
if a[i]>0 then
b[i]:=a[i];
end;

[Слушатель]

nikitaef,
Да.

[Слушатель]

nikitaef,

Да.

Точнее не совсем. У вас получается, что счётчик для массивов a, b один и тот же. Следовательно на месте i там где a[i] = b в массив b не будет занесено ничего. А должно быть a[i + k], где i + k индекс первого значения неравного b.

Например допустим b = 3, a: 0 1 3 3 3 2 5 3 1.
У вас b равен: 0 1 0 0 0 2 5 0 1 ...
А должно быть 0 1 2 1 5 1 0 0 ... (полагаем, что массив инициализирован нулями).

То есть фактически b забит нулями между 1 и 2, и между 5 и 1.

Подумайте, как написать "пропуск" верно. Используйте разные счётчики для a и b.

[nikitaef]

Слушатель,
Эту часть я сделал, не без помощи конечно)
Вы мне можете помочь доделать дальше? Помогите,пожалуйста, иначе не успею..
Вот,вторая часть задания

c:array[1..33] of integer;
i,b :integer;
begin
i:=1;
for i:=1 to 30 do
a[i]:=random(100) + 1;
writeln('Дано:');
for i:=1 to 30 do
write(' ',a[i]);
writeln(' Введите число, которое нужно удалить: ');
readln (b);
for i:=1 to n do begin
if a[i]=b then
a[i]:=-1;
end;
i:=1;
b:=1;
while i<=30 do begin
if a[i]<>-1 then begin
c[b]:=a[i];
b:=b+1;
if (b-1) mod 10 =0 then begin
c[b]:=101;
b:=b+1;
end;
end;
i:=i+1;
end;
writeln('Готовый массив');
for b:=1 to 33 do
write (' ',c[b]);
end.

[Слушатель]

nikitaef,
Я могу сказать только две вещи:

1. В следующий раз приводите условие ПОЛНОСТЬЮ.
2. У вас принципиально неправильно построен код. Вам необходимо сначала реализовать элементарные процедуры, описанные в задаче. После чего используя их - выполнить сами задания. У вас же сейчас код это просто набор инструкций.

Начните с реализации элементарных процедур. Потом вызывая их выполните описанные задания.