IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Процедуры и функции, Мне очень сложно разобраться. Помогите, если это возможно...
Называй меня Настенька
сообщение 17.12.2010 18:47
Сообщение #1





Группа: Пользователи
Сообщений: 2
Пол: Женский

Репутация: -  0  +


В процедуре заполните квадратную матрицу третьего порядка с клавиатуры, а в функции проверьте, все ли диагональные элементы равны нулю. Если не все, то в основной программе вычислить сумму диагональных элементов и прибавить это значение к любому недиагональному элементу, а диагональные - обнулить.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Lapp
сообщение 18.12.2010 1:55
Сообщение #2


Уникум
*******

Группа: Модераторы
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


Цитата(Называй меня Настенька @ 17.12.2010 18:47) *
В процедуре заполните квадратную матрицу третьего порядка с клавиатуры, а в функции проверьте, все ли диагональные элементы равны нулю. Если не все, то в основной программе вычислить сумму диагональных элементов и прибавить это значение к любому недиагональному элементу, а диагональные - обнулить.

Вот тебе начало. Оно включает ввод матрицы и функцию проверки диагонали.
const
  m=3;

type
  ta = array[1..m,1..m] of integer;

var
  a: ta;
  i,j: integder;

function CheckDiagonalForAllZero(var x: ta): boolean;
var
  i: integer;
  b: boolean;
begin
  b:=true;
  i:=1;
  while b and (i<=m) and (x[i,i,]=0) do Inc(i);
  CheckDiagonalForAllZero:=b
end;

begin
  { filling in the matrix }
  WriteLn('Type in the matrx elements:');
  for i:=1 to m do for j:=1 to m do begin
    Write('a[',i,',',j,'] = ');
    ReadLn(a[i,j])
  end;
  { print out the matrix }
  WriteLn('Now, that we have this matrix:');
  for i:=1 to m do begin
    for j:=1 to m do WriteLn(a[i,j]:4);
    WriteLn
  end;

Попробуй продолжить. Задавай вопросы, если что неясно.


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия 20.07.2025 4:08
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"