0 / 0 / 0
Регистрация: 08.05.2012
Сообщений: 15
1

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

16.05.2012, 16:42. Показов 1626. Ответов 2
Метки нет (Все метки)

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

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

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

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

Описать процедуру prim(f,n), записывающую в файл f все простые числа, не превосходящие n
Помогите пожалуйста! Type rad = file of 1..maxint; Описать процедуру prim(f,n), записывающую в...

2
792 / 398 / 260
Регистрация: 09.12.2011
Сообщений: 786
Записей в блоге: 29
16.05.2012, 18:33 2
Лучший ответ Сообщение было отмечено kazbek 1 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Var t1,t2:text;
Procedure Fil(t1,t2:text);{описание процедуры}
 Var s,p:string; t,code,i:integer;{описание локальных переменных}
  Begin
   Readln(t1,s);{читаем строку s из файла t1}
   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,' '){если полученное число больше нуля, то записываем его в файл t2}
      Else code:=0;
     p:='';
   End;
 End;
Begin
Assign(t1,'C:\In.txt'); Reset(t1);{открываем файл для чтения}
Assign(t2,'C:\Out.txt'); ReWrite(t2);{создаём файл для записи}
Fil(t1,t2);{вызов процедуры}
Close(t1); Close(t2);
End.
0
0 / 0 / 0
Регистрация: 08.05.2012
Сообщений: 15
16.05.2012, 19:20  [ТС] 3
spasibo ogromnoe viruchel
0
16.05.2012, 19:20
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.05.2012, 19:20
Помогаю со студенческими работами здесь

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

Написать программу создающую и записывающую на диск текстовый файл
Дан текстовый файл целых чисел int.dat. Написать программу создающую и записывающую на диск...

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

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

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

Описать процедуру р(g,f,h), которая из файла g переписывает все положительные числа в пустой файл f
Нужна помощь в составлении программы type rad = file of integer; Описать процедуру р(g,f,h) от...


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

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

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