Сформировать массив, сформировать массив где каждый элемент соответствует среднему геомметр |
Начальные контакты ТОЛЬКО через личку!!
Сформировать массив, сформировать массив где каждый элемент соответствует среднему геомметр |
sinys |
Сообщение
#21
|
Группа: Пользователи Сообщений: 9 Пол: Мужской Репутация: 0 |
блин, ну ведь спрашивал ведь
|
Ozzя |
Сообщение
#22
|
Гуру Группа: Пользователи Сообщений: 1 220 Пол: Мужской Репутация: 16 |
Цитата for j:=1 to m do b[i]:=b[i]+a[j,i]; raschet:=B[i] / m; Цитата Среднее геометрическое - это корень N-ой степени из произведения N элементов, а то что ты сделал - среднее арифметическое. |
Борис |
Сообщение
#23
|
Новичок Группа: Пользователи Сообщений: 29 Пол: Мужской Репутация: 0 |
sinysты в москве?
|
Ozzя |
Сообщение
#24
|
Гуру Группа: Пользователи Сообщений: 1 220 Пол: Мужской Репутация: 16 |
Код for j:=1 to m do b[i]:=b[i]*a[j,i]; raschet:=Exp((1/m)*Ln(B[i])); Сообщение отредактировано: Ozzя - |
Борис |
Сообщение
#25
|
Новичок Группа: Пользователи Сообщений: 29 Пол: Мужской Репутация: 0 |
а Exp(ln(B[i]/m))
не одно и тоже? |
sinys |
Сообщение
#26
|
Группа: Пользователи Сообщений: 9 Пол: Мужской Репутация: 0 |
народ, а нет клиента для этого форума? а то жрет много
|
Ozzя |
Сообщение
#27
|
Гуру Группа: Пользователи Сообщений: 1 220 Пол: Мужской Репутация: 16 |
Корень m-той степени из числа - это число в степени 1/m
http://forum.pascal.net.ru/index.php?s=&sh...indpost&p=38227 Сообщение отредактировано: Ozzя - |
coder |
Сообщение
#28
|
Группа: Пользователи Сообщений: 1 Пол: Мужской Репутация: -1 |
ну что задача все еще нужна? или volvo уже решил?
|
Борис |
Сообщение
#29
|
Новичок Группа: Пользователи Сообщений: 29 Пол: Мужской Репутация: 0 |
Цитата program exzamen; uses crt; var A : array[1..10,1..10] of integer; B : array[1..10] of real; m,n,i,j : integer; procedure vvod(m: integer;n : integer); begin randomize; for i:=1 to m do begin for j:=1 to n do begin A[i,j]:=random(100); end; end; end; procedure vivod(m: integer;n : integer); begin writeln('matrix'); for i:=1 to m do begin for j:=1 to n do begin Write(' ',A[i,j],' '); end; writeln; end; end; function raschet(m: integer;i:integer): real; var j : integer; begin for j:=1 to m do b[i]:=b[i]+a[j,i]; raschet:=exp(ln(B[i]/m)); end; begin clrscr; vvod(m,n); vivod(m,n); for i:=1 to n do b[i]:=0; writeln('elementi poluchennogo massiva'); for i:=1 to n do writeln(raschet(m,i):5:2); readln; readkey; end. где ошибка, почему не рандомит, тобишь не выводит Сообщение отредактировано: Борис - |
Ozzя |
Сообщение
#30
|
Гуру Группа: Пользователи Сообщений: 1 220 Пол: Мужской Репутация: 16 |
Код for i:=1 to m do begin for j:=1 to n do тут Чему равны n,m? 0 Сообщение отредактировано: Ozzя - |
Борис |
Сообщение
#31
|
Новичок Группа: Пользователи Сообщений: 29 Пол: Мужской Репутация: 0 |
|
Ozzя |
Сообщение
#32
|
Гуру Группа: Пользователи Сообщений: 1 220 Пол: Мужской Репутация: 16 |
Код begin clrscr; n:=5; m:=5; vvod(m,n); vivod(m,n); readln; for i:=1 to n do b[i]:=0; writeln('elementi poluchennogo massiva'); for i:=1 to n do writeln(raschet(m,i):5:2); readln; end. Вот такой вариант отлично работает Сообщение отредактировано: Ozzя - |
Борис |
Сообщение
#33
|
Новичок Группа: Пользователи Сообщений: 29 Пол: Мужской Репутация: 0 |
Цитата program exzamen; uses crt; var A : array[1..10,1..10] of integer; B : array[1..10] of real; m,n,i,j : integer; procedure vvod(m: integer;n : integer); begin randomize; writeln('enter M'); readln(m); writeln('enter N'); readln(n); for i:=1 to m do begin for j:=1 to n do begin A[i,j]:=integer(random(100)-50); end; end; end; procedure vivod(m: integer;n : integer); begin writeln('matrix'); for i:=1 to m do begin for j:=1 to n do begin Write(' ',A[i,j],' '); end; writeln; end; end; function raschet(m: integer;i:integer): real; var j : integer; begin for j:=1 to m do b[i]:=b[i]+a[j,i]; raschet:=exp((1/m)*ln(B[i])); end; begin clrscr; vvod(m,n); vivod(m,n); readln; for i:=1 to n do b[i]:=0; writeln('elementi poluchennogo massiva'); for i:=1 to n do writeln(raschet(m,i):5:2); readln; end. readln; readkey; end. а у мня что не так, не выводит ничего Сообщение отредактировано: Борис - |
Ozzя |
Сообщение
#34
|
Гуру Группа: Пользователи Сообщений: 1 220 Пол: Мужской Репутация: 16 |
Сообщения об ошибках есть?
В чем пишешь? БП7? |
Борис |
Сообщение
#35
|
Новичок Группа: Пользователи Сообщений: 29 Пол: Мужской Репутация: 0 |
|
Ozzя |
Сообщение
#36
|
Гуру Группа: Пользователи Сообщений: 1 220 Пол: Мужской Репутация: 16 |
ХЗ тогда
У меня все прекрасно отработало. А как не выводит? Экран мигнул и погас, или пустой экран и ждет нажатия на клавишу? |
Борис |
Сообщение
#37
|
Новичок Группа: Пользователи Сообщений: 29 Пол: Мужской Репутация: 0 |
ну вставь плиз, всю прогу целиком
|
Ozzя |
Сообщение
#38
|
Гуру Группа: Пользователи Сообщений: 1 220 Пол: Мужской Репутация: 16 |
Так она твоя и есть две строки добавил
Код program exzamen; uses crt; var A : array[1..10,1..10] of integer; B : array[1..10] of real; m,n,i,j : integer; procedure vvod(m: integer;n : integer); begin randomize; for i:=1 to m do begin for j:=1 to n do begin A[i,j]:=random(100); end; end; end; procedure vivod(m: integer;n : integer); begin writeln('matrix'); for i:=1 to m do begin for j:=1 to n do begin Write(' ',A[i,j],' '); end; writeln; end; end; function raschet(m: integer;i:integer): real; var j : integer; begin for j:=1 to m do b[i]:=b[i]+a[j,i]; raschet:=exp(ln(B[i]/m)); end; begin clrscr; n:=5; m:=5; vvod(m,n); vivod(m,n); for i:=1 to n do b[i]:=0; writeln('elementi poluchennogo massiva'); for i:=1 to n do writeln(raschet(m,i):5:2); readln; end. То что то выводит Цитата matrix 22 34 8 78 42 50 4 35 9 15 34 14 99 3 14 61 58 58 96 26 47 41 89 50 72 elementi poluchennogo massiva 42.80 30.20 57.80 47.20 33.80 for j:=1 to m do b[i]:=b[i]+a[j,i]; поменяй на for j:=1 to m do b[i]:=b[i]*a[j,i]; Сообщение отредактировано: Ozzя - |
klem4 |
Сообщение
#39
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Нарушение правил форума :
1.12, 9, 5 + флейм закрыто. Сообщение отредактировано: klem4 - -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Текстовая версия | 19.05.2024 20:52 |