Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
asdfmove
0 / 0 / 0
Регистрация: 16.04.2013
Сообщений: 25
#1

Подпрограммы: Написать функцию, которая считает а^b - Free Pascal

21.05.2013, 08:33. Просмотров 292. Ответов 1
Метки нет (Все метки)

Написать функцию, которая считает а^b. Числа а и b могут быть любыми целыми положительными.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.05.2013, 08:33
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Подпрограммы: Написать функцию, которая считает а^b (Free Pascal):

Написать программу которая считает количество цифр в факториале
Помогите написать программу которая считает количество цифр в факториале

Написать процедуру, которая считает количество слов в строке.
С клавиатуры вводится строка. Написать процедуру, которая считает количество...

Напишите рекурсивную функцию, которая считает сумму элементов переданного ей динамического массива
type IntArr = array of integer; procedure print(a: IntArr); var i: integer;...

Написать программу, которая считает количество элементов во втором предложении
Написать программу,которая считает количество элементов во втором предложении

Написать программу которая запрашивает ряд чисел и считает их сумму
написать программу которая запрашивает ряд чисел и считает их сумму. количество...

Написать процедуру, которая считает количество знаков препинания в предложении.
Написать программу с процедурой. Процедура должна считать количество знаков...

1
Puporev
Модератор
54135 / 41768 / 28876
Регистрация: 18.05.2008
Сообщений: 98,305
21.05.2013, 08:57 #2
Лучший ответ Сообщение было отмечено asdfmove как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
function step(a,b:integer):real;
var i:integer;
    s:real;
begin
s:=1;
for i:=2 to b do
s:=s*a;
step:=s
end;
var a,b:integer;
begin
clrscr;
write('Основание степени a=');
readln(a);
write('Степень b=');
readln(b);
write('a^b=',step(a,b):0:0);
readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.05.2013, 08:57
Привет! Вот еще темы с решениями:

Написать программу, которая запрашивает у пользователя отрицательные числа и считает их сумму
Написать программу, которая запрашивает у пользователя отрицательные числа и...

Написать программу которая считает сколько чисел в текстовом файле number.txt и определяет их сумму
Создать файл number.txt и вписать туда разные числа. Написать программу которая...

Написать функцию которая возвращает True, если есть пара чисел, которая удовлетворяет условие
Есть массив: arr : array of Integer; Заполненный случайными числами от...

Написать программу которая использует меню и подпрограммы , реализуют по выбору пользователя следующие операции:
Помогите сделать программу в паскале Проводимости . Информация о множестве...


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

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

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