Главная | Регистрация | Вход | RSSПятница, 18.10.2019, 18:03

ШЕВЧЕНКО 

МАРИНА ВЛАДИМИРОВНА

Меню сайта
Форма входа

Видеоурок Задача: Найти число в степени 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.

Поиск
Друзья сайта
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz

  • Copyright MyCorp © 2019