Допоможіть будь ласка! Не виходить. Я не розумію нічого в паскаль а робити потрібно. Двічі обчислити значення виразу, перший раз використовуючи процедуру, а другий - функцію.
Я не зрозумію що тут не так! в 42 рядку ця сама помилка! Код program proga; const m = 8; n = 10; f = 15; type raz = 1..f; mas = array [raz] of real; var x, y, z, w: mas; kx, ky, kz, kw: real; i: integer; function nmas (a, y: mas; f: integer): integer; var i, j: integer; begin j: = 0; for i: = 1 to f do if a [i]> 0 then begin j: = j + 1; y [j]: = a [i]; end; end; begin writeln ( 'Massiv X'); for i: = 1 to m do begin x [i]: = 4 * sqr (i) -9 * (5-i); writeln (x [i]); end; writeln ( 'Massiv Y'); for i: = 1 to m do begin y [i]: = 6 * sin (2 * i) + 5 * exp (i-5); writeln (y [i]); end; writeln ( 'Massiv Z'); for i: = 1 to n do begin z [i]: = 6 * (i-4) + 5 * sqr (sin (1.5 * i)); writeln (z [i]); end; writeln ( 'Massiv W'); for i: = 1 to f do begin w [i]: = 6 * ln (0.1 * i) + 10 * cos (i-2.5) * cos (i-2.5) * cos (i-2.5); writeln (w [i]); end; ky: = nmas (m, y); kz: = nmas (n, z); kw: = nmas (f, w); writeln ( 'Noviy massiv Y', ky); writeln ( 'Noviy massiv Z', kz); writeln ( 'Noviy massiv W', kw); end.
Добрий день форумчани! при вирішенні завдання я допустив в процедурі "sort" помилку, не можу знайти її здається, я к-ть невірно вказав фактич. параметрів і вийшло десь більше десь менше, сподіваюся на ваш пильне око, допоможіть знайти помилку?
Чи не працює програма або їй не відповідає опис. Повідомте будь ласка нам про це, заповнивши просту форму. Спасибо =) Зробити сайт краще