Irok FOX
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
XPerformer
Спасибо, буду немного изменять....
Добавлено:
XPerformer, выдает ошибку, что не readLn нельзя использовать для данного вида файла... (double). не пойму что-то
Код:
type
reals = file of real;
procedure print(var f : reals);
var
value : double;
b : boolean;
begin
if not eof(f) then
begin
read(f, value); // читаем число из файла
b := (value < 0); // отрицательное ли оно?
if b then
writeln(value:8:5); // если отрицательное - то печатаем его сразу же
print(f); // Собственно, рекурсия
end;
// при обратном ходе рекурсии проверяем, печатали ли уже это число?
// если b = true - то оно отрицательное, и было напечатано ранее, а вот
// если b = false, то надо его печатать сейчас
if not b then
writeln(value:8:5);
end;
var
f : reals;
i : integer;
X : double;
begin
// для теста - создаем файл
assign(f,'C:\TER\chisla.txt');
rewrite(f);
begin
readLn(f,X);
// Какие значения занесены в файл, чтоб можно было сравнить с выводом print
writeln(X:8:5);
end;
reset(f);
writeln('print:');
print(f);
close(f);
end. |
|
Всего записей: 11 | Зарегистр. 29-11-2011 | Отправлено: 14:23 29-11-2011 | Исправлено: Irok FOX, 15:19 29-11-2011 |
|
))))