С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
Liza_xD
0 / 0 / 0
Регистрация: 22.12.2009
Сообщений: 2
1

Количество слов, состоящих из одного, двух, трех и т.д. символов в текстовом файле

25.12.2009, 19:58. Просмотров 1398. Ответов 6
Метки нет (Все метки)

Дан текстовый файл. Считая, что количество букв в одном слове не превосходит 20, определить, сколько в файле имеется слов, состоящих из одного, двух, трех и т.д. символов. Результат вывести в другой текстовый файл.

Помогите блондинке..))
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.12.2009, 19:58
Ответы с готовыми решениями:

Определить сколько в файле f слов состоящих из одного, двух, трех и т.д. символов
Дан символьный файл f Считая что количество символов в слове не превосходит 20...

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

Изменить программу так, чтобы определить количество слов, состоящих из одного, двух, трех и более слогов
Изменить программу так, чтобы определить количество слов, состоящих из одного,...

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

Дана строка символов. Определить количество слов, состоящих из четырех букв
Дана строка символов. Определить количество слов состоящих из четырех букв. ...

6
Eugeniy
3119 / 1312 / 156
Регистрация: 19.12.2009
Сообщений: 1,808
25.12.2009, 22:22 2
Я предпочетаю помогать девушкам независимо от цвета волос)

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
Program quontity;
Uses Crt;
type vector=array[1..20] of integer;
var
f,g:text;
n:integer;
procedure vvod(n:integer; var f:text);
 var
  k:integer;
  s:string;
   begin
    assign(f,'word.txt');
      rewrite(f);
       append(f);
        for k:=1 to n do begin
          readln(s);
           writeln(F,s);
            end;
          close(f);
         end;
procedure proverka(s:string; var A:vector);
   var
    i,j,k,n:integer;
    p:boolean;
     begin
 
      n:=Length(s);
      i:=1;
      p:=False;
 
      while (i<=n) and (length(s)<>0) do begin
       i:=i+1;
       j:=0;
        if s[1]=' ' then delete(S,1,1);
         if length(s)=0 then break;
           if s[1]<>' ' then begin
             while (s[1]<>' ') and not(p) do begin
               p:=length(s)=0;
                if p then break;
                 j:=j+1;
                  delete(S,1,1);
                   end;
                  A[j]:=A[j]+1;
                   if p then break;
                  end;
                   end;
                    end;
 
 procedure robota(var f,g:text);
   var
   A:vector;
    i:integer;
      s:string;
      begin
       assign(g,'word1.txt');
        rewrite(g);
         append(g);
          reset(f);
       for i:=1 to 20 do
         A[i]:=0;
      while not eof(f) do begin
     readln(F,s);
    proverka(s,A);
   if eof(f) then break;
    end;
 close(f);
  for i:=1 to 20 do
    writeln(g,'words with ',i,' letters is',' ',A[i]);
     close(g);
      end;
begin
 Clrscr;
 readln(n);
  vvod(n,f);
   robota(f,g);
    readln;
     end.
0
кот Бегемот
Платежеспособный зверь
8503 / 3941 / 1536
Регистрация: 28.10.2009
Сообщений: 10,234
25.12.2009, 23:09 3
to Eugeniy
не завидую я девушкам, которым вы помогаете. программа - полная лажа
0
Eugeniy
3119 / 1312 / 156
Регистрация: 19.12.2009
Сообщений: 1,808
25.12.2009, 23:37 4
Почему, все условия выполнены? Если есть претензии, оформите ввиде програмы, иначе просьба не по теме не писать!
У меня програма работает, причем правильно!
Есть некоторые лишние вещи, но удалить их не могу из-за системы правки на форуме.

Добавлено через 13 минут
И правильно, не завидуйте. Во-первых вы не девушка, во-вторых зависть губит человека.
0
кот Бегемот
26.12.2009, 00:05
  #5

Не по теме:

to Eugeniy
беру свои слова обратно, меня сбило с толку то, что вы в программе сначала создаёте файл, тогда как обычно прога просто считывает то, что создано раньше. То-то, думаю, она ждёт какого-то ввода. Но, всё равно это выглядит искусственным: вводить количество строк

0
Eugeniy
3119 / 1312 / 156
Регистрация: 19.12.2009
Сообщений: 1,808
26.12.2009, 00:13 6
Это сделано для того, чтобы человек удостоверился в том, что он все сделал правильно.
Самое главное то, что основная процедура не зависит от количества введеных строк.
0
Liza_xD
0 / 0 / 0
Регистрация: 22.12.2009
Сообщений: 2
05.01.2010, 18:18 7
Евгений, спасибо вам большое!!)) Вы молодец
0
05.01.2010, 18:18
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.01.2010, 18:18

В текстовом файле посчитать количество слов
В текстовом файле book.txt посчитать количество слов, которые заканчиваются на...

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

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru