Определите, какая цифра в числе встречается чаще других

@VladosLancer · Регистрация: 03.10.2011

Author24 — интернет-сервис помощи студентам

Условие: дано натуральное число P. Определите, какая цифра в этом числе встречается чаще других. Программа написана правильно, только нужно кое-что доделать. Когда вводишь к примеру 12345, то программа пишет, что повторяется больше всех цифра 1, а мне нужно, чтобы она в таких ситуациях выводила: Ни одна из данных цифр не повторяется ни разу. Что тут нужно дописать?

Pascal

Program L6_3;
{ Дано натуральное число P. Определите, какая цифра в этом числе встречается чаще других }
Var
    P: Word;
    Mas: Array [0..9] of Byte;
    i,k: Byte;
procedure zifra;
Begin
    Write('P='); Readln(P);
    for i:=0 to 9 do Mas[i]:=0;
    while (P>0) do begin
      i:=P mod 10;
      P:=P div 10;
      Mas[i]:=Mas[i]+1;
  end;
  k:=0;
  for i:=1 to 9 do
      if Mas[i]>Mas[k] then k:=i;
    Writeln('Цифра ',k);
End;
begin
zifra;
end.

@Demsol · 02.12.2011, 17:12

добавить булеву переменную isit
удалить все после k:=0 и вставить код

Delphi

isit:=false;
for i:=0 to 9 do
if mas[i]>1 then isit:=true;
 
k:=-1;
if isit then
for i:=0 to 9 do
      if (Mas[i]>Mas[k]) then k:=i;
    Writeln('Цифра ',k)
        else Write('Не повторяется');

@VladosLancer · 02.12.2011, 17:31 **[ТС]**

Ошибка: ожидался символ: точка с запятой после Writeln(Цифра ',k), ставлю точку с запятой пишет ошибку: нельзя ставить точку с запятой перед else в операторе if

@versa4e · 02.12.2011, 17:38

там ошибка в синтаксисе

Pascal

k:=-1;
if isit then
begin
for i:=0 to 9 do
if (Mas[i]>Mas[k]) then k:=i;
Writeln('Цифра ',k);
end
else Write('Не повторяется');

хотя, этот тоже костыль для единичного случая, вот к примеру, если ввести 222333?

@VladosLancer · 02.12.2011, 20:55 **[ТС]**

А как тогда сделать, чтобы выводило что-нибудь, если вот такой случай, как ты написал?

@Demsol · 03.12.2011, 05:41

Сообщение от VladosLancer

А как тогда сделать, чтобы выводило что-нибудь, если вот такой случай, как ты написал?

Для этого случая нужно находить максимальное значение в массиве и смотреть повторяется ли оно.

Delphi

k:=0
for i:=1 to 9 do
if Mas[i]>k then k:=Mas[i];
 
isone:=false;
isit:=false;
for i:=0 to 9 do
 if Mas[i]=k then if isone then isit:=true else isone:=true;
                     
if NOT(isit) then 
for i:=0 to 9 do
  if Mas[i]=k then begin Write(i); break; end;
 
if isit then if k=1 then Write('Ни одна из данных цифр не повторяется ни разу');
            else  Write('Максимально число повторений у несколький цифр');

Добавить булеву переменную isone, и старый код нужно удалить

@VladosLancer · 03.12.2011, 16:28 **[ТС]**

Спасибо, всё работает

@VladosLancer · 05.12.2011, 01:13 **[ТС]**

И последний момент, если мы вводим не натуральное число, к примеру -3452, то нужно, чтобы выводило: данное число не натуральное.

@Demsol · 05.12.2011, 08:18

Delphi

if P<1 then 
begin
Write('данное число не натуральное');
readln;
halt;
end;

Вставить в самом начале программы. Если число отрицательное, то данный код его отсчет, а если дробное, то здесь сработает исключение компилятора(переменная объявлена целым числом).

@VladosLancer 1 / 1 / 0 Регистрация: 03.10.2011 Сообщений: 96
	02.12.2011, 17:31 [ТС]	3
	Ошибка: ожидался символ: точка с запятой после Writeln(Цифра ',k), ставлю точку с запятой пишет ошибку: нельзя ставить точку с запятой перед else в операторе if 0

@VladosLancer 1 / 1 / 0 Регистрация: 03.10.2011 Сообщений: 96
	02.12.2011, 20:55 [ТС]	5
	А как тогда сделать, чтобы выводило что-нибудь, если вот такой случай, как ты написал? 0

@VladosLancer 1 / 1 / 0 Регистрация: 03.10.2011 Сообщений: 96
	03.12.2011, 16:28 [ТС]	7
	Спасибо, всё работает 0

@VladosLancer 1 / 1 / 0 Регистрация: 03.10.2011 Сообщений: 96
	05.12.2011, 01:13 [ТС]	8
	И последний момент, если мы вводим не натуральное число, к примеру -3452, то нужно, чтобы выводило: данное число не натуральное. 0

	05.12.2011, 08:18

Опции темы