Информатика на пять О нас
 Добавить в избранное
5byte.ru
 Теория
 8 класс
 9 класс
 10 класс
 11 класс
Задания
 8 класс
 9 класс
 10 класс
 11 класс
Книги
Тесты
ЕГЭ
Turbo Pascal 7
 Описание
 Задачи
HTML
Рефераты

Задача 26.

Возведение числа а, введенного с клавиатуры, в степень n

Program Stp:
  var P: real:    { Переменная, которая хранит результат очередного шага }
      N: integer;   { Показатель степени }
      i: integer;   { Счетчик числа шагов }
      A: real;    { Основание степени }
begin
  write('Введите основание степени:');
  readln(A);
  write('Введите показатель степени:');
  readln(N);
  i:=0;   { 0-й шаг }
  Р:=1;    { 20=1 }
  while i< abs(N) do   { Показатель может быть отрицательным, поэтому используем для анализа его абсолютную величину. Если показатель N=0, то в тело цикла не попадаем ни разу, так как 0-й шаг уже сделан }
    begin
      i:=i+l;   { Увеличиваем i на 1,то есть i теперь равно номеру текущего шага }
      Р:=Р*А   { Получаем результат i- го шага, то есть A^i }
    end;
{ В переменной Р на данный момент получен результат для положительного N }
  if N < 0 then   { Если показатель N - отрицательный, то результат должен иметь обратную величину }
  Р:=1/Р;
  writeln('Результат=',Р;6:3);
  readln
end.





 У Вас есть материал пишите нам
 
    Copyright © 2008    
Rambler's Top100