Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Задача №4 - Возведение в степень
Как известно, в Паскале нет арифметической операции для возведения в степень. Напишите программу, которая позволят возводить число в степень. Постановка задачи: даны два числа a и b. Программа должна вывести на экран значение числа a возведенного в степень b.
====
Эту задачу можно решить разными способами, но в нашей задаче есть ограничение - нельзя использовать циклы.
1 | Автор: admin | 2014-09-17, 22:41   |  Репутация: [ + 22 ]
Код
Program ELMpr_task4;
{
OoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOo
o░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░o
O░░Task░#4░░file:ELMpr_task4.pas░==░ver.1.0.0░░O
o░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░o
O░░░░░░░Raising a number to the power of░░░░░░░O
o░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░o
O░░©░Grankin░V.I.░Group░І-14-1░Date:░18/09/14░░O
o░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░o
OoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOo
}
var a,b:integer;
begin
writeln('Enter a & b'); read(a,b);
write(a,'^',b,'=',exp(ln(a)*b))
end.


El_Magnifico with <3
2 | Автор: El_MAgnifico | 2014-09-18, 07:52   |  Репутация: [ + 8 ]

Код
program BF_zadacha4;
{********************************************}
{*   Laba#2 file: BF_zadacha4.pas ver 1.0   *}
{*           Возведение в степень           *}
{* (c) $.$.$. Group I-14-1 Date: 16.09.2014 *}
{********************************************}

var
      num, deg: integer;
      res: real;
      i: byte;
     
begin
     
      write ('Число: '); readln (num);
      write ('Степень: '); readln (deg);
     
      res := 1;
     
      i := 0;
      while i < abs(deg) do begin
          res := res * num;
          i := i + 1
      end;
     
      if deg < 0 then
          res := 1 / res;
     
      writeln (res:10:5);
     
readln
end.
3 | Автор: Bun_Frith | 2014-09-18, 08:37 | Изменено: Bun_Frith - Чт, 2014-09-18, 08:37   |  Репутация: [ + 4 ]
  • Страница 1 из 1
  • 1
Поиск: