Парочка функций

@makaroshka · Регистрация: 17.09.2013

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

1. Опишите функцию ToBin, которая заданное натуральное число преобразует в двоичное представление и возвращает его в виде строки.

2. Опишите функцию DigCount, которая возвращает число различных цифр, встречающихся в десятичной записи заданного натурального числа.

3. Опишите функцию FallTime, которая возвращает время падения камня на поверхность Земли с высоты h при заданной начальной скорости V0.

@CodeR · 19.11.2013, 12:44

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

1. Опишите функцию ToBin, которая заданное натуральное число преобразует в двоичное представление и возвращает его в виде строки.

Pascal
1
2
3
4
5
6
7
8
9
10
11
Function ToBin(n:integer):string;
Var s:string;
Begin
    s:='';
    While n>0 do
    Begin
      s:=chr(n mod 2 + 48)+s;
      n:=n div 2;
    End;
    ToBin:=s;
End;

@ildwine · 19.11.2013, 12:47

Комментарий модератора

makaroshka, одна тема - одна задача. Читайте правила форума

@CodeR · 19.11.2013, 12:53

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

2. Опишите функцию DigCount, которая возвращает число различных цифр, встречающихся в десятичной записи заданного натурального числа.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function DigCount(n:integer):byte;
Var k,i:byte;
    m:set of 0..9;
Begin
    k:=0;m:=[];
    While n>0 do
    Begin
      m:=m+[n mod 10];
      n:=n div 10;
    End;
    For i:=0 to 9 do
     if i in m then inc(k);
    DigCount:=k;
End;

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита табличной части. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@makaroshka 2 / 2 / 0 Регистрация: 17.09.2013 Сообщений: 142

	Парочка функций 19.11.2013, 11:31. Показов 685. Ответов 3 Метки нет (Все метки) 1. Опишите функцию ToBin, которая заданное натуральное число преобразует в двоичное представление и возвращает его в виде строки. 2. Опишите функцию DigCount, которая возвращает число различных цифр, встречающихся в десятичной записи заданного натурального числа. 3. Опишите функцию FallTime, которая возвращает время падения камня на поверхность Земли с высоты h при заданной начальной скорости V0. 0