возведение 2 в 100 степень

Тема в разделе "Pascal and Delphi", создана пользователем nastushka, 31 мар 2010.

Статус темы:
Закрыта.
  1. nastushka

    nastushka Гость

    Как возвести 2 в 100 степень в паскале? используя массив, потому, что получится 35-разрядное число
    Вот начало программы, которую мы писали в классе:
    for i=2 to 3 do
    i=2*i
    st array 1..40 of byte

    begin
    st 1 =2
    k=1
    for n=1 to 99 do
    begin
    for s=1 to k do
    begin
    t=st 1 *2
    в некоторых местах пропущены квадратные скобки. извините.
    продолжите пожалуйста программу. вопрос жизни и смерти! срочно...
     
  2. vital

    vital Больной Компом Детектед
    Команда форума Web Team

    Регистрация:
    29 янв 2006
    Сообщения:
    2.474
    Симпатии:
    27
    Какой ужас.. А вспомнить математику, и что такое экспонента никак?
    program stepen
    var
    i:comp; //Не очень часто используемый тип переменной..
    begin
    i:=exp(35*ln(2));
    writeln("2 в 35й степени=",i);
    end.

    Собсно в написанную выше формулу можно подставлять любые числа, кроме отрицательных. exp(степень*ln(основание))
     
  3. Dock1100

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    Вот еше один вариант(как мне в школе давали)(он работает токо сцелой и положительной степенню)
    Код (Text):
    function step(ch,s:integer):extended
    var i:integer;
    ch2:extended;
    begin
    ch2:=ch;
    for i:=1 to s do
    ch2:=ch2*ch;
    step:=ch2;
    end;
     
  4. vital

    vital Больной Компом Детектед
    Команда форума Web Team

    Регистрация:
    29 янв 2006
    Сообщения:
    2.474
    Симпатии:
    27
    ПОпробуй этим вариантом возвести 2 в 100ю степень. Будет ошибка. Типа Extended не хватит, если я правильно помню диапазоны типов.
     
  5. Dock1100

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    должно хватить, extended это 3.4*10^(-4951)-1.1*10^4932
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей