Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
Оpiggyugrs
19.12.2022 10:42 •
Информатика
Как(при использовании приведённого алгоритма поиска) определить, что элемент не найден
👇
Увидеть ответ
Открыть все ответы
Ответ:
lilyamkrtchyan1
19.12.2022
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!
unit ASM;
interface
type SF=(integer,integer);
function AddSF(a,b:SF):SF;
function SubSF(a,b:SF):SF;
function MultSF(a,b:SF):SF;
function DivSF(a,b:SF):SF;
implementation
function Gcd(p:SF):integer;
begin
(var a,var b):=p;
a:=abs(a); b:=abs(b);
while b>0 do (a,b):=(b,a mod b);
Result:=a
end;
function ReductSF(p:SF):SF;
begin
var t:=Gcd(p);
if t>1 then Result:=(p[0] div t,p[1] div t)
else Result:=p
end;
function AddSF(a,b:SF):=ReductSF((a[0]*b[1]+a[1]*b[0],a[1]*b[1]));
function SubSF(a,b:SF):=ReductSF((a[0]*b[1]-a[1]*b[0],a[1]*b[1]));
function MultSF(a,b:SF):=ReductSF((a[0]*b[0],a[1]*b[1]));
function DivSF(a,b:SF):=ReductSF((a[0]*b[1],a[1]*b[0]));
end.
Пример работы с модулем
uses ASM;
begin
var a:=(5,24);
var b:=(7,8);
var c:=AddSF(a,b);
Writeln(a[0],'/',a[1],'+',b[0],'/',b[1],'=',c[0],'/',c[1])
end.
Результат
5/24+7/8=13/12
4,8
(11 оценок)
Ответ:
mmmmmvbbbbb
19.12.2022
1) program p1;
var a,b:integer;
begin
writeln('Введите 1-е число: ');read(a);
writeln('Введите 2-е число: ');read(b);
if(a>=b) then writeln('максимальное число: ', a) else writeln('максимальное число: ', b);
end.
2)
program p1;
procedure MaxNumber(a,b: integer; var max: integer);
begin
if a>=b then max:=a else max:=b;
end;
var a,b,c,d,m:integer;
begin
writeln('Введите 1-е число: ');read(a);
writeln('Введите 2-е число: ');read(b);
writeln('Введите 3-е число: ');read(c);
writeln('Введите 4-е число: ');read(d);
MaxNumber(a,b,m);
MaxNumber(m,c,m);
MaxNumber(m,d,m);
writeln('максимальное число: ',m);
end.
4,6
(11 оценок)
Это интересно:
О
Образование-и-коммуникации
12.06.2021
Как составить план: секреты планирования на будущее...
К
Компьютеры-и-электроника
20.11.2020
Как создать простую таблицу стилей CSS с помощью Notepad...
К
Компьютеры-и-электроника
09.07.2020
Как уничтожить жесткий диск: советы и рекомендации...
13.09.2021
Как всегда выигрывать спор...
Х
Хобби-и-рукоделие
15.02.2022
Как состарить дерево: советы для создания эффекта возраста...
Д
Дом-и-сад
11.07.2020
Как быстро и эффективно очистить вентиляционное отверстие для сушилки одежды?...
С
Стиль-и-уход-за-собой
13.07.2021
Как правильно мыть волосы: советы от профессионалов...
С
Стиль-и-уход-за-собой
29.07.2020
Как замаскировать прыщик с помощью зеленого консилера: советы и рекомендации...
К
Компьютеры-и-электроника
30.03.2020
Секреты изменения списка близких друзей Facebook на iPhone и iPad...
К
Компьютеры-и-электроника
04.03.2021
Как добавить фон на веб-страницу: простые шаги, которые помогут улучшить визуальное восприятие...
Новые ответы от MOGZ: Информатика
alinasad337
18.01.2020
Нужно написать две программы на Питоне: 1) Дано число. Посчитать сумму и произведение его цифр. 2) С клавиатуры вводится n чисел. Найти количество положительных чисел, максимальное...
Dmitry321123
03.08.2020
Какой путь пройдёт поезд со скоростью 64 км/ч за (дробь 3/4) ч...
Dive1
03.08.2020
Поезд резко поворачивает влево. пассажиры относительно 1)отклонятся вперёд 2)отклонятся назад 3)отклонятся вправо 4)отклонятся влево...
Misha22313
03.08.2020
Двое путников одновременно вышли из а в в. первый половину времени, затрачен-ного им на переход, проходил по 5 км/ч, а затем – по 4 км/ч. второй же половину пути шел со...
kiratheone
03.08.2020
Надо. переведите на язык и составьте из них вопросительные и отрицательные предложение. 1. они известные 2. линда умная девочка 3. он популярен 4. я россиянин 5. он из ?...
masha19902
03.08.2020
Кому было посвящено стихотворение анчар?...
mmmm50
03.08.2020
Для какого из имён ложно высказывание: не(первая буква гласная) или (последняя буква гласная)? 1) анна 2) максим 3) татьяна 4) егор...
apiloota
03.08.2020
Определение количество натуральных чисел удовлетворяющих неравенству 11001011 2...
awatif768
03.08.2020
Було 2 пакети у кожному з них було по 11 цукерок з першого пакета взяли в 3 рази більше цукерок ніж з другого у першому пакеті залишилося в 4 рази меньше цукерок ніж у другому.скільки...
gfitgfbjgffj
03.08.2020
Выполните действие: а) 3/7+5/14 б) 8/9-7/12 в) 11-3+1/50-25+20 можете решить? показывая, как вы нашли данные числа....
MOGZ ответил
Әртүрлі дереккөздерді пайдаланып, маңызды саяси интеграциялық ұйымдар...
B Complete with s (possessive), s (is), s (plural / third person s),...
1. - устойчивая правовая связь человека и государства, выражающаяся в...
Əдибет сор 5сынып тартінші тоқсан...
Жаратылыстану паныне 4 тогсананга арналган жиындык багалаудын тапсырмалары...
Стоимость экскурсии по Золотому Кольцу России составляет 13909 руб. Детям...
Около окружности описан квадрат и правильный шестиугольник,найдите площадь...
Территория каких регионов России разделена на две части: северную - равнинную,...
Задание 359. Спиши предложения. В каком предложении ты поставишь запятутю?...
Д тарихтан жауаптары барма 5 сынып 4 токсан...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
// Внимание! Если программа не работает, обновите версию!
unit ASM;
interface
type SF=(integer,integer);
function AddSF(a,b:SF):SF;
function SubSF(a,b:SF):SF;
function MultSF(a,b:SF):SF;
function DivSF(a,b:SF):SF;
implementation
function Gcd(p:SF):integer;
begin
(var a,var b):=p;
a:=abs(a); b:=abs(b);
while b>0 do (a,b):=(b,a mod b);
Result:=a
end;
function ReductSF(p:SF):SF;
begin
var t:=Gcd(p);
if t>1 then Result:=(p[0] div t,p[1] div t)
else Result:=p
end;
function AddSF(a,b:SF):=ReductSF((a[0]*b[1]+a[1]*b[0],a[1]*b[1]));
function SubSF(a,b:SF):=ReductSF((a[0]*b[1]-a[1]*b[0],a[1]*b[1]));
function MultSF(a,b:SF):=ReductSF((a[0]*b[0],a[1]*b[1]));
function DivSF(a,b:SF):=ReductSF((a[0]*b[1],a[1]*b[0]));
end.
Пример работы с модулем
uses ASM;
begin
var a:=(5,24);
var b:=(7,8);
var c:=AddSF(a,b);
Writeln(a[0],'/',a[1],'+',b[0],'/',b[1],'=',c[0],'/',c[1])
end.
Результат
5/24+7/8=13/12