Меню
Бесплатно
Учителю  /  Информатика  /  Бесплатные видеоуроки  /  Видеоурок Задача: Найти число в степени n

Видеоурок Задача: Найти число в степени n

Текст решения задачи по программированию на PascalABC с комментариями. Что бы посмотреть объяснение этого решения нажмите смотреть видеоурок.

program stepen;
uses crt;
{ Записать программу возвед. числа, а в степень n }
var a, n, i, p: integer;
begin
write ('n=');readln (n); {Просим ввести степень числа и считываем её}
write ('a=');readln (a); {Просим ввести само число и считываем его}
p:=1; {Если степень равна 0 то цикл ни разу не выполнится и выведется число р, которое мы задаем равным единице, если же укажите при выполнении программы степень равную 1, то цикл выполнится 1 раз и число, а перемножится на р=1 после чего естественно получим само число а, что так же является правильным результатом}
for i:=1 to n do
p:=p*a; {В цикле на каждом кругу в переменную р, которую мы будем выводить в качестве конечного результата, заносится новое значение числа, а, возведенного в степень равную значению счетчика т. е. при i=1 р=а*1; при i=2 р=а*1*a (т.е. а в квадрате); при i=1 р=а*1*a*а (т.е. а в кубе); }
write ('Число, а в степени n = ', p){Выводим результат};
readln;
end.

Сохранить у себя:

Комментарии 20

Чтобы добавить комментарий зарегистрируйтесь или на сайт

Евгений, 15.02.2012 12:57
x:=exp(n*ln(a)); с помощью этой функции можно без всяких циклов
ADEL, 13.12.2011 17:16
тут ошибка. в конце readln; не нужно!!!
Проект Видеоуроки

Да, эта команда не обязательна в этой программе. Но если вы работаете в turbo или free pascal, то с её помощь можно увидеть результат выполнения программы.

Мадина, 19.05.2011 20:14
спасибо за урок. думаю он важен для
   формирования у учеников понимания
   организации цикла
De_Joker, 10.04.2011 22:04
Хорошие уроки. Наш препод слишком заумно объясняет. Тут как-то проще всё. Особенно с циклами всё толково.
Елена, 17.11.2010 17:44
в разделе "Скачать видеоуроки по информатике (secret)" не могу найти эти уроки... как можно скачать?
Проект Видеоуроки

Эти уроки только для просмотра на сайте. Вы моджете получить еще больше видеоуроков на DVD

Сания, 09.10.2009 20:44
спасибо! Огромное! Понравилось! Просто и доступно
Евгения, 14.05.2009 20:05
Спасибо, очень интересная идея объяснения - видеоурок! И выполнено красиво и объяснено понятно!
Любовь, 14.04.2009 09:08
Спасибо большое за уроки, с удовольствием использую на уроках
Ольга, 09.04.2009 15:50
А эти видеоуроки можно скачать как-нибудь?
Катерина, 09.04.2009 11:02
Скачивать уроки здесь можно бесплатно?