Перемещение массива в файле, Перемещение массива в файле Опции

[Gift]

Как переместить четные числа в начало, а нечетные в конец не изменяя порядка
следования чисел с одинаковой четностью.
есть
12 7 9 6 -5 -6
4 6 -7 23 -24 9

надо
12 6 -6 7 9 -5
4 6 -24 -7 23 9

Код

uses crt;
const n=9;
type mas=array[1..6] of integer;
var
f:file of mas;
i,x,min,max,num_of_max:integer;
a:mas;
begin
clrscr;
randomize;
assign(f,'000.000');
rewrite(f);
for i:=1 to n do
begin
for x:=1 to n do
begin
 a[x]:=random(99);
 write(a[x]:3);
end;
writeln;
write(f,a);
writeln;
end;
close(f);

Код - в теги !!!

[volvo]

А "просто выкидывать условия" - бесполезно... Тут могут помочь, но решать все полностью, да еще после того, как на приведенное рещение ты отвечаешь своим - это навряд ли. Значит, умеешь, но не хочешь...

[Guest]

А "просто выкидывать условия" - бесполезно... Тут могут помочь, но решать все полностью, да еще после того, как на приведенное рещение ты отвечаешь своим - это навряд ли. Значит, умеешь, но не хочешь...

да мне и помогли с функцией odd, я ее раньше и не знал
я от нее и оттолкнулся+метод Шелла(это там где сортировка)+стандартного ввода ну и пожалуй все

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

2. тут вобще в догадках теряюсь

3. знаю как там буквами играть, а со словами лажа получаеться

[volvo]

1. ... ну скажем просто найти сумму у какойнить диагонали

FAQ: Матрицы - типичные задачи

3. знаю как там буквами играть, а со словами лажа получаеться

FAQ: Работа со строками

[Guest]

FAQ: Матрицы - типичные задачи
FAQ: Работа со строками

нет, у меня проблема не в этом

у меня проблемы с файлами, как это будет с файлами работать?
в текстовом скорее всего как со стрингами

Код

 kpr:=['.','!','?'];
 ksl:=[' ',':',';'];
 ksl:=ksl+kpr;
 assign(f,'file1');
 rewrite(f);
 write('Enter string: ');
 readln(s);

for i:=1 to length(s) do
   begin
   if not(s[i] in ksl) then inc(kb);
       if (s[i] in kpr) then while not((length(s))-1 in ksl) do inc(kkb);
      copy(s[i], kb);
      copy(length(s)-kkb-1, kkb);

я хоть в правильном направлении мыслю

тоесть пока не первый признак конца слова запоминаем количество букв.
если конец редложения то идем обратно пока не признак конца слова.
выделяем первое и помледнее слова.
как поменять?

в типизированном не знаюю, как там эти filepos, seek, filesize использовать

а как на счет задачи нумбер 2) у меня даже идеи никакой нет
ваши предложения

[volvo]

в типизированном не знаюю, как там эти filepos, seek, filesize использовать

И это есть в FAQ.

я хоть в правильном направлении мыслю

Если речь об очередном изобретении велосипеда, то отвечаю: "Да, в правильном". Но вот пока этот кусок программы компилироваться не будет. "Несовместимые типы"... А прежде, чем говорить

нет, у меня проблема не в этом

нужно хотя бы заглянуть по ссылке. Вот по второй ссылке как раз и была функция разбиения текста на строки...

Я так понимаю, Вы хотите, чтобы Вам от и до все сделали? FAQ читать не желаете...

[Guest]

И это есть в FAQ.
Если речь об очередном изобретении велосипеда, то отвечаю: "Да, в правильном". Но вот пока этот кусок программы компилироваться не будет. "Несовместимые типы"... А прежде, чем говорить
нужно хотя бы заглянуть по ссылке. Вот по второй ссылке как раз и была функция разбиения текста на строки...

Я так понимаю, Вы хотите, чтобы Вам от и до все сделали? FAQ читать не желаете...

нет, я нехочу от и до, к томуже это не все усовия задач,
я просто хочу понять как с файом работать

[volvo]

я просто хочу понять как с файом работать

Тогда Вам сюда: FAQ: Файлы и работа с ними

Закрыто.