Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Подскажите алгоритм для задачи

Автор: Igor 20.12.2007 17:07

Что то никак не могу сформулировать алгоритм.

В файле целого типа расставить в обратном порядке все значения кратные 3.

звучит просто но не могу понять, как?

нужен только алгоритм, но если кто напишет прогу буду сильно благодарен.

Автор: Гость 20.12.2007 17:16

то есть
было 12 7 14 -6 9 15 0 7 13
стало 0 7 14 15 9 -6 12 7 13

Автор: Michael_Rybak 20.12.2007 17:34

Заводишь переменную x, которая будет проходить по числам, кратным 3, в обратном порядке. В начале х = n, т.е. указывает на последний элемент массива.

Идешь циклом от 1 до n, формируя новый массив. Если число не кратно 3, просто копируешь. Каждый раз, когда встречаешь кратное 3 - двигаешь х влево до тех пор, пока не встретишь первое кратное трем, и пишешь его вместо текущего:


begin
x := n;
for i := 1 to n
if a[i] mod 3 <> 0 then
b[i] := a[i];
else begin
while x mod 3 <> 0 do
Dec(x);
b[i] := a[x];
Dec(x); //сместили еще на 1 влево, чтобы в следующий раз искать дальше, а не остановится навсегда в этом месте
end;
end;


Если надо, копируешь потом массив b обратно в a.

Автор: klem4 20.12.2007 20:05

можно без массива сделать, вот программа, потестировал, сбоев не было.

uses crt;

var
f, tmp: file of Integer;
i, n, value, right, rValue: Integer;

begin
clrscr;

randomize;

n := random(10);

assign(f, 'c:\file.int');
rewrite(f);

for i := 1 to n do begin
value := random(10);
write(f, value);
writeln(value);
end;

reset(f);

assign(tmp, 'c:\tmp.int');
rewrite(tmp);

right := filesize(f);

writeln;

for i := 0 to filesize(f) - 1 do begin

seek(f, i);
read(f, value);

if (not odd(value)) or (i = right - 1) then begin
seek(tmp, i);
write(tmp, value);
end else if i < right then begin

repeat
dec(right);
seek(f, right);
read(f, rValue);
until odd(rValue);

seek(tmp, i);
write(tmp, rValue);

seek(tmp, right);
write(tmp, value);
end;

end;

close(f);
erase(f);

close(tmp);
rename(tmp, 'c:\file.int');

reset(tmp);

writeln;

while not eof(tmp) do begin
read(tmp, value);
writeln(value);
end;

close(tmp);

readln;
end.


Добавлено через 13 мин.
тока перепутал мальца, вместо not odd(value) надо not (value mod 3 = 0)