13.05.2008, 09:09 | #1 (permalink) |
Новичок
Регистрация: 13.05.2008
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
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 ) |
13.05.2008, 09:09 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Аналогичные топики были созданы ранее, советую обратить внимание Функции на Паскале Процедуры, функции Интерполяция функции График функции |
13.05.2008, 11:06 | #2 (permalink) |
Member
Регистрация: 23.01.2008
Сообщений: 1,110
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 141
|
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[i]>0 then begin otv:=otv+d.masiv[i]; 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[i]); writeln(sred(a)); b.dlinna:=8; for i:=1 to b.dlinna do readln(b.masiv[i]); writeln(sred(b)); c.dlinna:=12 for i:=1 to c.dlinna do readln(c.masiv[i]); writeln(sred(c)); end. |
13.05.2008, 16:41 | #5 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,794
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Код:
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.
__________________
Убить всех человеков! |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
13.05.2008, 16:56 | #7 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,794
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
bubuka
Да ладно, ошибся, там должно быть trunc :), сейчас исправлю
__________________
Убить всех человеков! |
13.05.2008, 19:27 | #8 (permalink) | |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,794
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Цитата:
__________________
Убить всех человеков! |
|
18.05.2008, 10:36 | #9 (permalink) | |
Новичок
Регистрация: 13.05.2008
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Цитата:
она ставит курсор перд вторым VAR и пишет ERROR 113:ERROR IN STATEMENT я чет попробовал исправить но не совсем получается |
|
18.05.2008, 18:06 | #10 (permalink) | |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,794
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Цитата:
__________________
Убить всех человеков! |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|