Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Паскаль
Регистрация

Восстановить пароль
Повторная активизация e-mail


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 10.10.2010, 08:14   #1
dimok5
Форумчанин
 
Регистрация: 10.10.2010
Сообщений: 51
Репутация: 22
По умолчанию Процедуры и функции

Решите задачу, не врубаюсь совсем в эти процедуры и функции(((
Вывести все значения функции У на интервале [A,B] с шагом h в виде таблицы, указать для каждого аргумента Х значение функции У=(exp(x)*cos(x+1))/(sin(x)/cos(x)).
Исходные данные: A=0, B=1,57, h=0,01
dimok5 вне форума   Ответить с цитированием
Старый 10.10.2010, 11:24   #2
execom
Редкий тунеядец
Участник клуба
 
Аватар для execom
 
Регистрация: 29.10.2006
Сообщений: 595
Репутация: 424
По умолчанию

Это наглость так ставить вопросы.. ты бы еще страницу в задачнике указал... тема явно для раздела работы... если хоть немного врубаешься привожу тебе немного наводящей инфы... не проверял будет ли так работать))) писал исходник в окне форума.
Код:
var
 r : real;
 i : integer;
 a : array [0..157] of real;

function exp(arg : real) : real;
begin
{реализация функции}
end;

begin
for i=0 to 157 do
  begin 
    r:=i;
    r:=r/100;
    a[i]:=(exp(r)*cos(r+1))/(sin(r)/cos(r));
  end;
{Создание таблицы. Перенос в неё значениий из массива "a"}
end.
execom вне форума   Ответить с цитированием
Старый 10.10.2010, 12:24   #3
Stilet
Белик Виталий :)
Профессионал
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Адрес: Украина, Донецкая область, г. Краматорск
Сообщений: 57,815
Репутация: 6850
По умолчанию

http://www.programmersforum.ru/showthread.php?t=34196
http://www.programmersforum.ru/showthread.php?t=38336
http://www.programmersforum.ru/showthread.php?t=62746
__________________
I'm learning to live...
Stilet вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
процедуры и функции LiptonICE Паскаль 7 24.05.2010 17:23
Процедуры и функции hewlett Помощь студентам 1 23.05.2010 07:37
Процедуры и Функции hewlett Помощь студентам 1 13.05.2010 15:18
Функции и процедуры _Антон_ Помощь студентам 4 15.11.2008 20:58


13:31.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.