Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.73/11: Рейтинг темы: голосов - 11, средняя оценка - 4.73
0 / 0 / 0
Регистрация: 29.07.2016
Сообщений: 1

Моделирование арифметических операций

29.07.2016, 21:29. Показов 2093. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Для целых неотрицательных чисел n и m разрешены операции нахождения последующего числа и предыдущего числа. Промоделировать с помощью рекурсивных функций арифметические операции нахождения разности n-m (n>=m ), возведения в степень nm (n>0), частного и остатка при делении n на m . При необходимости воспользоваться рекурсивными функциями нахождения суммы и произведения.
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
29.07.2016, 21:29
Ответы с готовыми решениями:

Выполнение базовых арифметических операций над числами
Описать функцию Calc (A,B,Op) вещественного типа выполняющую над нулевыми числами А и В одну из арифметических операций и возвращающую ее...

Вместо каждого знака ? Вставить знак одной из 4 арифметических операций
Задание: В написанном выражении ((((1?2)?3)?4)?5)?6 вместо каждого знака ? вставить знак одной из 4 арифметических операций +,-,*,/ так,...

Заменить в данной строке знаки арифметических операций названиями противоположных им операций
Заменить в данной строке знаки арифметических операций названиями противоположных им операций.

1
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
30.07.2016, 09:05
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Разность
1. Просто вычислить
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
function Razn(a,b:integer):integer;
begin
if b=0 then Razn:=a
else if b>0 then Razn:=Razn(a-1,b-1)
end;
var n,m:integer;
begin
repeat
writeln('Введите 2 целых неотрицательных числа n,m n>=m');
readln(n,m);
until(m>=0)and(n>=m);
write(Razn(n,m));
end.
типа моделирования наверное так.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure Razn(a,b:integer);
begin
writeln(a,' ',b);
if b>0 then Razn(a-1,b-1)
end;
var n,m:integer;
begin
repeat
writeln('Введите 2 целых неотрицательных числа n,m n>=m');
readln(n,m);
until(m>=0)and(n>=m);
Razn(n,m);
end.
Добавлено через 36 минут
Степень.
1.Просто вычислить.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
function Step(x,y:integer):integer;
begin
if y=0 then Step:=1
else Step:=Step(x,y-1)*x
end;
 
var n,m:integer;
begin
repeat
write('Введите целые число n>=0 n=');
readln(n);
until n>=0;
repeat
write('Введите степень целые число m>=0 m=');
readln(m);
until m>=0;
write(Step(n,m))
end.
типа моделирование
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure Step(x,y,z:integer);
begin
if y=0 then write(1)
else
 begin
  writeln(z*x);
  if y>1 then  Step(x,y-1,z*x);
 end;
end;
 
var n,m:integer;
begin
repeat
write('Введите целые число n>=0 n=');
readln(n);
until n>=0;
repeat
write('Введите степень целые число m>=0 m=');
readln(m);
until m>=0;
Step(n,m,1)
end.
Добавлено через 1 минуту
Вообще я не понял это
Цитата Сообщение от olgakazakowa94 Посмотреть сообщение
Промоделировать с помощью рекурсивных функций
Может и неправильно, тогда поправьте используя эти алгоритмы.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
30.07.2016, 09:05
Помогаю со студенческими работами здесь

Цифры и знаки арифметических операций
Дана непустая последовательность символов. Требуется построить и напечатать множество, элементами которого являются встречающиеся в...

Паскаль, решение арифметических операций
Забыл как писать программу, которая спрашивает значение числа a, а потом b, затем показывает результат действия где с:=a+b

Выделить из последовательности символов цифры от 5 до 9 и знаки арифметических операций.
Дана непустая последовательность символов. Требуется построить и напечатать множество, элементами которого являются встречающиеся в...

Используя минимальное число арифметических операций, вычислить значение 2x^4-3x^3+4x^2-5x+6
Дано действительное число x. Используя минимальное число арифметических операций, вычислить значение 2x^4-3x^3+4x^2-5x+6.

Удалить слова, которые содержат знаки арифметических операций
Народ, извините, искала такую задачу, но не нашла... уверена, что она здесь есть... В файле в каждой строке удалить слова, которые...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Отправка уведомления на почту при изменении наименования справочника
Maks 24.03.2026
Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .
модель ЗдравоСохранения 5. Меньше увольнений- больше дохода!
anaschu 24.03.2026
Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .
Midnight Chicago Blues
kumehtar 24.03.2026
Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .
Контроль уникальности заводского номера - вариант №2
Maks 24.03.2026
В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .
SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++
8Observer8 24.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip
Жизнь в неопределённости
kumehtar 23.03.2026
Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .
Модель здравоСохранения: работники работают быстрее после её введения.
anaschu 23.03.2026
geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .
Контроль уникальности заводского номера - вариант №1
Maks 23.03.2026
Алгоритм контроля уникальности заводского (или серийного) номера на примере нетипового документа выдачи шин для спецтехники с табличной частью, разработанного в конфигурации КА2. Данные берутся из. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru