Подпрограмма процедура! плииииз!

@Лапуся · Регистрация: 06.03.2012

Студворк — интернет-сервис помощи студентам

даны два одномерных массива А и В из N неотрицательных элементов. Вычислите значение выражения
R=(2х+3у)*(1 + х/(1+у)), где х-среднее арифметическое, у -среднее геометрическое. Определение среднего ариф, и геом для произвольного одномерного массива с числом элементов N<20(напечатать) и вычисление R оформить в виде подпрограммы-процедуры.
Помогите,пожалуйста....

ошибокмного((прошу помочь

Delphi
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
type
  mas=array [1..12]of real;
 
procedure F(var n:Integer;z:mas);
var
i:Integer;
x,y,r:real;
t:string;
begin
x:=0;
y:=1;
for i:=1 to n do
begin
x:=x+z[i];
y:=y*z[i];
end;
x:=x/n;
y:=exp(ln(y)/n);
r:=(2*x+3*y)*(1+x/(1+y));
Label1.Caption:=Label1.Caption+t+FloatToStrf(x,fffixed,4,2)+FloatToStrf(y,fffixed,4,2)+FloatToStrf(r,fffixed,4,2)+#13;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
i,n:Integer;
a,b:mas;
begin
n:=StrToInt(Edit1.Text);
for i:=1 to n do
begin
a[i]:=SrtToFloat(StingGrid1.Cells[i-1,0]);
b[i]:=SrtToFloat(StingGrid2.Cells[i-1,0]);
end;
F(n;a);
 
F(n;b);
end;
 
 
end.

@Puporev · 13.03.2012, 17:19

Delphi
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
type
  mas=array [1..12]of real;
procedure SrAr(z:mas;n:integer; var sr:real);
var i:integer;
begin
sr:=0;
for i:=1 to n do
sr:=sr+z[i];
sr:=sr/n;
end;
procedure SrGm(z:mas;n:integer; var sr:real);
var i:integer;
begin
sr:=1;
for i:=1 to n do
sr:=sr*z[i];
sr:=exp(ln(sr)/n);
end;
procedure F(x,y:real;var r:real);
begin
r:=(2*x+3*y)*(1+x/(1+y));
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
var i,n:Integer;
    a,b:mas;
    sra,srb,sga,sgb,ra,rb:real;
begin
n:=StrToInt(Edit1.Text);
for i:=1 to n do
  begin
   a[i]:=SrtToFloat(StingGrid1.Cells[i-1,0]);
   b[i]:=SrtToFloat(StingGrid2.Cells[i-1,0]);
  end;
SrAr(a,n,sra);
SrGm(a,n,sga);
F(sra,sga,ra);
Label1.Caption:='Массив А  ср.ариф.='+FloatToStrf(sra,fffixed,4,2)+
                '  ср.геом='+FloatToStrf(sga,fffixed,4,2)+'  R='+FloatToStrf(ra,fffixed,4,2);
SrAr(b,n,srb);
SrGm(b,n,sgb);
F(srb,sgb,rb);
Label2.Caption:='Массив B  ср.ариф.='+FloatToStrf(srb,fffixed,4,2)+
                '  ср.геом='+FloatToStrf(sgb,fffixed,4,2)+'  R='+FloatToStrf(rb,fffixed,4,2);
end;
 
 
end.

@Лапуся · 13.03.2012, 17:32 **[ТС]**

Вау!!!
Огромнейшее вам спасибо=****))
всё работает)))

@Лапуся · 15.03.2012, 17:56 **[ТС]**

а можете сделать, чтоб выводило в самой подпрорграмме,пожалуйста,а то так не принимают,а как исправить,я не знаю(

@Puporev · 15.03.2012, 18:03

Сообщение от Лапуся

чтоб выводило в самой подпрорграмме

В какой подпрограмме и что?

@Лапуся · 15.03.2012, 18:11 **[ТС]**

во всех подпрограммах данной программы, чтою не в основной подпрограмме печатал в лейбл, а в подпрограммах надо чтоб печатало

Добавлено через 4 минуты
вот типо чтоб так было, только в процедуре...
Function F(k:Integer;b:array of real;t:string):real;
var
d:real;
i,n:integer;
c:array[1..5] of real;
begin
d:=0;
for i:=1 to n do
d:=d+c[i]*c[i];
d:=sqrt(d);
label1.Caption:=label1.Caption+t+floatto strf(d,fffixed,4,2)+#13;
F:=d;
end;

@Puporev · 15.03.2012, 18:12

Сделаю вывод в 6 Лабелей, чтобы не перегружать.

@Лапуся · 15.03.2012, 18:15 **[ТС]**

сделайте,пожалуйста,если вам не сложно)

@Puporev · 15.03.2012, 18:36

Держите, оформление сами сделаете как удобнее.

@Лапуся · 15.03.2012, 18:40 **[ТС]**

спасибо вам!!=*)
оргомнейшее!!!))

Новые блоги и статьи Все статьи Все блоги /
Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .

@Лапуся 1 / 1 / 0 Регистрация: 06.03.2012 Сообщений: 19
	13.03.2012, 17:32 [ТС]
	Вау!!! Огромнейшее вам спасибо=****)) всё работает))) 0

@Лапуся 1 / 1 / 0 Регистрация: 06.03.2012 Сообщений: 19
	15.03.2012, 17:56 [ТС]
	а можете сделать, чтоб выводило в самой подпрорграмме,пожалуйста,а то так не принимают,а как исправить,я не знаю( 0

@Лапуся 1 / 1 / 0 Регистрация: 06.03.2012 Сообщений: 19
	15.03.2012, 18:11 [ТС]
	во всех подпрограммах данной программы, чтою не в основной подпрограмме печатал в лейбл, а в подпрограммах надо чтоб печатало Добавлено через 4 минуты вот типо чтоб так было, только в процедуре... Function F(k:Integer;b:array of real;t:string):real; var d:real; i,n:integer; c:array[1..5] of real; begin d:=0; for i:=1 to n do d:=d+c[i]*c[i]; d:=sqrt(d); label1.Caption:=label1.Caption+t+floatto strf(d,fffixed,4,2)+#13; F:=d; end; 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	15.03.2012, 18:12
	Сделаю вывод в 6 Лабелей, чтобы не перегружать. 0

@Лапуся 1 / 1 / 0 Регистрация: 06.03.2012 Сообщений: 19
	15.03.2012, 18:15 [ТС]
	сделайте,пожалуйста,если вам не сложно) 0

@Лапуся 1 / 1 / 0 Регистрация: 06.03.2012 Сообщений: 19
	15.03.2012, 18:40 [ТС]
	спасибо вам!!=*) оргомнейшее!!!)) 0