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

Вывести 3 наиболее часто встречающихся в файле числа

17.09.2012, 20:51. Просмотров 644. Ответов 2
Метки нет (Все метки)

Здравствуйте, застрял на задаче, несколько дней ломаю голову и не сргу найти ошибку.
Условие
Составить программу которая выполняет след. действ.
1.запрашивает имя файла.
2.считывает файл (при усл. что он существует, если нет то выдать сообщение файла нет.
3.Отобразить файл на экране.
4.Вывести 3 наиболее часто встречающихся числа.
5.вывести на экран.

Собственно проблема в 4 пункте.

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
Uses CRT;
Type MAS=array[1..30] of char;
Type MAS1=array[1..30] of integer;
Var j,n,k,max,l,p,i2:integer;
max1,i:char;
S,name:string;
B:MAS;
B1:MAS!;
f:text;
Begin
ClrSCR;
Writeln('Введите имя файла');
ReadLn(name);
Assign(F,'C:\temp\test.txt');
Reset(F);
if IoResult <>0 then
 writeln('Файла нет');
Close(F);
Reset(F);
n:=1;
i:='a';
while (i<='z') Do Begin
reset(F);
Begin
 repeat
 readln(F,S);
 l:=length(S);
  For j:=1 to l Do
    Begin
       if S[j]=i then
        K:=K+1;
    end;
 until eof(F);
close(F);
B[n]:=i;
B1[n]:=k;
n:=n+1;
p:=ord(i)+1;
i:=chr(p);
end;
k:=0;
end;
j:=1;
if j<3 then begin
j:=1;
i1:=1;
 Begin
   max:=0;
     if j<26 then
       Begin
         if B1[i1]=>max then
           Begin
             max:=B1[i1];
             max1:=B[j];
             i1:=i1+1;
             j:=j+1;
           end;
         WriteLn(' ',max1);
         WriteLn(' ',max);
         B1[i1]:=0;
         end;
        end;
 end;
end.
Добавлено через 1 минуту
Новую задачу не надо. Хочу найти здесь ошибку. Комментарии надо?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.09.2012, 20:51
Ответы с готовыми решениями:

Получить два наиболее часто встречающихся слова в файле
напишите пожалуйста программу,очень нужно: дан символьный фaйл f. получить...

Сделать программу-справочник о наиболее часто встречающихся праздниках
Сделать программу-справочник о наиболее часто встречающихся праздниках (Новый...

Составить программу наиболее часто встречающихся ответов и их долей в процентах
Японская радиокомпания провела опрос N радиослушателей по вопросу: «Какое...

Получить 100 наиболее часто встречающихся слов файла и частоту их появления
Даны символьный файл f, содержащий произвольный текст длиной более 5000 слов....

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

2
Фаер
640 / 369 / 259
Регистрация: 09.12.2011
Сообщений: 733
Записей в блоге: 35
17.09.2012, 21:07 2
Я, конечно, допускаю, что Вы ошиблись, когда писали сообщение, поэтому пока ошибки две, не очень значительных:

Цитата Сообщение от trane133 Посмотреть сообщение
B1:MAS!;
Надо понимать: B1:MAS1;

Ещё одна здесь:
Цитата Сообщение от trane133 Посмотреть сообщение
i1:=1;
Переменная i1 не задана.
0
trane133
0 / 0 / 0
Регистрация: 27.05.2012
Сообщений: 34
17.09.2012, 21:18  [ТС] 3
КиберПёс, да спасибо перепутал.
кнопки редактировать найти не могу((
вместо i1 i2 описал.

Ошибка где-то с 44 до 65.
Перед этим проверял компилятором все норм.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.09.2012, 21:18

Вывести на экран наиболее часто встречающийся элемент
И так товарищи,дан символьный массив . Вывести на экран наиболее часто...

Указать наиболее часто встречающиеся цифры числа N
Дано натуральное число N. Указать наиболее часто встречающиеся цифры числа N. ...

Получить 10 наиболее часто встречающихся слов
Дан символьный файл f, содержащий произвольный текст длиной более 50 слов....


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

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

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