Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 22.10.2010
Сообщений: 14
1

Тема: Работа с процедурами и функциями

27.10.2010, 10:39. Показов 1005. Ответов 4
Метки нет (Все метки)

Помогите решить задание:
Миниатюры
Тема: Работа с процедурами и функциями  
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.10.2010, 10:39
Ответы с готовыми решениями:

Работа с процедурами и функциями
Помогите сделать блок-схему или программу по заданию: Дано натуральное число N и действительное...

Работа с функциями и процедурами!
Помогите пожалуйста: Задана строка символов латинского алфавита. Определите, какой символ ...

Работа с процедурами и функциями
Помогите решить двумя способами в pascal: F=g(1.7t,s)+g(3.7,s)-g(3s-1,st)...

Работа с процедурами и функциями
Составить программу с использованием процедуры или функции: const LIM=2; W=8; D=2; n=5; m=5; {...

4
93 / 94 / 13
Регистрация: 10.10.2008
Сообщений: 606
27.10.2010, 10:59 2
Или я туплю, но где значение функции y(z)? Или это произведение y*z, так записано?

Добавлено через 7 минут
Функция произведения y(x) записывается так
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
function proizv(x:Extended; k:Integer):Extended;
var
j:Integer;
temp:Extended;
begin
proizv:=1;
for j:=1 to k do
begin
temp:=(1+j+j*exp(x));
proizv:=proizv*temp;
end;
end;
1
Почетный модератор
64069 / 47481 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
27.10.2010, 11:07 3
Цитата Сообщение от HERETIC Посмотреть сообщение
но где значение функции y(z)?
Это показано во второй формуле как y(x), вместо х, где нужно, подставляется z.
0
93 / 94 / 13
Регистрация: 10.10.2008
Сообщений: 606
27.10.2010, 11:12 4
Цитата Сообщение от Puporev Посмотреть сообщение
Это показано во второй формуле как y(x), вместо х, где нужно, подставляется z.
Ну да все верно. Туплю немного.
0
Почетный модератор
64069 / 47481 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
27.10.2010, 11:14 5
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
function Y(x:real;k:byte):real;
var j:byte;
    p:real;
begin
p:=1;
for j:=1 to k do
p:=p*(1+j+j*exp(x));
Y:=p;
end;
var x,z,p:real;
    k:byte;
begin
clrscr;
x:=0.2;
x:=3.19;
k:=5;
p:=1+2*cos(Y(x,k))-1/Y(x-2,k)-1/(3*Y(z,k));
write('P=',p:0:4);
readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.10.2010, 11:14

Работа с процедурами и функциями
1. Создать функцию программиста, которая подсчитывает в заданной строке количество символов «а» или...

Работа с процедурами и функциями
Текстовый файл содержит координаты конца отрезка. Разработать процедуру, которая определит...

задача с процедурами и функциями
Привет) Очень нужна ваша помощь по решению данной задачки, не получается совсем(( : даны 3...

Массивы с процедурами/функциями
Не могу разобраться как сделать элементарную генерацию и вывод массива через процедуры. т.е. в...

Дополнить программу функциями и процедурами
uses crt; var a,b,c,h,r,s:real; a1:string; k:integer; begin clrscr; repeat...

Переписать программу с процедурами и функциями
program dd; var a:array of integer; q,n,k,i,r:integer; begin read(r,n); if r=0 then ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.