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

Переписать в другой текстовый файл те строки из первого файла, в которых сумма чисел не четна.

12.05.2017, 07:47. Показов 3463. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
В первом текстовом файле содержатся строки, состоящие из нескольких слов. Под словом подразумевается последовательность символов, ограниченная пробелами или концами строки. некоторые слова могут быть целыми числами. Требуется написать процедуру FP, которая перепишет в другой текстовый файл те строки из первого файла, в которых сумма чисел нечетна. Имена фалов name1 и name2 передаются в процедуру в качестве параметров. Если необходимо, то можно описать и использовать вспомогательные процедуры и функции.
Нужно написать procedure FP(name1,name2:string);

сам просидел 1.5 суток и в растерянности, сбивался на пол пути. помогите!
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.05.2017, 07:47
Ответы с готовыми решениями:

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

Имеется текстовый файл. Переписать в другой файл те его строки, в которых имеется более 30-ти символов
Имеется текстовый файл. Переписать в другой файл те его строки, в которых имеется более 30-ти...

переписать содержимое текстового файла в другой текстовый файл,добавляя в начало каждой строки её порядковый номер(с++)
переписать содержимое текстового файла в другой текстовый файл,добавляя в начало каждой строки её...

Переписать в новый файл слова, длина которых четна
Дан текстовый файл.В новый файл напишите,который длина слов равны четному числу.Разделители могут...

2
Почетный модератор
64303 / 47598 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
12.05.2017, 09:07 2
Лучший ответ Сообщение было отмечено roman_li как решение

Решение

Тестируйте, проверяйте.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
procedure FP(name1,name2:string);
var f,g:text;
    s,s1:string;
    i,j,k,sum:integer;
begin
writeln('Введите имя исходного файла без расширения');
readln(name1);
name1:=name1+'.txt';
if not fileexists(name1) then
 begin
  writeln('Файл с именем ',name1, 'не найден');
  readln;
  exit
 end;
assign(f,name1);
reset(f);
writeln('Введите имя выходного файла без расширения');
readln(name2);
name2:=name2+'.txt';
assign(g,name2);
rewrite(g);
while not eof(f) do
 begin
  readln(f,s);
  s:=' '+s+' ';
  i:=2;
  sum:=0;
  while i<length(s) do
  if(s[i]<>' ')and(s[i-1]=' ') then
   begin
    j:=i;
    s1:='';
    k:=0;
    while(j<length(s))and(s[j]<>' ') do
     begin
      s1:=s1+s[j];
      if s[j] in ['0'..'9'] then k:=k+1;
      j:=j+1;
     end;
    if k=length(s1) then sum:=sum+strtoint(s1);
    i:=i+length(s1);
   end
  else i:=i+1;
  if sum mod 2=0 then writeln(g,s);
 end;
 close(f);
 close(g);
 end;
 var name1,name2:string;
 begin
 FP(name1,name2);
 end.
1
0 / 0 / 0
Регистрация: 12.05.2017
Сообщений: 3
14.05.2017, 16:11  [ТС] 3
наша кривая электронная версия ругается на то, что в коде присутствует strtoint, в обычном ABC.net все работает . .переделаю, спасибо =)
0
14.05.2017, 16:11
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.05.2017, 16:11
Помогаю со студенческими работами здесь

Переписать в другой файл те массивы, у которых сумма элементов больше 0
1. Создать файл, содержащий 10 одномерных целочисленных массивов a1, a2,..., a10, заполненных...

Имеется текстовый файл. Переписать его строки в другой файл.
Имеется текстовый файл. Переписать его строки в другой файл. Порядок строк во втором файле должен...

Дан текстовый файл F. Переписать в другой файл G все строки, содержащие цифры.
народ помогите сессия началась, задачи не могу сделать на С+ в билдере в консоле, не научился пока...

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


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

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

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