Помощь - Поиск - Пользователи - Календарь
Полная версия: Задача на файлы
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Neo
Найти произведение всех отрицательных элементов файла
volvo
p := 1;
While not eof(f) do begin
x := GetNextElement(f);
if x < 0 Then p := p * x;
end;

Какой вопрос - такой и ответ. Нужно что-то более точное - задавай более точный вопрос...
Guest
Что тут непонятного,нормальный вопрос,я так же и делал,но паскаль не запускал..вот ещё одна задачка...
вывести на экран все положительные и чётные числа файла,я забыл как записывать чётность
xds

if (x > 0) and (x and 1 = 0) then { x - положительное чётное };

volvo
Цитата(Guest @ 21.09.2005 11:43)
то тут непонятного,нормальный вопрос

Правда, ты так считаешь? Ну, тогда расскажи мне, как я должен догадаться, у тебя
Var
f: Text; { Файл - текстовый? }

или
Var
f: File Of Integer; { или типизированный? }

Цитата(Guest @ 21.09.2005 11:43)
я так же и делал
:no: "Не верю!!!" (С) Если бы ты так делал, то привел бы код, и спросил, почему он не работает. Между прочим, тот пример, который я привел, тоже еще нужно доработать...

P.S. Кстати, четность записывается как not Odd(X)
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.