Помогите с кодом на Delphi

[Saka]

Здраствуйте. У меня вот проблема. Одно из задание отраженное в этом коде, этой найти числа содеращие цифру "5" и вместо них поставить 0.




program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;
type
Titem=longint;
TDar=array of Titem;
Var
x,p,n,k,j,i:longint;
c,A,B:Tdar;
T:Titem;
fl:boolean;
begin
try
{ TODO -oUser -cConsole Main : Insert code here }
Begin
repeat
writeln('Vvedite kol-vo elementov'); readln(n);
until n>0;
setLength(A,n);
i:=Low(A);
randomize;
repeat
A[i]:=random(100);
inc(i);
until i>High(A);
writeln('Massiv A');
if High(A)>=0 then
for i := Low(A) to High(A) do
Write(A[i],' ') else
writeln('there are no elements');
writeln;
i:=Low(A);
k:=0;
repeat
begin
inc(k);
Setlength(B,k);
B[k-1]:=A[i];
End;
inc(i);
until i>High(A);
writeln('Massiv B iz A:');
if High(b)>=0 then
for i:=Low(B) to High(B) do
write(B[i],' ')
else
begin
write('there are no elements');
readln;
End;
writeln;
i:=Low(A);
repeat
x:=A[i];
while (x>0) and fl=false do

begin
N:=x mod 10;
x:=x div 10;
if n mod 5=0 then fl:=true
End;
if fl=true then x:=0
else inc(i)
until i>High(A);
writeln('sdvig massiva na k=');
write('vvedite k'); readln(k);
x:=0;
p:=0;
c:=0;
for i := 1 to k do
begin
x:=A[1];
for j:=1 to p-1 do
A[j]:=A[j-1];
A[p]:=x;
End;
writeln(x);
readln;
end;
finally

end;
end.

[dr.Chas]

17 сообщений пора бы уже научиться пользоваться кнопкой для оформления кода. Она выглядит вот так #

[пауэрлифтинг]

вот так можно

if pos('5',inttostr(x))<>0 then x:=0;

[пауэрлифтинг]

или попробуй замени на

while (x>0) and not fl do
begin
N:=x mod 10;
x:=x div 10;
fl:=n=5;
End;

if fl then x:=0
else inc(i);

[Serge_Bliznykov]

if fl=true then x:=0

а зачем обнулять X ?!
а так понял, что надо число в массиве обнулить?!
Это будет:

if fl=true then A[i]:=0;

и дальше, в коде сдвига массива, имхо, тоже полная ахинея написана ;(

[Saka]

почему ахинея?

[Serge_Bliznykov]

почему ахинея?

ну.. исключительно исходя из этого:

x:=0;
p:=0;
c:=0;

с - не используется совсем. x в цикле переприсваивается, поэтому заносить туда ноль - бесмысленно..
но интереснее того, что дальше делается с переменной p

p:=0;
...
for j:=1 to p-1 do

как Вы думаете, сколько раз выполнится цикл?...


да. ещё.
в том куске, где идёт проверка на то, содержит ли число 5
надо ещё не забывать в цикле сбрасывать флаг! иначе, найдя одно число, которое содержит 5 - переменная становится истинной (fl := true)
и больше в цикл мы не попадаем!

и ещё. когда пишите несколько условий в логическом выражении:
while (x > 0) and fl = false do
не забывайте скобки. Это принципиально!!!

        while (x > 0) and (fl = false) do

______________
обнуление всех чисел в массиве, которые содержат в записи цифру "5" я бы записал так:

      for i:=Low(A) to High(A) do
      begin 
        x := A[i];
        while (x > 0) do
        begin
          N := x mod 10;
          x := x div 10;
          if (n=5) then begin
            A[i] := 0;
            x := 0; {это чтобы выйти из цикла}
          end;
        end;
      end;

[Saka]

подскажите тогда какой должен быть код у правильного циклического сдвига вправо

[Serge_Bliznykov]

подскажите тогда какой должен быть код у правильного циклического сдвига вправо

прежде всего, ввёденное число K (на сколько сдвигать), надо взять по модулю РазмераМассива. (это очевидно, но я немножко поясню — если массив из 5 элементов, то свинуть его на 6 элементов, это то же самое, что сдвинуть на ОДИН элемент. А если массив из 5 элементов сдвинуть на 5 элементов, то он вообще не изменится...

K := K mod КоличествоЭлементовМассива;

теперь о алгоритме собственно сдвига.
вот два.
Первый. в цикле, "тупо в лоб" сдвигаем на один элемент вправо, первый становится на место второго, второй - на место третьего, а последний - на место первого.. и повторяем эту процедуру K раз:

  for i:=1 to K  do 
     ShiftArray( A );

этот способ не очень эффективен...

поэтому я предлагаю чуть более сложный (алгоритмически) способ, зато он красивее и эффективнее.
Надо A[1] -> A[1+K]
A[1+K] -> A[1+K+K]
...
и т.д. пока мы не выполним цикл переносов ровно столько раз, сколько элементов в массиве!

[Saka]

первый способ понял, а вот второй алгоритмический нет. Поясните плз