Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/8: Рейтинг темы: голосов - 8, средняя оценка - 4.75
F. Alonso
1 / 1 / 0
Регистрация: 06.04.2011
Сообщений: 117
1

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

13.04.2011, 18:44. Просмотров 1610. Ответов 4
Метки нет (Все метки)

добрый вечер
нужна ваша помощь с программкой:
Организовать текстовый файл состоящий из N строк. Определить среднее количество символов в строке данного файла.
заранее спасибо!
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.04.2011, 18:44
Ответы с готовыми решениями:

Определить среднее количество символов в строке данного текстового файла
4.Организовать текстовый файл состоящий из N строк. Определить среднее количество символов в строке...

Определить среднее количество символов в строке файла
Организовать текстовый файл состоящий из N строк. Определить среднее количество символов в строке...

Текстовые файлы. Определить среднее количество символов в строке
Организовать текстовый файл состоящий из N строк. Определить среднее количество символов в строке...

Определить среднее количество символов в строке текстового файла
Организовать текстовый файл состоящий из N строк. Определить сред-нее количество символов в...

Среднее количество символов в слове текстового файла.
Дан текстовый файл, содержащий некий текст. Текст разбит на несколько строк длиной не более 255...

4
ZevsNet
78 / 50 / 46
Регистрация: 30.09.2010
Сообщений: 138
14.04.2011, 08: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
const
    Address = 'test.txt';
var
    TextFile:Text;
    Size:integer;
    i:integer;
    BuffText:String;
    Cout:integer;
begin
    Cout:=0;
    Assign(TextFile,Address);
    Rewrite(TextFile);
    write('Сколько строк вы хотите ввести?:');
    readln(Size);
    for i:=1 to Size do
    begin
        readln(BuffText);
        writeln(TextFile,BuffText);
    end;
    close(TextFile);
    
    reset(TextFile);
        while not eof(TextFile) do
        begin
            readln(TextFile,BuffText);
            for i:=1 to length(BuffText) do
            begin
                if (BuffText[i] in ['A'..'z','А'..'я'])then
                begin
                    Cout:=Cout+1;
                end
            end;
        end;
    close(TextFile);
    writeln('Средняя длина строк:',Cout div Size);
end.
0
F. Alonso
1 / 1 / 0
Регистрация: 06.04.2011
Сообщений: 117
14.04.2011, 14:11  [ТС] 3
огромное спасибо
0
Mиxaил
536 / 441 / 162
Регистрация: 10.12.2009
Сообщений: 1,857
14.04.2011, 14:26 4
Обычно в таких задачах текстовые файлы даны, их никто не заполняет, иначе, можно работать просто с массивом строк. Среднее количество - это, как правило, число вещественного типа... И число символов в строке - это число ВСЕХ символов, а не только латинских букв!
И раз уж решать, как решает ZevsNet, то я бы сократил программу в два раза, а то и больше...

Pascal
1
2
3
4
5
6
7
8
9
10
11
CountString := 0;
SumSymbols := 0;
ReSet(f);
while (not EOF(f)) do
    begin
        readln(f, Str);
        Inc(CountString);
        SumSymbols := SumSymbols + Length(Str);
    end;
Close(f);
WriteLn('Middle of String = ', SumSymbols/CountString : 7 : 5);
0
ZevsNet
78 / 50 / 46
Регистрация: 30.09.2010
Сообщений: 138
14.04.2011, 14:42 5
Михаил, вы правы.
Но по заданию просто было сказано так
"Организовать текстовый файл состоящий из N строк."
вот потому я так и написал...
и программу можно было бы и уменьшить в двое.
Просто это уже другая история)..
0
14.04.2011, 14:42
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.04.2011, 14:42

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

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

Определить количество букв «а» в каждой из них (создать функцию, подчитывающую количество заданных символов в строке)
2. Вводятся две строки. Определить количество букв «а» в каждой из них (создать функцию,...


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

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

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