Записать в текстовый файл t2 все положительные числа из t1

@Powersej · Регистрация: 01.06.2012

В текстовом файле t1 записана последовательность целых чисел, разделённых пробелами. Записать в текстовый файл t2 все положительные числа из t1.

@Powersej · 23.12.2012, 00:50 **[ТС]**

Вот решение.

Pascal

Program Failbl;
Var t1,t2:text;
Procedure kak_to_tak(t1,t2:text);
 Var s,p:string; t,code,i:integer;
  Begin
   Readln(t1,s);
   For i:=1 to length(s) do
    If not(s[i]=' ') and not(i=length(s)) then p:=p+s[i]
    Else
     Begin
      If i=length(s) then p:=p+s[i];
      Val(p,t,code);
      If (code=0) and (t>0) then Write(t2,t,' ')
      Else code:=0;
     p:='';
   End;
 End;
Begin
Assign(t1,'C:\Users\.......\Desktop\......\2\In.txt'); Reset(t1);
Assign(t2,'C:\Users\.......\Desktop\......\2\Out.txt'); ReWrite(t2);
kak_to_tak(t1,t2);
Close(t1); Close(t2);
End.

@Powersej 2 / 2 / 1 Регистрация: 01.06.2012 Сообщений: 70 Записей в блоге: 4
		1
	Записать в текстовый файл t2 все положительные числа из t1 20.12.2012, 09:04. Показов 1786. Ответов 1 Метки нет (Все метки) В текстовом файле t1 записана последовательность целых чисел, разделённых пробелами. Записать в текстовый файл t2 все положительные числа из t1. 0

Опции темы

Записать в текстовый файл t2 все положительные числа из t1

Решение