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

Получить гистограмму длин строк файла

24.05.2016, 14:22. Показов 967. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Заданный текстовый файл. Получить гистограмму длин строк этого файла.
вот что мне удалось написать.
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
program fajly;
var f:text;
a:array[1..100] of string;
len:array[1..100] of integer;
max,i,n,m,j:integer;
begin
assign(f,'f.txt'); 
rewrite(f);    readln(n); close(f); reset(f);
   i:=0;
 while not eof(f) do 
    begin
    inc(i);
    readln(f,a[i]);
    end;
    close(f);
  n:=i;
  for I := 1 to n do
  len[i]:=length(a[i]);
      for I := 1 to n do
   begin
      for j := 1 to len[i] do write('#');
      writeln;
   end;
   readln;
end.
Добавлено через 43 секунды
Что здесь не так?
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.05.2016, 14:22
Ответы с готовыми решениями:

Дан символьный файл f. Получить гистограмму длин всех слов файла f
Привет! Пожалуйста, помогите решить. Дан символьный файл f. Считая, что количество символов в...

Найти сумму длин самой длинной и k-й от конца файла строк
Задание: Найти сумму длин самой длинной и k-й от конца файла строк. Моя программа: var s:...

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

Программа, печатающая гистограмму длин вводимых слов
Вообщем ,думаю всем известно это упражнение из книги кернигана и ритчи. Я написал программу,но...

1
Эксперт Pascal/Delphi
6809 / 4566 / 4819
Регистрация: 05.06.2014
Сообщений: 22,438
24.05.2016, 18:50 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
program fajly;
 
var
  f: text;
  a: array[1..100] of string;
  len: array[1..100] of integer;
  max, i, n, m, j: integer;
  s: string;
 
begin
  assign(f, 'f.txt'); 
  rewrite(f);
  write('N= ');
  readln(n);
  for i := 1 to n do
  begin
    m := random(n);
    s := '';
    for j := 1 to m do
      s := s + '#';
    writeln(s);  
  end;
  close(f);
  reset(f);
  i := 0;
  while not eof(f) do 
  begin
    inc(i);
    readln(f, a[i]);
  end;
  close(f);
  n := i;
  for I := 1 to n do
    len[i] := length(a[i]);
  for I := 1 to n do
  begin
    for j := 1 to len[i] do write('#');
    writeln;
  end;
  readln;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.05.2016, 18:50
Помогаю со студенческими работами здесь

Сформировать гистограмму длин слов, хранящихся в текстовом файле
помогите с этим заданием !!!..... Сформировать гистограмму длин слов, хранящихся в текстовом...

Вывести вертикальную гистограмму длин слов введенного текста
Здравствуйте, дали задачу "вывести вертикальную гистограмму длин слов введенного текста". не особо...

Вывести вертикальную гистограмму длин слов введенного текста
Вывести вертикальную гистограмму длин слов введенного текста

Для заданного текста построить гистограмму распределения длин слов.
Для заданного текста построить гистограмму распределения длин слов. Помогите пожалуйста.В С++


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

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

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