Помощь - Поиск - Пользователи - Календарь
Полная версия: задача с файлами
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Solymr
есть задание:
Задание3. В текстовом файле содержится последовательность действительных чисел. Из заданной последовательности получить последовательность логических констант со значениями True для положительных и False для отрицательных чисел. Полученную последовательность записать в результирующий файл. Имена исходного и результирующего файлов вводятся с клавиатуры.
program zadacha3;
var
f,res: text;
i: integer;
filename: string;

begin
writeln('имя исходного файла');
readln(filename);
assign(f,filename);
writeln('имя результирующего файла');
readln(filename);
assign(res,filename);
{$I-}
reset(f);
{$I+}
if IOResult<>0 then
exit;
rewrite(res);
while not eof(f) do
begin
readln(f,i);
writeln(res,i>0);
end;
close(f);
close(res);
end.


если ввожу в исходный файл только положительные числа, в результирующем пишет - True. Если только отрицательные - False. А если и те и другие, то тоже False. Это по-моему заданию не совсем соответствует. Может кто что подскажет?
М
Теги... мисс_граффити

Артемий
Не,почему,у меня вроде все пишет..
Допустим:
12
34
-7
-10
55
66
Пишет
TRUE
TRUE
FALSE
FALSE
TRUE
TRUE

А как должно быть еще?
Dimusik
А как быть с такой задачей : Дана последовательность действительных чисел в текстовом файле. Найти их среднее значение отбросив предварительно мин и макс и результат записать а новый текстовый файл.
volvo
Поиском пользуйся... Решение задачи (вернее, его алгоритм) уже было на форуме. Это делается за один проход по файлу...
мисс_граффити
ну и зачем задавать свой вопрос в чужой теме???
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.