1. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление

Задача в Паскаль

Тема в разделе "Вопросы новичков и не только", создана пользователем Tatali, 25 май 2010.

  1. Tatali

    Tatali Гость

    Репутация:
    0
    На этот раз совсем не знаю как решать. С математикой туго. помогите Пожалуйста решить задачу. Даже набросок нет.


    Создать в ИСР Pascal:
    а) Создать пользовательский модуль для вычисления А в степени n, где a – любое вещественное число, n – целое число (может быть как положительным, так и отрицательным), причём обе переменные являются внешними по отношению к основной программе;
    б) программу, которая будет использовать модуль (задание А) для вычисления степени некоторого числа, основание и показатель вводятся с клавиатуры.
     
  2. Dock1100

    Dock1100 :-]

    Репутация:
    0
    Регистрация:
    9 ноя 2009
    Сообщения:
    665
    Симпатии:
    1
    Код:
    function stepen(chislo:real;step:integer):real;
    var c:real;
    i:integer;
    begin
    c:=1;
    if step<>0 then
    for i:=1 to abs(step) do
    c:=c*chislo;
    if step<0 then c:=1/c;
    if step=0 then c:=1;
    stepen:=c;
    end;
    Добавлено: кажись так.
     
  3. vital

    vital Больной Компом Детектед

    Репутация:
    0
    Регистрация:
    29 янв 2006
    Сообщения:
    2.432
    Симпатии:
    40
    Результат=Exp(степень*Ln(число)).
    Для отрицательной степени
    a^(-B) = 1/ ( a^B) - и формула выше.
    Делов-то..
    Вобщем..
    Код:
    Function Pow(A,B:Real):Real;
    { Функция возведения в степень (A^B) }
    Var T:Real;
    Begin
    T := Abs(A);
    If A < 0 Then Pow := (-1)*Exp(B*Ln(T))
    Else Pow := Exp(B*Ln(T));
    End;
     
  4. Tatali

    Tatali Гость

    Репутация:
    0
    Скажите пожалуйста а что такое пользовательский модуль и с чем его едят? Если вас не затруднит? Я не понимаю. Создать модуль, а потом еще и программу для этого модуля.
     
  5. vital

    vital Больной Компом Детектед

    Репутация:
    0
    Регистрация:
    29 янв 2006
    Сообщения:
    2.432
    Симпатии:
    40
    Любая книжка по паскалю.
     
  6. Over

    Over Well-Known Member

    Репутация:
    0
    Регистрация:
    4 июл 2007
    Сообщения:
    116
    Симпатии:
    0
    По условию задачи, функцию вычисления степени нужно вынести в отдельную dll-ку. Ещё нужно написать исполняемый файл, который будет использовать функцию из dll-ки.
     
  7. vital

    vital Больной Компом Детектед

    Репутация:
    0
    Регистрация:
    29 янв 2006
    Сообщения:
    2.432
    Симпатии:
    40
    Какая нафиг длл в турбо-паскале(=Досе)?
    Вы перемудрили) Там просто ее нужно вынести в отдельный Unit.
     
  8. Dock1100

    Dock1100 :-]

    Репутация:
    0
    Регистрация:
    9 ноя 2009
    Сообщения:
    665
    Симпатии:
    1
    Наскоко я помню - просто файл *.pas который содержит функции, процедуры...
     
Загрузка...
Похожие Темы - Задача Паскаль
  1. dron128
    Ответов:
    1
    Просмотров:
    1.319
  2. antonioband
    Ответов:
    4
    Просмотров:
    1.792
  3. petiablack
    Ответов:
    0
    Просмотров:
    69
  4. disub
    Ответов:
    1
    Просмотров:
    187
  5. Kazua
    Ответов:
    1
    Просмотров:
    202

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