Подаскажите, пожалуйста, почему не выводит результат программа

@space_for_mind · Регистрация: 25.07.2017

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

Подскажите, пожалуйста, почему не работает следующая программа, т.е. е выводятся сообщения по условию.
Сама задача: Задано N положительных целых чисел в интервале (0,108), нужно посчитать количество каких чисел по длине(например, 22 имеет длину 2 и т.д.) меньше всех, если одинаковое количество чисел разной длины, тогда выбирается меньшее по длине.
Вот программа на языке PascalABC..Net:

Pascal

begin
var a,b,c,d:integer;
var N:=ReadInteger('Enter N: ');
for var i:=1 to N do
  begin
    Readln(a);
  if (a div 10)=0 then
  Inc(b);
    if (a div 10)<10 then
  Inc(c);
  if (a div 10)>10 then 
  Inc(d);
  end;
 
if (b>c) and (b>a) then Writeln('1-самая редкая длина');
if (c>a) and (c>b) then Writeln('2-самая редкая длина');
if (d>b)and(d>c) then Writeln('3-самая редкая длина'); 
end.

@Puporev · 25.07.2017, 17:51

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

почему не работает следующая программа

Если честно сказать, то обидишься. Хоть бы условие задачи написал как в оригинале, а не что на ум пришло.

@space_for_mind · 25.07.2017, 18:19 **[ТС]**

Назовём длиной числа количество цифр в его десятичной записи. Например, длина числа 2017 равна 4, а длина числа 7 равна 1.
Дан набор из N целых положительных чисел, каждое из которых меньше 108. Необходимо определить, числа какой длины реже всего (но не менее одного раза) встречаются в данном наборе и сколько в нём чисел этой длины. Если числа разной длины встречаются одинаково часто (и реже, чем числа любой другой длины), нужно выбрать меньшую длину.

@MrEventual · 25.07.2017, 18:31

Правда, есть на что обидеться.

1) Вот, как твоя программа сортирует числа. Явно не то, что нужно.

Pascal

    // Если 100-109
    if (a div 10) = 0 then
      Inc(b);
    // Если 0-99
    if (a div 10) < 10 then
      Inc(c);
    // Если 110+
    if (a div 10) > 10 then 
      Inc(d);

2) В твоей программе a - временная переменная, в которой хранится введённое число. Тут его быть никоим образом не должно. Да и вообще, даже если переменные были бы верны, при совпадении любых двух он тоже ничёго бы не вывел.

Pascal

1
2
3

  if (b > c) and (b > a) then Writeln('1-самая редкая длина');
  if (c > a) and (c > b) then Writeln('2-самая редкая длина');
  if (d > b) and (d > c) then Writeln('3-самая редкая длина');

Советую написать заново, комментируя все переменные.

@Puporev · 25.07.2017, 19:10

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

каждое из которых меньше 108.

Даже это лень правильно написать
наверняка там было 10⁸

Добавлено через 34 минуты

Pascal

var b:array[1..8] of integer;
    a,l,mn:integer;
begin
var N:=ReadInteger('Enter N: ');
for var i:=1 to 8 do
b[i]:=0;
for var i:=1 to N do
 begin
  readln(a);
  l:=length(inttostr(a));
  inc(b[l]);
 end;
mn:=0;
for var i:=1 to 8 do
if b[i]>0 then
if mn=0 then mn:=i 
else if b[i]<b[mn] then mn:=i;
write('Наименее часто встречаются числа длиной ',mn);
end.

@space_for_mind · 25.07.2017, 21:09 **[ТС]**

Спасибо за помощь, вас понял.

@Puporev Почетный модератор 64287 / 47586 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	25.07.2017, 17:51	2
	Сообщение от space_for_mind почему не работает следующая программа Если честно сказать, то обидишься. Хоть бы условие задачи написал как в оригинале, а не что на ум пришло. 0

@space_for_mind 0 / 0 / 0 Регистрация: 25.07.2017 Сообщений: 12
	25.07.2017, 18:19 [ТС]	3
	Назовём длиной числа количество цифр в его десятичной записи. Например, длина числа 2017 равна 4, а длина числа 7 равна 1. Дан набор из N целых положительных чисел, каждое из которых меньше 108. Необходимо определить, числа какой длины реже всего (но не менее одного раза) встречаются в данном наборе и сколько в нём чисел этой длины. Если числа разной длины встречаются одинаково часто (и реже, чем числа любой другой длины), нужно выбрать меньшую длину. 0

@space_for_mind 0 / 0 / 0 Регистрация: 25.07.2017 Сообщений: 12
	25.07.2017, 21:09 [ТС]	6
	Спасибо за помощь, вас понял. 0

Опции темы