Файлы

@vovchik7 · Регистрация: 26.10.2014

Студворк — интернет-сервис помощи студентам

Текстовый файл F1 должен содержать не менее 10 строк.
Скопировать в файл F2 только четные строки из файла F1. Подсчитать количество слов в F2.

Кто может помочь, срочно нужно, заранее спасибо.

Добавлено через 28 минут

Delphi
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
program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  math;
 
var f1,f2:textfile;
      s1,s2,str,t: string [100];
      i1,a,i,j:integer;
begin
 writeln('Enter name');
 readln(s1);
 assignfile(f1,s1);
 rewrite(f1);
 for i:=1 to 10 do
 begin
  for j:=1 to 7 do
 begin
  a:=randomrange(1,100);
  write(f1,a);
  end;
  writeln(f1,'');
  end;
  close(f1);
  reset(f1);
  writeln('Enter name 2 file');
  readln(s2);
  assignfile(f2,s2);
  rewrite(f2);
  i:=0;
  while not(eof(f1)) do
   begin
  inc(i);
  readln(f1,str);
  if (i mod 2=0) then
  writeln(f2,str);
  end;
  while not eof(f2) do
  begin
inc(i);
readln(f2,str);
str:=' '+str;
t:=str;
for i:=1 to length(t) do
if (t[i]=' ')and(t[i+1]<>' ')then inc(i1) else if (t[i]<>' ')then b[n]:=b[n]+t[i];
end;
  close(f1);
  close(f2);
  readln;
end.

первую часть сделал, осталось подсчитать количество слов в F2

Добавлено через 53 секунды
41-47 строки нужно удалить, не от сюда

@ZX Spectrum-128 · 27.11.2014, 11:36

Подсчет слов в файле - (С) КонецСвета

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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
{Текстовый файл F1 должен содержать не менее 10 строк.
Скопировать в файл F2 только четные строки из файла F1.
Подсчитать количество слов в F2.}
 
program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  math;
 
var
  f1,f2:textfile;
  s1,s2,st,t: string [100];
  i1,a,i,j:integer;
Const
  Bukvy=['a'..'z','A'..'Z','0'..'9'];
Var
  S,Simvol,Name:String;
  kol_slov:Integer;
 
begin
  writeln('Enter name: ');
  readln(s1);
  assignfile(f1,s1);
  rewrite(f1);
  for i:=1 to 10 do
    begin
      st:='';
      for j:=1 to 7 do
        st:=st+chr(randomrange(65,87))+' ';
      writeln(f1,st);
    end;
  closefile(f1);
 
  reset(f1);
  writeln('Enter name of second file: ');
  readln(s2);
  assignfile(f2,s2);
  rewrite(f2);
  i:=0;
  while not(eof(f1)) do
    begin
      inc(i);
      readln(f1,st);
      if (i mod 2=0) then
        writeln(f2,st);
    end;
  close(f1);
  close(f2);
 
  reset(f2);
  kol_slov:=0;
  Simvol:='';
  while not (eof(f2)) do
    Begin
      Readln(F2,S);
      Simvol:=s[1];
      for i:=2 to Length(S) do
          begin
          if (S[i] in Bukvy) And (Simvol='') Then Simvol:=S[i] else
             If (Not(S[i] in Bukvy) And (i<>1))Then
                begin
                If S[i-1]=Simvol Then kol_slov:=kol_slov+1;
                   Simvol:=''
                end;
          If (i=Length(S)) And (S[i]=Simvol)
             Then kol_slov:=kol_slov+1;
          End;
      End;
 
  close(f2);
  WriteLn();
  WriteLn('Number of words:',kol_slov);
 
  readln;
end.

Новые блоги и статьи Все статьи Все блоги /
Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .

Файлы

Решение