Файлы

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

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

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

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

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

Delphi

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

{Текстовый файл 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.

	27.11.2014, 11:36

Файлы

Решение