Определить количество слов и чисел в текстовом файле.

@Solnze2 · Регистрация: 02.06.2010

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

Определить количество слов и чисел в текстовом файле.

Плиз

@sk1pper · 11.04.2013, 07:29

Pascal

  uses crt;
   Var f:text;
    s,s1:string;
   k1,k2,n,k:integer;
    Begin
    Assign(f,'EXAMPLE.TXT');Reset(f);
    While not Eof(f) do
    Begin
      readln(f,s);
      s:=s+' ';
      While Pos(' ',s)>0 do
      Begin
        s1:=Copy(s,1,Pos(' ',s)-1);
        Delete(s,1,Pos(' ',s));
        if s1<>'' then
        Begin
          Val(s,n,k);
          if k>0 then inc(k1)
          else inc(k2);
        End;
      End;
    End;
    Close(f);
    writeln('Слов = ',k1);
    writeln('Чисел = ',k2);
    End.

@Solnze2 1 / 1 / 0 Регистрация: 02.06.2010 Сообщений: 26
		1
	Определить количество слов и чисел в текстовом файле. 10.06.2010, 09:13. Показов 1590. Ответов 1 Метки нет (Все метки) Определить количество слов и чисел в текстовом файле. Плиз 0

	11.04.2013, 07:29

Определить количество слов и чисел в текстовом файле.

Решение