Ввести файл 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]

Большое спасибо за пояснение! Можно ли исправить данную ситуацию без помощи flag? Через else может просто?

[DarkWishmaster]

Большое спасибо за пояснение! Можно ли исправить данную ситуацию без помощи flag? Через else может просто?

Если у тебя проблема с boolean то можно через любую переменую каторая будет изменять свое значения в зависимости было или нет совершено умножение например:
там где flag:=true меняем на a:=1 (a-переменая каторая сначала 0)
потом смотришь если она 0 то таких чисел нет...

[mfractus]

Если у тебя проблема с boolean то можно через любую переменую каторая будет изменять свое значения в зависимости было или нет совершено умножение например:
там где flag:=true меняем на a:=1 (a-переменая каторая сначала 0)
потом смотришь если она 0 то таких чисел нет...

Спасибо за ответ!

Сообщение отредактировано: mfractus - 26.04.2011 22:48

[DarkWishmaster]

Спасибо за ответ, это будет верно с точки зрения написания программы? До этого с такой проблемой не сталкивался..

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