Pascal, работа с функциями.

Dram · 07.01.2010, 17:44

Расскажите мне пожалуйста как правильно объявляется функция и еще кое какие нюансы.
скажем мне надо написать прогу с использованием функции y=cosx+ cos2x....cos10x
Как она на пишется с функцией?

DDS · 07.01.2010, 18:00

Функции и процедуры-это подпрограммы,имеет структуру очень схожую с программой.
Функции описываются так
Function имя(параметр - переменная:тип переменной):тип, в котором функция будет возращать своё значение;
var ...;
begin
...
имя функции :=...;
end;

Ваш пример(примерно)

Код:

 
var y:real;x:integer;
 Function s(x:integer):real;
    Begin
    s:=cos(x)+cos(x*2)+cos(x*3)+...+cos(x*10);
    end;
Begin
  read(x);
  y:=s(x);
  writeln(y:5:2);
 End.

Dram · 07.01.2010, 18:08

Цитата:

Сообщение от DDS

Функции и процедуры-это подпрограммы,имеет структуру очень схожую с программой.
Функции описываются так
Function имя(параметр - переменная:тип переменной):тип, в котором функция будет возращать своё значение;
var ...;
begin
...
имя функции :=...;
end;

А как в моем варианте она как может пригодится?
Я просто что то не очень место её нахожу когда и для чего её втыкать

DDS · 07.01.2010, 18:25

Я уже подредактировал свой предыдуший пост.

AlexZir · 07.01.2010, 18:32

Лучше так:

Код:

program func1;
var y,x:real; i:integer;

Function s(xx:real, k:integer):real;
    Begin
    s:=cos(xx*k);
    end;
 
Begin
  read(x);
  y:=0;
  for i:=1 to 10 do
  y:=y+s(x,i);
  writeln(y:5:2);
 End.

В данном случае в функции последовательно вычисляется 10 значений cos(i*x)

DDS · 07.01.2010, 18:34

Конечно вариант от AlexZir лучше, от более удобный и продуманный.
Я же писал просто пример использования функции.

MrSTEP · 07.01.2010, 18:41

Вот выдержка из моего отчета по практике, краткое описание процедур и функций:

Цитата:

Подпрограмма – самостоятельный программный блок.
Часто во время задач требуется несколько раз повторить одну и ту же группу команд. Такие группы команд принято оформлять самостоятельными блоками и называть подпрограммами. Подпрограммы являются основой модульного программирования.
К каждой подпрограмме можно обратиться по имени. Использование подпрограмм имеет ряд преимуществ, например, такие как: самостоятельный характер, позволяющий поручить их написание отдельным программистам; четкая логическая структура, позволяющая облегчить их отладку, и множество других. Подпрограммы делятся на процедуры пользователя и функции пользователя.
Процедура – это независимая, именованная часть программы, которую после однократного написания можно многократно вызывать по имени (использовать) их последующих частей программы. Процедура не может выступать как операнд в выражении. По структуре процедура повторяет основную программу, то есть состоит из заголовка и блока. В заголовке после имени через запятую приводится список формальных параметров. Но в некоторых процедурах формальные параметры могут отсутствовать.
Если результатом работы подпрограммы является только одно значение, то эту подпрограмму лучше оформить как функцию. Функция аналогична процедуре, но имеет два основных отличия: 1) функция в качестве результата своей работы передает одно значение; это значение присваивается имени функции. 2) функция может выступать как операнд в выражении, при этом она вернет свое значение в точку вызова.
В заголовке функции после имени и списка формальных параметров через двоеточие указывается тип функции (или сразу после имени, если формальных параметров нет). В блоке функции должен быть хотя бы один оператор, присваивающий имени функции значение, в противном случае значение функции считается неопределенным. Если таких операторов несколько, то в точку вызова вернется последнее присвоенное значение.

AlexZir · 07.01.2010, 18:48

Все правильно, в приведенном примере функция возвращает только одно значение, равное вычисленному s, совпадающему с именем функции. В примере от DDS к функции обращение 1 раз, в моем к функции 10 обращений внутри цикла. В принципе, оба варианта правильные.

Dram · 07.01.2010, 20:54

Цитата:

Сообщение от DDS

Ваш пример(примерно)

Код:

 
var y:real;x:integer;
 Function s(x:integer):real;
    Begin
    s:=cos(x)+cos(x*2)+cos(x*3)+...+cos(x*10);
    end;
Begin
  read(x);
  y:=s(x);
  writeln(y:5:2);
 End.

так вроде как разобрался. Но мы написали вункцию S в дальнейшем её вызываем для переменной (х). И что то я не очень понял ведь в саму функцию запихан весь пример.
разве нельзя написать просто y:=S
а если у меня будет не (х) переменная а допустим (z) . Как эта функция вызовется для нескольких переменных?

AlexZir · 07.01.2010, 21:03

Мы должны передать в функцию значения для вычисления, если же вы напишите без x, это будет неопределенной функцией и может выдать ошибку в вычислениях (тут действует принцип "вассал моего вассала - не мой вассал!").
В моем примере функция как раз вызывается для 2-х переменных, причем имена переменных при описании функции во избежание конфликтов определены отличные от имен переменных в основной программе.

07.01.2010, 17:44	#1 (permalink)
Dram Экономичный вид памяти Регистрация: 19.02.2008 Сообщений: 2,632 Записей в дневнике: 1 Сказал(а) спасибо: 6 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 2794	Pascal, работа с функциями. Расскажите мне пожалуйста как правильно объявляется функция и еще кое какие нюансы. скажем мне надо написать прогу с использованием функции y=cosx+ cos2x....cos10x Как она на пишется с функцией?

07.01.2010, 18:00	#2 (permalink)
DDS Member Регистрация: 15.02.2009 Сообщений: 695 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 523	Функции и процедуры-это подпрограммы,имеет структуру очень схожую с программой. Функции описываются так Function имя(параметр - переменная:тип переменной):тип, в котором функция будет возращать своё значение; var ...; begin ... имя функции :=...; end; Ваш пример(примерно) Код: var y:real;x:integer; Function s(x:integer):real; Begin s:=cos(x)+cos(x2)+cos(x3)+...+cos(x10); end; Begin read(x); y:=s(x); writeln(y:5:2); End. Последний раз редактировалось DDS; 07.01.2010 в 18:28*

07.01.2010, 18:32	#5 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	Лучше так: Код: program func1; var y,x:real; i:integer; Function s(xx:real, k:integer):real; Begin s:=cos(xxk); end; Begin read(x); y:=0; for i:=1 to 10 do y:=y+s(x,i); writeln(y:5:2); End. В данном случае в функции последовательно вычисляется 10 значений cos(ix) __________________ Убить всех человеков!

07.01.2010, 18:48	#8 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	Все правильно, в приведенном примере функция возвращает только одно значение, равное вычисленному s, совпадающему с именем функции. В примере от DDS к функции обращение 1 раз, в моем к функции 10 обращений внутри цикла. В принципе, оба варианта правильные. __________________ Убить всех человеков!

07.01.2010, 21:03	#10 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	Мы должны передать в функцию значения для вычисления, если же вы напишите без x, это будет неопределенной функцией и может выдать ошибку в вычислениях (тут действует принцип "вассал моего вассала - не мой вассал!"). В моем примере функция как раз вызывается для 2-х переменных, причем имена переменных при описании функции во избежание конфликтов определены отличные от имен переменных в основной программе. __________________ Убить всех человеков!

07.01.2010, 17:44
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Рекомендую почитать содержимое этих топиков Задачка с функциями файловой системы ввода-вывода Работа с текстовым файлом, Pascal

07.01.2010, 18:25	#4 (permalink)
DDS Member Регистрация: 15.02.2009 Сообщений: 695 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 523	Я уже подредактировал свой предыдуший пост.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

07.01.2010, 18:34	#6 (permalink)
DDS Member Регистрация: 15.02.2009 Сообщений: 695 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 523	Конечно вариант от AlexZir лучше, от более удобный и продуманный. Я же писал просто пример использования функции.