Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 31.05.2010, 14:27   #1
Argentina
Новичок
Джуниор
 
Регистрация: 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.
Argentina вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Процедуры и функции (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