Ввести файл F из 12 элементов Опции

[mfractus]

меняешь условие на

if (b>=-3) and (b<=5) and ((Filepos(f)-1) mod 2<>0) then
begin
seek(f,filepos(f)-1);
b:=1;
write(f,b);
end;

хм, а я думал что при reset можно только читать из файла

Огромное спасибо! Очень помогли!

[Freedom]

А вот по условию задачи, это нужно каждый чётный элемент, подходящий под условие, менять на еденицу, или каждое второе число подходящее условию заменять на единицу?

[mfractus]

А вот по условию задачи, это нужно каждый чётный элемент, подходящий под условие, менять на еденицу, или каждое второе число подходящее условию заменять на единицу?

По условию, каждый второй элемент. Не верно?

[Freedom]

По условию, каждый второй элемент. Не верно?

Всё верно.Я просто понял условие по другому немного

[mfractus]

Всё верно.Я просто понял условие по другому немного

((Filepos(f)-1) mod 2<>0) - Вот это значит каждый второй элемент? Верно?

[Freedom]

((Filepos(f)-1) mod 2<>0) - Вот это значит каждый второй элемент? Верно?

Верно

[mfractus]

Верно

Большое спасибо!

Добавлено через 5 мин.

каждый чётный элемент, подходящий под условие, менять на еденицу, или каждое второе число подходящее условию заменять на единицу?

А нет ведь никакой разницы? Это одно и тоже?

[Lapp]

А нет ведь никакой разницы? Это одно и тоже?

Конечно, не одно и то же.
Условие однозначно трактуется как каждое второе, подходящее по условию.
На всяк случай приведу пример
До:
10 -1 2 20 4 0
После:
10 -1 1 20 4 1

[mfractus]

Код готовой программы. Сколько раз прописывать flag:=false;?

 program ABC;
var b,P,i:integer;
    f:file of integer;
    flag:boolean;
begin
     assign(f,'f.dat');
     // ввод файла
     rewrite(f);
     writeLn('вводите 12 компонент файла f:');
     flag:=false;
     for i:=1 to 12 do
         begin
              writeLn('введите ',i,'-ую компоненту файла f');
              readLn(b);
              write(f,b);
         end;
     // поиск элементов чей модуль лежит в диапазоне [1; 5]
     reset(f);
     P:=1;
     flag:=false;
     while not EOF(f) do
           begin
                read(f,b);
                if (abs(b)>=1) and (abs(b)<=5) then
                   begin
                        P:=P*b;
                        flag:=true;
                   end;
           end;
     // вывод результатов
     if flag then
        writeln('произведение элементов: ',P)
     else
         writeLn('в файле нет таких элементов');
     close(f);
end.

Сообщение отредактировано: mfractus - 27.04.2011 15:33

[Freedom]

Код готовой программы. Сколько раз прописывать flag:=false;?

Достаточно одного раза в начале программы.

[mfractus]

Достаточно одного раза в начале программы.

Спасибо! Так и сделал!

[mfractus]

Скажите, пожалуйста, что значит строка write(a,' ');? То что запись - знаю. В скобках, что за пробел?

Сообщение отредактировано: mfractus - 29.04.2011 3:53

[Lapp]

Скажите, пожалуйста, что значит строка write(a,' ');? То что запись - знаю. В скобках, что за пробел?

Я просмотрел всю тему и не смог найти такой фрагмент. Откуда ты его взял?

Совет: убери этот пробел, прогони прогу и посмотри, что получится. Думаю, сразу поймешь.


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

[mfractus]

Я просмотрел всю тему и не смог найти такой фрагмент. Откуда ты его взял?

Совет: убери этот пробел, прогони прогу и посмотри, что получится. Думаю, сразу поймешь.
и почему бы не повысить репу ребятам за помощь?.. жалко клика?

Это с другой программы, не тему ведь ради этого создавать. Воспользовался Вашим советом. Этот пробел разделяет числа в файле до изменения и после. Если убрать, то вместо 1 2 3 4 5 6, получится 123456