Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
Александр19
0 / 0 / 0
Регистрация: 08.05.2015
Сообщений: 2
1

Напишите подпрограмму, находящую величину A^B

08.05.2015, 15:01. Просмотров 809. Ответов 1
Метки нет (Все метки)

Напишите подпрограмму, в которой есть функция Power1(A , B ) вещественного типа, находящую величину A^B по формуле AB =exp(B∗ln(A)) (параметры A и B - вещественные). В случае нулевого или отрицательного параметра A функция возвращает 0. С помощью этой функции найти степени Ap , B p , Cp , если даны числа P,A,B,C .
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.05.2015, 15:01
Ответы с готовыми решениями:

Используя рекурсию, напишите программу, находящую НОД двух чисел
помогите,пожалуйста,написать на паскаль Используя рекурсию, напишите...

Составить подпрограмму умножения одномерных матриц и подпрограмму их сравнения
Составить подпрограмму умножения одномерных матриц и подпрограмму их...

Описать функцию, находящую величину A^B
Описать функцию Power1(A, B) вещественного типа, находящую величину A^B по...

Описать функцию RadToDeg(R), находящую величину угла в градусах
Описать функцию RadToDeg(R) вещественного типа, находящую величину угла в...

Описать функцию Power2(A, N) вещественного типа, находящую величину Aв степени N
Помогите, пожалуйста с решением на языке Python Описать функцию Power2(A, N)...

1
Joy
Эксперт Pascal/Delphi
2169 / 1197 / 1437
Регистрация: 29.08.2014
Сообщений: 4,388
10.05.2015, 05:27 2
Лучший ответ Сообщение было отмечено erl27 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
function power1(a,b:real):real;
begin
  if a<=0 then result:=0 else result:=exp(b*ln(a));
end;
var 
  p,a,b,c:real;
begin
  write('A,B,C,p=');readln(a,b,c,p);
  writeln('Ap=',power1(a,p));
  writeln('Bp=',power1(b,p));
  writeln('Cp=',power1(c,p));
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.05.2015, 05:27

Описать функцию DegToRad (D) вещественного типа, находящую величину угла в радианах
Описать функцию DegToRad (D) вещественного типа,находящую величину угла в...

Описать функцию DegToRad (D) вещественного типа,находящую величину угла в радианах
Описать функцию DegToRad (D) вещественного типа,находящую величину угла в...

Описать Функцию RadToDeg(R) вещественного типа, находящую величину угла в градусах
Описать Функцию RadToDeg(R) вещественного типа, находящую величину угла в...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru