Задача с текстовыми файлами Опции

[Art87]

В текстовом файле t1 записана последовательность целых чисел, разделенных пробелами. Написать программу, записывающую в текстовый файл t2 все отрицательные числа.

Как написать, что S – это целые числа разделенный пробелами?

Var
t1, t2: text;
S: string;

begin
assign (t1, 'C:\t1.txt');
rewrite(t1); writeln;
readln(S);
while S<0 do begin
writeln(f,S); 
writeln('Ввод новой строки для выхода - Enter');
readln(S); end;
close(t1);
assign(t2, 'C:\t2.txt'); 
rewrite(t2); reset(t1);
readln(t1,S);

while
NOT eof(t1) do
begin
readln(t1, S);
writeln(t2, S);

If NOT eof(t1) then
readln(t1, S);
end;
close(t2); end.

и если не считать косяка с S, то в остальном есть ошибки?

Сообщение отредактировано: Art87 - 22.11.2005 14:39

[volvo]

Art87

Как написать, что S – это целые числа разделенный пробелами?

Ничего не надо писАть... Просто вместо WriteLn(f, S) сделай Write(f, S, ' ');

Ну, и само чтение подправь:

Var T: Integer;
...
reset(t1); rewrite(t2);
while NOT eof(t1) do begin
  read(t1, T);
  If T < 0 Then writeln(t2, S);
end;
close(t1); close(t2);

[Art87]

volvo

Я так написал. Вообще ничего не происходит. В чем ошибка?

Var
t1, t2: text;
S: string;
T: integer;

begin
assign (t1, 'C:\t1.txt');
rewrite(t1); writeln;
readln(S);
while T<0 do begin
writeln(t1,S, ''); writeln('Ввод новой строки для выхода - Enter');
readln(S); end;
close(t1);
assign(t2, 'C:\t2.txt'); reset(t1); rewrite(t2);
readln(t1,S);

while
NOT eof(t1) do
begin
read(t1, T);
writeln(t2, S);

If T<0 then
writeln(t2,S); end;
close(t1); close(t2);
end.

[volvo]

Вот так файл T1 сначала заполняется "числами", записанными через пробел, а потом все отрицательные числа из него записываются еще и в файл T2...

Var
  t1, t2: text;
  S: string;
  T: integer;

begin
  assign (t1, 't1.txt');
  rewrite(t1); writeln;
  repeat
    write('Ввод нового числа (для выхода - Enter): '); readln(S);
    if s <> '' then
      write(t1,S, ' ');
  until s = '';
  reset(t1);

  assign(t2, 't2.txt');
  rewrite(t2);

  while NOT eof(t1) do begin
    read(t1, T);
    if T < 0 then writeln(t2, T);
  end;

  close(t1); close(t2);
end.

[Art87]

Спасибо , volvo