21.12.2009, 20:32 | #1 (permalink) |
Member
Регистрация: 23.11.2009
Сообщений: 16
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Програмирование с использование функций и процедур
|
21.12.2009, 20:32 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
На форуме часто создаются аналогичные темы Назначение функций кнопок Pascal. Програмирование итерационных процессов График функций |
21.12.2009, 21:25 | #3 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
CONST A:ARRAY[1..4] of REAL=(-5.2 ,8 ,1.3, -6); B:ARRAY[1..6] of REAL=(-4.7, -3, 2.6, 7, 13, -1); TYPE AR=ARRAY[1..10] of REAL; VAR C:AR; Max_el:REAL; Imax,i:INTEGER; PROCEDURE Find_Max(Af:AR;Nf:INTEGER; var Maxf:REAL; var I_f:INTEGER); VAR i:INTEGER; BEGIN Maxf:=Af[1]; FOR i:=2 TO Nf DO IF Af[i]>Maxf THEN BEGIN Maxf:=Af[i]; I_f:=i; END; END; BEGIN FOR i:=1 TO 4 DO C[i]:=A[i]; Find_Max(C,4,Max_el,Imax); Writeln('Max. value in array1 has elem. N ',Imax,' equal to ',Max_el:4:1); FOR i:=1 TO 6 DO C[i]:=B[i]; Find_Max(C,6,Max_el,Imax); Writeln('Max. value in array2 has elem. N ',Imax,' equal to ',Max_el:4:1); ReadLn; END. |
|
21.12.2009, 21:28 | #4 (permalink) |
Member
Регистрация: 23.11.2009
Сообщений: 16
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
СПАСИБО!!!!
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|