Описать функцию подсчета количества цифр в числе - PascalABC.NET

Узнай цену своей работы

Формулировка задачи:

Описать функцию DigitCount(К) целого типа, находящую количество цифр целого положительного числа К. Используя эту функцию, сформировать массив В, каждый элемент которого равен количеству цифр соответствующего элемента массива А размера N. Входной файл может быть произвольным Есть небольшие наработки, не могу понять как сделать что бы количество цифр выводилось в другой массив

Решение задачи: «Описать функцию подсчета количества цифр в числе»

textual
Листинг программы
const
  MaxCount = 200;
 
type
  T_number = integer;
  T_elem = integer;
  T_size = 1..MaxCount;
  T_mas = array [T_size] of T_elem;
 
///Нахождение количества цифр в элементе массива
function DigitCount(k: longint): byte;
var
  n: longint;
  s: byte;
begin
  n := abs(k);
  s := 0;
  while n > 10 do
  begin
    n := n div 10;
    s := s + 1
  end;
  DigitCount := s + 1
end;
 
///Чтение из файла массива А размерностью n
procedure input_output_mas(var A, B: T_mas; var Rmas: T_size);
begin
  
  assign(input, 'input.txt');
  
  Rmas := 0;
  while not eof(input) do
  begin
    inc(rmas);    //текущая размерность массива
    read(A[rmas]);
    write(A[rmas], ' ');
    writeln('Колличество чисел = ', digitCount(a[rmas]));
    B[rmas] := digitCount(a[rmas]);
    
  end;
  close(input);
  
  assign(output, 'output.txt');
  for var i := 1 to rmas do
    write(output, b[i]:3);
  close(output);
  
  writeln('************************');
  writeln('      НОВЫЙ МАССИВ');
  writeln('************************');
  for var i := 1 to rmas do
    write(b[i]:3);
  
end;
 
var
  A, B: T_mas;   //исходный массив
  Rmas: T_size;//кол-во элементов
  num: T_number;
 
begin
  
  writeln('Исходный массив: ');
  input_output_mas(a, b, Rmas);
  writeln();
  
end.

Объяснение кода листинга программы

  1. Объявляются константы и типы данных для задачи.
  2. Функция DigitCount(k: longint): byte; отвечает за подсчет количества цифр в числе k.
  3. Функция input_output_mas(var A, B: T_mas; var Rmas: T_size) отвечает за чтение из файла массива А размерностью n, подсчет количества цифр в каждом числе и запись в файл output.txt.
  4. Создаются и инициализируются переменные A, B, Rmas и num типа T_mas, T_number, T_size.
  5. Выводится сообщение об исходном массиве.
  6. Вызывается функция input_output_mas(a, b, Rmas); для чтения из файла input.txt и записи в файл output.txt.
  7. Выводится сообщение о новом массиве, созданном на основе данных из файла output.txt.
  8. Задачу можно считать решенной.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 4.8 из 5
Похожие ответы