В процедуру P через параметры n1, n2 передаются 2 натуральных числа

@Pascalenok · Регистрация: 21.10.2019

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

В процедуру P через параметры n1, n2 передаются 2 натуральных числа. Через параметр Min возвращается модуль разности минимальных цифр n1 и n2. Например, если n1=945,а n2=12423,

то Min=abs(4-1)=3. Процедура содержит вызов функции f( ). Опишите эту функцию.

Pascal
1
2
3
4
5
Procedure P(n1, n2: integer; var Min:integer);
Begin
Min:= abs(f(n1)-f(n2));
End;    
For ex

Добавлено через 4 минуты
5 строку случайно добавил

@Puporev · 10.12.2019, 15:03

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

Опишите эту функцию.

Pascal
1
2
3
4
5
6
7
8
function Min_Cf(n:integer):integer;
begin
rezult:=9;
repeat
if n mod 10<result then result:=n mod 10;
n:=n div 10;
until n=0;
end;

@Pascalenok · 10.12.2019, 15:34 **[ТС]**

В процедуру P через параметры n1, n2 передаются 2 натуральных числа. Через параметр Min возвращается модуль разности минимальных цифр n1 и n2. Например, если n1=945,а n2=12423,

то Min=abs(4-1)=3. Процедура содержит вызов функции f( ). Опишите эту функцию.

Pascal
1
2
3
4
Procedure P(n1, n2: integer; var Min:integer);
Begin
Min:= abs(f(n1)-f(n2));
End;

@user-ganz · 10.12.2019, 15:38

Pascalenok, надо бухать идти а дз не сделано? почему быстрее, аргументируй

@mr-Crocodile · 10.12.2019, 15:48

по старинке (в old-school манере):

Pascal
1
2
3
4
5
6
7
8
9
10
11
function f(nn : integer) : integer;
var min, n : integer
begin
    n := abs(nn);
    min := n mod 10;
    while n>0 do begin
        if (n mod 10) < min then min := n mod 10;
        n := n div 10
    end;
    f := min
end;

надеюсь я успел до окончания зачёта/экзамена?

Новые блоги и статьи Все статьи Все блоги /
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	Киев стоит - украинская песня zorxor 28.01.2026 wfWdiRqdTxc О Господи, Вечный, Ты . . . Я помоги, Бесконечный. . . Я прошу Ты. . . Я погибаю, спаси. . . Я прошу Тебя Вечный. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .

@user-ganz Костыли любой сложности 201 / 146 / 36 Регистрация: 27.10.2019 Сообщений: 843
	10.12.2019, 15:38
	Pascalenok, надо бухать идти а дз не сделано? почему быстрее, аргументируй 0