Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 28.12.2009, 22:20   #1 (permalink)
Krictina
Новичок
 
Регистрация: 28.12.2009
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Unhappy Помогите, не получается задача Паскаль.

определить значение функции у. необходимо использовать не менее одной подпрограммы-функции и одной подпрограммы-процедуры. у меня чтото неполучается (мозги кипят запуталась).
дан массив А[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. типо на ноль делим???

ПОМОГИТЕ

Последний раз редактировалось Krictina; 28.12.2009 в 23:06
Krictina вне форума   Ответить с цитированием

Старый 28.12.2009, 22:20
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Скорее всего проблема уже была решена ранее в других обсуждениях

Задача про стоки, Паскаль
Паскаль. Задача о сторожах
Паскаль. Задача об элементах вектора
Задача, Паскаль
Паскаль, задача

Старый 29.12.2009, 14:45   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,829
Сказал(а) спасибо: 316
Поблагодарили 542 раз(а) в 183 сообщениях
Репутация: 101510
По умолчанию

Так. Для начала, пожалуйста, четко сформулируйте задачу. Что чем обозначено - не так уж важно.

Добавлено в 20.27:
Сейчас внимательно рассмотрел Вашу "программу" - в основном, это просто бессвязный набор каких-то фрагментов, по большей части абсолютно бессмысленных (извините за прямоту). Но если есть РЕАЛЬНОЕ желание написать рабочую программу, будем рады Вам помочь.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 02:02.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.