Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
hohotushka
1 / 1 / 2
Регистрация: 19.10.2009
Сообщений: 44
#1

Процедура/функция

02.12.2009, 17:59. Просмотров 497. Ответов 4
Метки нет (Все метки)

Пожалуйста,помогите решить задачу,а то у меня вообще ничего не выходит(
Написать подпрограмму процедуру/функцию.
Z[i]=cos(sqr(a*x[i]+1))/exp(-a*x[i]), если x[i]<y
Z[i]=cos(sqr(b*y+1))/exp(-b*y), если x[i]>y;
i=1,2,3,4
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.12.2009, 17:59
Ответы с готовыми решениями:

Процедура и функция: Функция определения максимальной цифры числа
напишите программу,которая с помощью функции определяющей максимальную цифру...

Процедура и функция
Даны массивы x(8) y(8) z(10) w(15) элементы которых вычисляются за формулами:...

функция и процедура
дана матрица ввести значения матрицы с помощью randomize 1) определить k -...

Примитивная процедура и функция
надо составить процедуру или функцию для вот такого вот подсчета ...

Функция или процедура!
Здравствуйте, подскажите пожалуйста, когда в программе предпочтительнее...

4
unick12345
1345 / 1036 / 152
Регистрация: 27.03.2009
Сообщений: 3,869
02.12.2009, 18:14 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
program test;
var i:integer; z,x:array[1..4] of real;a,b,y:real;
 
function x1(a,c:real):real;
begin
x1:=cos(sqr(a*c+1))/exp(-a*c);
end;
 
function x2(b,y:real):real;
begin
x2:=cos(sqr(b*y+1))/exp(-b*y);
end;
 
begin
for i:=1 to 4 do
x[i]:=random(10);
readln(y);
readln(a);
readln(b);
for i:=1 to 4 do
begin
if x[i]<y then z[i]:=x1(a,x[i]);
if x[i]>y then z[i]:=x2(b,y);
end;
for i:=1 to 4 do
write(z[i],' ');
readln;
end.
1
hohotushka
1 / 1 / 2
Регистрация: 19.10.2009
Сообщений: 44
02.12.2009, 18:50  [ТС] #3
Огромное спасибо
А в процедуре в принципе все так же,верно?
0
unick12345
1345 / 1036 / 152
Регистрация: 27.03.2009
Сообщений: 3,869
03.12.2009, 09:23 #4
почти. вот только вместо этого
Цитата Сообщение от unick12345 Посмотреть сообщение
function x2(b,y:real):real;
прописываешь
Pascal
1
procedure x2(b,y:real; var z:real);
это означает что высчитывается для b и y и выводит результат z
1
hohotushka
1 / 1 / 2
Регистрация: 19.10.2009
Сообщений: 44
04.12.2009, 15:10  [ТС] #5
Вот procedure,может кому пригодится
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
program test;
uses crt;
var i:integer; z,x:array[1..4] of real;a,b,y:real;
 
procedure x1(m,n:real; var z:real);
begin
z:=cos(sqr(m*n+1))/exp(-m*n);
end;
begin
clrscr;
for i:=1 to 4 do
begin
write('x',i,'='); readln(x[i]);
end;
write('y='); readln(y);
write('a='); readln(a);
write('b='); readln(b);
for i:=1 to 4 do
begin
if x[i]<y then x1(a,x[i],z[i]);
if x[i]>y then x1(b,y,z[i]);
end;
for i:=1 to 4 do
writeln('z=',z[i]:4:3);
readln;
end.
0
04.12.2009, 15:10
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.12.2009, 15:10

Процедура или функция
Найти площадь правильного n-угольника со стороной a.Решить с помощью...

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

логическая функция\процедура
Задача 1 Составить логическую функцию, проверяющую, упорядочены ли по...


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

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

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