Задание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. Это по-моему заданию не совсем соответствует. Может кто что подскажет?
М | Теги... мисс_граффити |
Сообщение отредактировано: мисс_граффити -