Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
74 / 1 / 1
Регистрация: 19.09.2009
Сообщений: 27
1

Нахождение значения функции с использованием процедуры или функции

11.03.2010, 12:45. Показов 1450. Ответов 1
Метки нет (Все метки)

Найти значение функции у, использовать не менее 1й подпрограммы функции или подпрограммы процедуры. Дано массив А[1..k], B,C-заданы, M8-количество элементов массива А, находящихся в пределах В<=A[i]<C, Р6-сумма элементов массива А, значения которых находятся в пределах В<=A[i]<C.


∑Ai/P6, если Р6 ≠0
У = B/(C+sqrt(C+M8), если Р6=0
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.03.2010, 12:45
Ответы с готовыми решениями:

Составить программу вычисления значения выражения с использованием процедуры или функции
Составить программу вычисления значения выражения с использованием процедуры или функции. Ввести...

Нахождение значения функции с использованием рекурсии
Вот сама суть задачи: Найдите значение функции для любых целых неотрицательных аргументов. ...

Задачи решать с использованием процедуры или функции
1. Найти наименьший элемент одномерного массива, состоящего из n элементов. Элементы вводятся с...

Получить значение выражения с использованием функции или процедуры
Даны действительные числа S и Т. Получить: F(T,-2*S,1.17)+F(2.2,T,S-T), ...

1
Почетный модератор
64089 / 47498 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
11.03.2010, 16:01 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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
uses crt;
const max=100;
type mas=array[1..max] of real;
procedure Massiv(var m:mas;var n:byte);//создание исходного массива
var i:byte;
begin
repeat
write('Размер массива ло ',max,'=');
readln(n);
until n in [1..max];
writeln('Введите ',n,' элементов масива:');
for i:=1 to n do
 begin
  write('el[',i,']=');
  readln(m[i]);
 end;
clrscr;
writeln('Массив:');
for i:=1 to n do
write(m[i]:0:2,' ');
writeln;
writeln;
end;
function Kol(m:mas;n:byte;b,c:real):byte;//определение М8
var i,k:byte;
begin
k:=0;
for i:=1 to n do
if(m[i]>=b)and(m[i]<=c) then k:=k+1;
Kol:=k;
end;
function Summ1(m:mas;n:byte;b,c:real):real;//определение Р6
var i:byte;
    s:real;
begin
s:=0;
for i:=1 to n do
if(m[i]>=b)and(m[i]<=c) then s:=s+m[i];
Summ1:=s;
end;
function Summ2(m:mas;n:byte;p:real):real;//вычисление суммы, если Р6<>0
var i:byte;
    s:real;
begin
s:=0;
for i:=1 to n do
s:=s+m[i]/p;
Summ2:=s;
end;
function F(b,c:real;k:byte):real;//вычисление Y, если P6=0
begin
F:=b/(c+sqrt(c+k));
end;
var a:mas;
    k,m8:byte;
    b,c,p6,y:real;
begin
clrscr;
Massiv(a,k);
repeat
writeln('Введите 2 числа для поиска, второе больше:');
readln(b,c);
until c>b ;
p6:=Summ1(a,k,b,c);
m8:=Kol(a,k,b,c);
if p6<>0 then
 begin
  writeln('P6=',p6:0:2);
  writeln('Сумма=',Summ2(a,k,p6):0:2);
 end
else
 begin
  writeln('P6=0');
  writeln('Y=',F(b,c,m8):0:2);
 end;
readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.03.2010, 16:01

Вычислить значение выражения с использованием функции или процедуры
Даны действительные числа a,b,c. Получить: Z= (max(a,a-b) + max(2a,b+c))/ (1+max(a-bc,5))

Задание про месяцы решить с использованием процедуры или функции
Объявлены типы и переменные: TYPE МЕСЯЦ = ( ЯНВ, ФЕВ, МАР, АПР, МАЙ, ИЮН, ИЮЛ, АВГ, СЕН, ...

Построение графика функции с использованием процедуры или модуля Graph
Подкинули задачу, а понятия не имею как работать с этими процедурами... ...вообщем, HELP ME!

Hайти первое отрицательное значение функции (с использованием функции и процедуры)
Hайти первое отрицательное значение функции c=sin(2v). V принадлежит интервалу (a;b) и изменятся с...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru