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

[mfractus]

Здравствуйте уважаемые пользователи ресурса! Прошу помощи в решении задачи.

Ввести файл F из 12 элементов. Определить в нём произведение тех
элементов, чей модуль лежит в диапазоне [ 1; 5]. Заранее спасибо!

Начал с ввода файла F:

program ABC;
var b,P,i:integer;
f:file of integer;
begin
assign(f,'f.dat');
rewrite(f);
writeLn('вводите 12 компонент файла f:');
for i:=1 to 12 do
begin
writeLn('введите ',i,'-ую компоненту файла f');
readLn(b);
write(f,b);
end;

[mfractus]

Задача Ввести файл F . Каждый второй элемент в файле, чьё значение лежит в
диапазоне [−3; 5] заменить единицей. Файл вывести до и после
преобразования. Практически аналогична, но вот в ней не могу прописать условие.

Начинаю с ввода F

begin
assign(f,'f.dat');
writeLn('введите первую компоненту файла f (признак конца
ввода: "555")');
//ввод файла
rewrite(f);
readLn(b);
i:=1; //номер компоненты файла
while b<>555 do
begin
write(f,b);
inc(i);
writeLn('введите ',i,'-ую компоненту файла f');
readLn(b);
end;
//вывод файла до изменения
reset(f);
writeLn('файл f до изменения:');
while not EOF(f) do
begin
read(f,b);
write(b:5);
end;
writeLn;

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

Если с flag(boolean) то все будет верно. Так как у boolean всего два значения(True/False), а для переменой которая будет принимать только значения 0 и 1 будет нелогично исп. типы integer или logint и.д. так что придеться создать свой тип (0..1) бинарный. Всё же когда у нас только два выбора, нужно исп. логический тип boolean.

Большое спасибо за столь подробное объяснение!

[DarkWishmaster]

Задача Ввести файл F . Каждый второй элемент в файле, чьё значение лежит в
диапазоне [−3; 5] заменить единицей. Файл вывести до и после
преобразования. Практически аналогична, но вот в ней не могу прописать условие.

Начинаю с ввода F

Можно:
1)Ввести в 1 файл, потом создать ещё один где ты уже будешь писать преобразовыне числа.
2) Когда записываешь в 1 файл можно запоминать числа в векторе, а потом уже rewrite и пишешь числа из вектора и изменяем их.
3)Если тупо надо вывести на экран файл то можно так:

begin
assign(f,'f.dat');
writeLn('введите первую компоненту файла f (признак конца
ввода: "555")');
//ввод файла
rewrite(f);
readLn(b);
i:=1; //номер компоненты файла
while b<>555 do
begin
write(f,b);
inc(i);
writeLn('введите ',i,'-ую компоненту файла f');
readLn(b);
end;
//вывод файла до изменения
reset(f);
writeLn('файл f до изменения:');
while not EOF(f) do
begin
read(f,b);
write(b:5);
end;
//вывод файла после изменения
reset(F);
while not Eof(F) do
read(f,b);
if (b>=-3) and (b<=5) then write(1:5)
 else write(b:5);
writeLn;

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

Сообщение отредактировано: DarkWishmaster - 26.04.2011 23:07