Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 14.11.2008, 14:58   #1
ruslan09-93
 
Регистрация: 14.11.2008
Сообщений: 5
По умолчанию народ помогите написать программу

Написать программу определения симметричности матрицы. Функция должна возвращать значение булевского типа.
ruslan09-93 вне форума Ответить с цитированием
Старый 14.11.2008, 15:15   #2
SNUPY
Форумчанин
 
Регистрация: 15.02.2008
Сообщений: 621
По умолчанию

Цитата:
народ помогите написать программу
Помочь поможем, только в чем проблема в алгоритме? или же у вас есть алгоритм решения, но вы не знаете как его перевести на конкретный язык программирования?
ЗЫ желательно было бы выложить свои наработки.
Помог? Ну так нажми на весы!
SNUPY вне форума Ответить с цитированием
Старый 14.11.2008, 15:42   #3
ruslan09-93
 
Регистрация: 14.11.2008
Сообщений: 5
По умолчанию

у меня нету никаких наработок. в школе нам паскаль почти не преподовали а в универе надо составлять а я не знаю как.
ruslan09-93 вне форума Ответить с цитированием
Старый 14.11.2008, 15:43   #4
SNUPY
Форумчанин
 
Регистрация: 15.02.2008
Сообщений: 621
По умолчанию

Так в инете полно учебных пособий по Паскалю скачай да почитай. Или скорее всего лекции есть
Помог? Ну так нажми на весы!
SNUPY вне форума Ответить с цитированием
Старый 14.11.2008, 17:11   #5
MalexG
Форумчанин
 
Регистрация: 06.11.2008
Сообщений: 100
По умолчанию

Код:
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  N = 10;  // Размерность массива
type
  TArr = array[0..N-1, 0..N-1] of word;

var
  Matrix: TArr;

function IsSymmetry(Arr: TArr): boolean;
var
  i, j: byte;
  flag: boolean;
begin
  flag := true;
  for j := 2 to N-1 do
    for i := 1 to j-1 do
    begin
      flag := Arr[i, j] = Arr[j, i];
      if not flag then
        break;
    end;
  IsSymmetry := flag;
end;

begin
  // Инициализация массива
  ...

  case IsSymmetry(Matrix) of
    true:   writeln('Массив симметричен');
    false:  writeln('Массив не симметричен');
  end;
  readln;
end.
MalexG вне форума Ответить с цитированием
Старый 17.11.2008, 19:47   #6
ruslan09-93
 
Регистрация: 14.11.2008
Сообщений: 5
По умолчанию

Цитата:
Сообщение от MalexG Посмотреть сообщение
Код:
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  N = 10;  // Размерность массива
type
  TArr = array[0..N-1, 0..N-1] of word;

var
  Matrix: TArr;

function IsSymmetry(Arr: TArr): boolean;
var
  i, j: byte;
  flag: boolean;
begin
  flag := true;
  for j := 2 to N-1 do
    for i := 1 to j-1 do
    begin
      flag := Arr[i, j] = Arr[j, i];
      if not flag then
        break;
    end;
  IsSymmetry := flag;
end;

begin
  // Инициализация массива
  ...

  case IsSymmetry(Matrix) of
    true:   writeln('Массив симметричен');
    false:  writeln('Массив не симметричен');
  end;
  readln;
end.


большое спасибо))) ты меня просто спас
ruslan09-93 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
народ помогите написать прогу Jeksik Помощь студентам 2 04.11.2008 19:53
Народ помогите написать программы......очень нужно( shket_misha Фриланс 7 31.08.2008 22:47
Помогите написать программу KHAKER Помощь студентам 1 31.10.2007 18:34