есть задание:
Задание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.
М | Теги... мисс_граффити |
Не,почему,у меня вроде все пишет..
Допустим:
12
34
-7
-10
55
66
Пишет
TRUE
TRUE
FALSE
FALSE
TRUE
TRUE
А как должно быть еще?
А как быть с такой задачей : Дана последовательность действительных чисел в текстовом файле. Найти их среднее значение отбросив предварительно мин и макс и результат записать а новый текстовый файл.
Поиском пользуйся... Решение задачи (вернее, его алгоритм) уже было на форуме. Это делается за один проход по файлу...
ну и зачем задавать свой вопрос в чужой теме???