Модераторы: volvo877, Snowy, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Вызов функций и процедур, Помогите нубу 
V
    Опции темы
ZloY_ZusuL
Дата 1.11.2008, 17:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 31
Регистрация: 27.9.2006

Репутация: нет
Всего: 1
Собственно ни как не могу разобратса как их вызывать. ВОт как допустим реализовать процедуру/функцию дря расчёта тангенса?


Код

Program sincos;
 Uses Crt;

   Procedure Tangens(Var a,z:real);
    Begin
     z:=sin(a)/cos(a);
     end;
  begin

  end.
PM MAIL   Вверх
volvo877
Дата 2.11.2008, 10:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116
Цитата(ZloY_ZusuL @  1.11.2008,  16:07 Найти цитируемый пост)
ВОт как допустим реализовать процедуру/функцию дря расчёта тангенса?
Лучше - функцию:

Код
Function Tangens(x: real): real;
begin

  if abs(cos(x)) > 0.0001 then Tangens := sin(x) / cos(x)
  else Tangens := maxLongInt { <--- сигнал для пользователя: неправильный аргумент, Cos(x) = 0 }

end;

begin
  { Вызывать вот так: }
  t := Tangens(pi/4);
  Writeln(t:10:6);
end.


, но можно то же самое сделать и процедурой:
Код
procedure Tangens(x: real; var y: real);
begin

  if abs(cos(x)) > 0.0001 then y := sin(x) / cos(x)
  else y := maxLongInt { Опять же, неправильный параметр }

end;

var t: real;
begin
  Tangens(pi/4, t);
  writeln(t:10:6);
end.


Это сообщение отредактировал(а) volvo877 - 2.11.2008, 10:54
PM MAIL   Вверх
ZloY_ZusuL
Дата 3.11.2008, 01:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 31
Регистрация: 27.9.2006

Репутация: нет
Всего: 1
Цитата(volvo877 @  2.11.2008,  10:53 Найти цитируемый пост)
(pi/4, t);


А вот это собственно что такое?)
PM MAIL   Вверх
volvo877
Дата 3.11.2008, 14:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116
А это, собственно, параметры, с которыми процедура вызывается... Ты ж должен что-то ей передать? Вот и передаешь два параметра: первый - значение, тангенс которого считается, второй - переменная, через которую вернется результат...

Это все написано в любом учебнике по Паскалю в одной из первых глав...
PM MAIL   Вверх
ZloY_ZusuL
Дата 5.11.2008, 15:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 31
Регистрация: 27.9.2006

Репутация: нет
Всего: 1
Пасибо. Проблема решена
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi"
THandle
Rrader
volvo877

Запрещается!

1. Обсуждать и делится взломанными компонентами или программным обеспечением

2. Публиковать ссылки на варез

3. Оффтопить

  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, THandle, Rrader, volvo877.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Object Pascal: кроссплатформенные технологии | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0622 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.