|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
31.05.2010, 14:27 | #1 |
Новичок
Джуниор
Регистрация: 31.05.2010
Сообщений: 3
|
Pascal тема процедуры и функции
вычислить таблицу значений функции Z=((q1+q2)/(2*n1*n2))*x, где q1,n1 - среднее геометрическое и количество положительных элементов массива а(60); q2,n2 - среднее геометрическое и количество положительных элементов массива b(40); x изменяется от xn до xk с шагом h. Знакопеременные массивы сформировать случайным образом.
заранее благодарна... программировала, но не получается к сожалению: PROGRAM lab6; VAR z,q1,q2:real; n1,n2,x,xn,xk,h:integer; procedure step(f:integer; var q:real; n:integer); var a:array[1..60] of integer; i,p:integer; begin randomize; p:=1; n:=0; for i:=1 to f do a[i]:=random(11)-5; for i:=1 to f do begin if a[i]>0 then n:=n+1; p:=p*a[i]; end; q:=p/f; end; BEGIN writeln('vvedite xn, xk, h'); readln(xn, xk, h); x:=xn; repeat step(60,q1,n1); step(40,q2,n2); z:=((q1+q2)/(2*n1*n2))*x; writeln(z:4:2); x:=x+h; until x>=xk; readln; end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Процедуры и функции (Pascal) | P1RoG | Помощь студентам | 2 | 29.04.2010 03:44 |
[Pascal] Процедуры и функции | koshkarjov | Помощь студентам | 4 | 29.04.2010 03:31 |
помогите плиз написать прогу тема процедуры и функции | Vad56 | Помощь студентам | 2 | 25.10.2009 12:32 |
Pascal-процедуры и функции | xxBOBAHxx | Помощь студентам | 3 | 18.11.2008 14:30 |