сложная для мну задачка..помогите плиз!

[лиса]

не получаеться решить
помогите пожалуйста

В текстовом файле содержится последовательность действительных чисел. Построить динамический список и переписать в него указанную последовательность. В полученном списке поменять на противоположные знаки чисел, по абсолютной величине превышающих 1. Измененную последовательность из списка переписать в результирующий файл. Имена исходного и результирующего файлов вводятся с клавиатуры.

[Prowler]

Что ты имеешь ввиду под динамическим списком? Динамически выделять память?

[Virtson]

или динамический массив ?
(тут решение вообще без динамики легче)

[лиса]

Динамический список- динамическая структура, каждый элемент которой содержит информационную (info) и адресную (next) компоненты.Адресная компонента указывает на адрес следующего элемента списка

[Virtson]

теорию мы знаем
сделаю в Delphi / сегодня я добрый ..

[zetrix]

Вот на паскале:

uses crt;
type element = record
        data:integer;
        next:pointer;
        end;
var
curr,head:^element;
t:integer;
f:text;
s:string;

begin
head:=nil;
clrscr;
Write('Введите имя исходного файла: ');
readln(s);
assign(f,s);
reset(f);
while not(eof(f)) do
 begin
 new(curr);
 read(f,t);
 curr^.data:=t;
 curr^.next:=head;
 head:=curr;
 end;
close(f);

curr:=head;
Write('Введите имя результирующего файла: ');
readln(s);
assign(f,s);
rewrite(f);

while curr<>nil do
 begin
 if abs(curr^.data)>1 then curr^.data:=-curr^.data;
 writeln(curr^.data);
 write(f,curr^.data,' ');
 curr:=curr^.next;
 end;
close(f);

{отчистка памяти}
if head<>nil then
 begin
 curr:=head;
 curr:=curr^.next;
 while curr<>nil do
  begin
  head^.next:=curr^.next;
  dispose(curr);
  curr:=head^.next;
  end;
 dispose(head);
 end;
readln;
end.

P.S.: я тож добрый

[Prowler]

Zetrix, а материал брал с http://read.excode.ru, да?

[zetrix]

нет, сам писал - переделал из задачи, которую сдавал 1 мес назад. Всё сам писал, абсолютно.
(я больше трафа потрачу чтоб искать, чем самому написать )

[лиса]

спасибо!огромнейшее!!!!!

[Virtson]

Сообщение от Prowler

Zetrix, а материал брал с http://read.excode.ru, да?

Zetrix просто правильно реализовал алгоритм.
респект и уважуха ..

а если задача не слишком сложная, то и решение тут - вот оно,
и как тут еще можно написать, только что переменные другие ...
?