Возвести число в степень (циклом) на Pascal

      Комментарии к записи Возвести число в степень (циклом) на Pascal отключены

Главная Форумы Программирование Программирование на Pascal Возвести число в степень (циклом) на Pascal

Помечено: 

В этой теме 0 ответов, 1 участник, последнее обновление  Васильев Владимир Сергеевич 2 мес. назад.

  • Автор
    Сообщения
  • #3756

    Pascal. Функции. Задача 3

    Составьте программу, функция которой возводит число a в степень b, где a – любое число, а b – любое целое число.

    Решение:

    program functions_3;
    uses crt;
    var
      a: real;
      b: integer;
    function S(sa: real; sb: integer): real;
    var i: integer; x: real;
    begin
      x:=sa;
      if sb=0 then S:=1
      else if sb<0 then
      begin
        for i:=2 to abs(sb) do sa:=sa*x;
        S:=1/sa;
      end
      else
      begin
        for i:=2 to sb do sa:=sa*x;
        S:=sa;
      end
    end;
    begin
      clrscr;
      write('A > '); read(a);
      write('B > '); read(b);
      write(a, '^', b, ' = ', S(a, b));
      readkey;
    end.

Для ответа в этой теме необходимо авторизоваться.