Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.56/9: Рейтинг темы: голосов - 9, средняя оценка - 4.56
0 / 0 / 0
Регистрация: 28.12.2012
Сообщений: 3
1

посчитать сколько раз встречается каждая цифра

30.12.2012, 15:29. Просмотров 1765. Ответов 4
Метки нет (Все метки)


Помогите решить пожалуйста.
Дан файл содержащий представление числа пи с пятьюстами знаками. Определите сколько раз в этом файле встречается каждая цифра.
0
Вложения
Тип файла: txt P.txt (1.7 Кб, 12 просмотров)
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.12.2012, 15:29
Ответы с готовыми решениями:

Подсчитать, сколько раз в числе встречается каждая цифра от 0 до 9
Вводится любое число. Нужно подсчитать сколько раз в нем встречается каждая цифра от 0 до 9? В...

Определить сколько раз встречается каждая цифра в тексте
Позжалуйста помогите решить задачу по программированию: Дан текст произвольной длины . Определить...

Посчитать, сколько раз встречается цифра 7 в последовательности от 1 к N, включая N
С оператором цикла While 7. Посчитать, сколько раз встречается цифра 7 в последовательности от 1 к...

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

4
Почетный модератор
7954 / 3925 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
30.12.2012, 15:37 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses crt;
var z: array [0..9] of integer;
    c: char;
    f: file of char;
    n,code: integer;
    
begin
assign(f,'D:\P.txt');  reset(f);
while not (eof(f)) do
      begin
      read(f,c);
      if c in ['0'..'9'] then
         begin
         val(c,n,code);
         inc(z[n]);
         end;
      end;
writeln('Количество цифр в записи числа pi:');
for n:=0 to 9 do
    writeln(n,' встречается ',z[n],' раз(а)');
readln;
end.
2
Фрилансер
3411 / 2808 / 3000
Регистрация: 08.02.2012
Сообщений: 7,999
Записей в блоге: 1
30.12.2012, 15:40 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Var A:array[0..9] of integer;
    f:text;
    s:string;
    i:byte;
Begin
    Assign(f,'p.txt');Reset(f);
    While not Eof(f) do
    Begin
      readln(f,s);
      For i:=1 to Length(s) do
       if s[i] in ['0'..'9'] then inc(A[ord(s[i])-ord('0')]);
    End;
    For i:=0 to 9 do
     writeln('Цифра ',i,' встречается = ',A[i]);
    Close(f);
    readln;
End.
2
Модератор
62928 / 46949 / 32353
Регистрация: 18.05.2008
Сообщений: 113,759
30.12.2012, 15:44 4
Лучший ответ Сообщение было отмечено как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses crt;
var f:text;
    i:byte;
    a:char;
    b:array[0..9] of byte;
begin
clrscr;
for i:=0 to 9 do
b[i]:=0;
assign(f,'p.txt');
reset(f);
while not eof(f) do
 begin
  read(f,a);
  if a in ['0'..'9'] then inc(b[ord(a)-48]);
 end;
close(f);
writeln('Встречаемость цифр в файле');
for i:=0 to 9 do
writeln(i,'-',b[i]);
readln
end.
3
0 / 0 / 0
Регистрация: 28.12.2012
Сообщений: 3
30.12.2012, 15:49  [ТС] 5
спасибо всем большое)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.12.2012, 15:49

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

Вводится N цифр. Выведите сколько раз встречалась на вводе каждая цифра
Не знаю,что написать в цикле. program olimp; var a : array of longint; d: array of...

Сколько раз в числе встречается максимальная цифра
1.Дано натуральное число n.Сколько раз в нём встречается максимальная цифра? 2.Найти 10 первых...

Сколько раз заданная цифра встречается в числе N
Вот задание: сколько раз заданная цифра встречается в числе N? Срочно нужно!Ооочень!

Выведите на экран сколько раз встречается каждая буква латинского алфавита
1.Введите два числа. Найдите коэффициент приведённого квадратного уравнения, корнями которого...


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

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

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