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

используя процедуру вычислить

28.11.2010, 13:12. Просмотров 294. Ответов 0
Метки нет (Все метки)

вычислить с использованием процедуры, при необходимости с динамическими массивами
http://www.cyberforum.ru/cgi-bin/latex.cgi?Z=\frac{\sum \sin ({x}_{i})-\sum \sin ({y}_{i})}{\sum \left|{x}_{i} \right|}
где X(n), Y(m)-данные линейные массивы

Добавлено через 14 часов 34 минуты
вот сам набросал, работает. Последний цикл все-таки в процедуре должен быть?
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
type Mas=array of integer;
 
Var i,n,m,sum:integer;
  X,Y:mas; s1,s2:real;
 
Procedure sin1(X:Mas; t:integer; var s:real);
var  i:integer;
begin
s:=0;
for i:=0 to t-1 do
  begin
    s:=sin(X[i])+s;
  end;
end;
 
begin
randomize;
  { TODO -oUser -cConsole Main : Insert code here }
   write('n='); readln(n);
   write('m='); readln(m);
   SetLength(X,n);
   SetLength(Y,m);
Writeln('Matr X:');
For i:=0 to n-1 do begin
  X[i]:=(5-random(10));
  write(X[i]:5);
end;
writeln;
writeln;
sin1(X,n,s1);
writeln('sinX=',s1:5:3);
writeln;
writeln;
 
Writeln('Matr Y:');
For i:=0 to m-1 do begin
  Y[i]:=(5-random(10));
  write(Y[i]:5);
end;
writeln;
writeln;
sin1(Y,m,s2);
writeln('SinY=',s2:5:3);
writeln;
 
for i := 0 to n-1 do
begin
sum:=sum+abs(x[i]);
end;
writeln('rezultat=',(s1-s2)/sum:5:3);
readln;
readln
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.11.2010, 13:12
Ответы с готовыми решениями:

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

Вычислить значение выражения, используя процедуру
Помогите пожалуйста. Вычислить, используя подпрограмму-процедуру Z=(s1+s2+s3)/(k1*k2*k3) где...

Вычислить сумму i+k используя рекурсивную функцию или процедуру на языке Паскаль
y=\sum_{i=1}^{n}i+k Вот эту задачу надо решить используя рекурсивную функцию или процедуру. ...

используя процедуру
11. Составить программу для нахождения сумм элементов каждого столбца матриц А и В, используя...

Используя рекурсивную процедуру и функцию....
Используя рекурсивную процедуру и функцию, составьте программу решения следующей...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.11.2010, 13:12

Сгенерировать массив из N элементов, используя процедуру
Задание 1.Сгенерировать массив из N элементов числами от A до B(A<В), используя процедуру. (N,A, и...

Используя процедуру, отсортировать строки матрицы
Результаты выводить различным цветом. само задание: Создать матрицу А. Если элемент матрицы на...

Используя процедуру определения max и min элемента матрицы
программисты,помогите пожалуйста решить задачки 1.Даны действительные числа х и у. Вычислить с...


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

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

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