2 / 2 / 1
Регистрация: 01.06.2012
Сообщений: 70
Записей в блоге: 4
1

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

20.12.2012, 09:04. Показов 1887. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
В текстовом файле t1 записана последовательность целых чисел, разделённых пробелами. Записать в текстовый файл t2 все положительные числа из t1.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.12.2012, 09:04
Ответы с готовыми решениями:

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

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

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

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

1
2 / 2 / 1
Регистрация: 01.06.2012
Сообщений: 70
Записей в блоге: 4
23.12.2012, 00:50  [ТС] 2
Лучший ответ Сообщение было отмечено Powersej как решение

Решение

Вот решение.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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.
1
23.12.2012, 00:50
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.12.2012, 00:50
Помогаю со студенческими работами здесь

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

Все положительные числа из файла F записать в файл 6, все отрицательное число в файл H
Создать файл целых чисел F. Все положительные числа из файла F записать в файл 6, все отрицательное...

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

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru