Помогите, не получается задача Паскаль.
определить значение функции у. необходимо использовать не менее одной подпрограммы-функции и одной подпрограммы-процедуры. у меня чтото неполучается (мозги кипят запуталась).
дан массив А[1..k,1..k] и переменная В. м3-кол-во полож.эл.массива; м6-кол-во диагональн.эл.матрицы, равных В; р1-сумма эл.матрицы; р2-сумма положит.эл.матрицы. условие у=р1-р2 если м3 не равно 0, иначе м3=0 и у=р1/м6. Program kontr2; uses crt; const k=100; type mas=array[1..k,1..k] of integer; var A:mas; max,M3,M6,B,i,j,x:integer; y:real; Procedure welcome; begin clrscr; gotoxy(1,10); writeln; readkey; end; Procedure matrix(x:integer); var i,j:integer; begin write('Заполните матрицу:'); for i:=1 to x do for j:=1 to x do begin gotoxy(10+(j*3),2+i); read(A[i,j]); end; begin if A[I,j]>=0 then M3:=M3+1 writeln('кол-во полож.эл.массива(M3)= ',M3); end; begin M6:=0; for i:=1 to t do if A[i,i]=B then M6:=M6+1; writeln('кол-во диаг..эл. матрицы, равных задан.числу В (M6) = ',M6); end; BEGINbegin if a[I,j]>0 then P1:=P1+a[I,j]; if a[I,j]>=0 then P2:=P2+a[I,j]; writeln(‘сумма эл.матрицы’); writeln(‘сумма полож.эл.матрицы’); end; if M3<>0 then y=P1-P2; writeln (‘ ‘); end; if M3=0 then y=P1/M6; writeln (‘ ‘); readkey; end. BEGIN welcome; clrscr;.........дальше все аут если при F9 выдает нет ошибок при запуске выдает Error 200: division by zero. типо на ноль делим??? :confused:ПОМОГИТЕ |
Так. Для начала, пожалуйста, четко сформулируйте задачу. Что чем обозначено - не так уж важно.
Добавлено в 20.27: Сейчас внимательно рассмотрел Вашу "программу" - в основном, это просто бессвязный набор каких-то фрагментов, по большей части абсолютно бессмысленных (извините за прямоту). Но если есть РЕАЛЬНОЕ желание написать рабочую программу, будем рады Вам помочь. |
Часовой пояс GMT +4, время: 03:47. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.