функции в паскале

[котопек]

Помогите пожалуйста решить задачи или дайте ссылу на их решения.заранее благодарен
1)Даны три массива А( 10 ),В( 8 ),С( 12 ).Подсчитать для каждого массива среднее арифметическое его положительных элементов,для чего использовать подпрограмму-функию
2)Имеются массивы вещественного типа {х1,х2,х3,..,х10} и {у1,у2,у3...у10},вычислить
z1 = (х1*у1+х3*у3+..+х9*у9) / ( х2*у2+х4*у4+..+х10*у10 )

 

[bubuka]

1.
type
mas = record
masiv:array [1..100] of integer;
dlinna:integer;
end;


function sred(d:mas);
var
i,k:integer;
otv:real;
begin
otv:=0;
k:=0;
for i:=1 to d.dlinna do
if d.masiv>0 then begin otv:=otv+d.masiv; k:=k+1;
otv:=otv/k;
sred:=otv;
end;


var
a,b,c:mas;
i:integer;

begin
a.dlinna=10;
for i:=1 to a.dlinna do
readln(a.masiv);
writeln(sred(a));

b.dlinna:=8;
for i:=1 to b.dlinna do
readln(b.masiv);
writeln(sred(b));

c.dlinna:=12
for i:=1 to c.dlinna do
readln(c.masiv);
writeln(sred(c));

end.

 

[bubuka]

ща через часик вторую напишу если актуально еще
кстате во втотрой тоже использовать функцию или процендуру?

 

[AlexZir]

bubuka
В функции end; не хватает .

 

[AlexZir]

program gyyyyyyyy;

var X,Y: array [1..10] of real;
      a,b,z1: real;
      i: integer;
begin

{здесь должно быть заполнение массива значениями}

a:=0; b:=0; z1:=0;

for i:=1 to 10 do
if i/2=trunc(i/2) then b:=b+X[i]*Y[i] else a:=a+X[i]*Y[i];

z1:=a/b;

writeln('z1=', z1);

end.

 

[bubuka]

i/2=round(i/2)

орининальное деление на чет-нечет ))) такого еще не видел

 

[AlexZir]

bubuka
Да ладно, ошибся, там должно быть trunc , сейчас исправлю

 

[AlexZir]

орининальное деление на чет-нечет

На первое-второе рассчитайсь!!!

 

[котопек]

function sred(d:mas);
var
i,k:integer;
otv:real;
begin
otv:=0;
k:=0;
for i:=1 to d.dlinna do
if d.masiv>0 then begin otv:=otv+d.masiv; k:=k+1;
otv:=otv/k;
sred:=otv;
end;


(вот перед этим варом курсор)var
a,b,c:mas;
i:integer;

begin
a.dlinna=10;
for i:=1 to a.dlinna do
readln(a.masiv);
writeln(sred(a));

спасибо за помощь но прога не совсем работает.
она ставит курсор перд вторым VAR и пишет ERROR 113:ERROR IN STATEMENT
я чет попробовал исправить но не совсем получается

 

[AlexZir]

В функции end; не хватает

Вставьте перед строчкой var еще один end;

 

[korol3lev]

Нормальная ли температура

Температуры:
Системная плата 38 °C (100 °F)
ЦП 61 °C (142 °F)
Aux 55 °C (131 °F)
Диод ГП 70 °C (158 °F)
Неподскажете это норм температура?(При включенной CS:S)

Комп:
Тип ЦП Intel Pentium 4, 3000 MHz (15 x 200)
Видеоадаптер ATI Radeon HD 2600 Pro AGP (Microsoft Corporation WDDM 1.1) (512 Мб)
Звуковой адаптер Realtek ALC655 @ VIA AC'97 Enhanced Audio Controlle
DirectX DirectX 11.0r
Операционная система Microsoft Windows 7 Ultimate
Системная плата MSI PM8M-V H (MS-7104 v2) (3 PCI, 1 AGP, 2 DDR DIMM, Audio, Video, LAN)

Температура проверена с помощью проги EVEREST

 

[pino2007]

Диод ГП( графический процессор ) - температура высоковата. Возможно на видеокарте много пыли? Заодно и на процессорный кулере тоже можно почистить.

 

[korol3lev]

Пыль только сегодня чистил =) Кисточкой

 

[pino2007]

Пыль только сегодня чистил =) Кисточкой

А термопасту на процессоре меняли?

 

[korol3lev]

Вот это надо проверить

 

[Endrew]

korol3lev, в пределах все это

 

[korol3lev]

Всем спасибо ,попробую сменить термопасту.

 

[korol3lev]

Прошу закрыть тему.