Форум программистов, компьютерный форум CyberForum.ru
CyberForum.ru - форум программистов и сисадминов > > >
Восстановить пароль Регистрация
 
Seo-optimist
Форумчанин
2 / 2 / 0
Регистрация: 04.12.2009
Сообщений: 95
31.12.2009, 13:46     Алгоритмы обработки двумерных массивов.   #1
Здравствуйте, помогите решить 3 задачи, буду очень Вам благодарен. Нужно сделать в делфи с формой, буду очень признателен, если кинете сразу в файле. Спасибо.
Всех с наступающим Новым Годом!

Дана целочисленная квадратная матрица порядка 4, все элементы которой различны.

Найти минимальный элемент главной диагонали и номер строки, в которой этот элемент располагается. Обнулить все элементы этой строки.
Задан двухмерный массив целых чисел A размером N на M. Найти: сумму элементов, расположенных на главной диагонали.
Ввести строку символов, если ее длина четная, удалить 2 первых и 2 последних символа.
AdAgent
Объявления
31.12.2009, 13:46    Алгоритмы обработки двумерных массивов.
Inadequate
Retired
7683 / 2577 / 63
Регистрация: 17.10.2009
Сообщений: 5,112
31.12.2009, 15:03     Алгоритмы обработки двумерных массивов.   #2
Цитата Сообщение от Seo-optimist Посмотреть сообщение
Нужно сделать в делфи с формой
Это уж Вы самостоятельно переделаете.
Цитата Сообщение от Seo-optimist Посмотреть сообщение
Дана целочисленная квадратная матрица порядка 4, все элементы которой различны. Найти минимальный элемент главной диагонали и номер строки, в которой этот элемент располагается. Обнулить все элементы этой строки.
Вот код для консоли
Код Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
const
  n=4;{размер матрицы}
var
  a:array [1..n,1..n] of integer;
  i,j,min:integer;
begin
  try
    {задаем и выводим изначальную матрицу}
    writeln('Matrix:');
    for i:=1 to n do
    begin
      for j:=1 to n do
      begin
        a[i,j]:=random(8)-4;
        write(a[i,j]:2,' ')
      end;
      writeln
    end;
    {находим минимум главной диагонали}
    min:=1;
    for i:=2 to n do
      if a[i,i]<a[min,min] then
        min:=i;
    {обнуляем нужную строку}
    for j:=1 to n do
      a[min,j]:=0;
    {выводим полученную матрицу}
    writeln('Result:');
    for i:=1 to n do
    begin
      for j:=1 to n do
        write(a[i,j]:2,' ');
      writeln
    end;
    readln
  except
    on E:Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;
end.
Добавлено через 4 минуты
Цитата Сообщение от Seo-optimist Посмотреть сообщение
Задан двухмерный массив целых чисел A размером N на M. Найти: сумму элементов, расположенных на главной диагонали
Вот это условие некорректно. Так как главная диагональ существует только у квадратных матриц. в Вашем случае данная задача верна при N=M, а если то правильнее писать "дана квадратная матрица А размером N". Сам код будет немного отличаться от предыдущего
Код Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
const
  n=4;{размер матрицы}
var
  a:array [1..n,1..n] of integer;
  i,j,sum:integer;
begin
  try
    {задаем и выводим изначальную матрицу}
    writeln('Matrix:');
    for i:=1 to n do
    begin
      for j:=1 to n do
      begin
        a[i,j]:=random(8)-4;
        if i=j then
          inc(sum,a[i,j]);
        write(a[i,j]:2,' ')
      end;
      writeln
    end;
    WriteLn('Result: ',sum);
    readln
  except
    on E:Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;
end.
Добавлено через 4 минуты
Цитата Сообщение от Seo-optimist Посмотреть сообщение
Ввести строку символов, если ее длина четная, удалить 2 первых и 2 последних символа
Код Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var
  s:string;
begin
  try
    readln(s);
    if Odd(Length(s)) then
    begin
      delete(s,1,2);
      SetLength(s,Length(s)-2)
    end;
    Writeln(s);
    readln
  except
    on E:Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;
end.
или так
Код Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var
  s:string;
begin
  try
    readln(s);
    if Odd(Length(s)) then
      s:=Copy(s,3,Length(s)-4);
    Writeln(s);
    readln
  except
    on E:Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;
end.
Puporev
Модератор
43085 / 31456 / 2103
Регистрация: 18.05.2008
Сообщений: 67,307
01.01.2010, 15:58     Алгоритмы обработки двумерных массивов.   #3
Поскольку в задании указано
все элементы которой различны.
в проекте реализовал рандомный ввод не повторяющихся элементов.
Во, написал, а проект не приложил.
Вложения
Тип файла: rar Обнулить строку.rar (190.1 Кб, 17 просмотров)
deathNC
Форумчанин
1862 / 980 / 14
Регистрация: 08.12.2009
Сообщений: 2,795
Записей в блоге: 2
02.01.2010, 22:39     Алгоритмы обработки двумерных массивов.   #4
Вот, юзай первую задачку... сообщай, если что не так...

и пиши в тему, а не ко мне в сообщения... будем обсуждать все неполадки прямо тут, в теме...
другие ведь тоже хотят знать что к чему!!!
Вложения
Тип файла: rar Алгоритмы обработки двумерных массивов.rar (7.6 Кб, 33 просмотров)
deathNC
Форумчанин
1862 / 980 / 14
Регистрация: 08.12.2009
Сообщений: 2,795
Записей в блоге: 2
02.01.2010, 22:39     Алгоритмы обработки двумерных массивов.   #5
Я недавно проснулся (у меня пол второго ночи), поэтому отписываюсь и делаю всё только ночью...
AdAgent
Объявления
02.01.2010, 22:39    Алгоритмы обработки двумерных массивов.
deathNC
Форумчанин
1862 / 980 / 14
Регистрация: 08.12.2009
Сообщений: 2,795
Записей в блоге: 2
02.01.2010, 23:01     Алгоритмы обработки двумерных массивов.   #6
Вот и третье задание:
Вложения
Тип файла: rar Strings.rar (5.9 Кб, 19 просмотров)
deathNC
Форумчанин
1862 / 980 / 14
Регистрация: 08.12.2009
Сообщений: 2,795
Записей в блоге: 2
02.01.2010, 23:22     Алгоритмы обработки двумерных массивов.   #7
Я вот поразмышлял... некоторые говорят, что задание некорректно - ну нет главной диагонали в неквадратной матрице... вот решай:
1. я пишу проект с квадратной матрицей, и забиваю на то, что в условии её размеры MxN...
2. Ты выбираешь вариант от сюда:
толи считать, что диагональ будет всё равно считаться от квадрата (Matrix 1), либо MaTRIX 2:
Миниатюры
Алгоритмы обработки двумерных массивов.  
Inadequate
Retired
7683 / 2577 / 63
Регистрация: 17.10.2009
Сообщений: 5,112
02.01.2010, 23:35     Алгоритмы обработки двумерных массивов.   #8
deathNC, главная диагональ существует только у квадратной матрицы
deathNC
Форумчанин
1862 / 980 / 14
Регистрация: 08.12.2009
Сообщений: 2,795
Записей в блоге: 2
02.01.2010, 23:42     Алгоритмы обработки двумерных массивов.   #9
Цитата Сообщение от Inadequate Посмотреть сообщение
deathNC, главная диагональ существует только у квадратной матрицы
А я не отрицаю (как ни как немного изучаю Линейную Алгебру)... но ведь придурки такие задания придумывают, вот и через задницу им всё и выполнить!!!)))
Inadequate
Retired
7683 / 2577 / 63
Регистрация: 17.10.2009
Сообщений: 5,112
02.01.2010, 23:46     Алгоритмы обработки двумерных массивов.   #10
Цитата Сообщение от deathNC Посмотреть сообщение
но ведь придурки такие задания придумывают, вот и через задницу

Не по теме:

ну зачем же так грубо... здесь же не форум грузчиков...

deathNC
Форумчанин
1862 / 980 / 14
Регистрация: 08.12.2009
Сообщений: 2,795
Записей в блоге: 2
02.01.2010, 23:54     Алгоритмы обработки двумерных массивов.   #11
Цитата Сообщение от Inadequate Посмотреть сообщение

Не по теме:

ну зачем же так грубо... здесь же не форум грузчиков...

ой... извиняюсь, если что лишнее написал... после нового года как никак...

хотя я написал так как они и есть...
deathNC
Форумчанин
1862 / 980 / 14
Регистрация: 08.12.2009
Сообщений: 2,795
Записей в блоге: 2
05.01.2010, 10:52     Алгоритмы обработки двумерных массивов.   #12
Так что с оставшейся задачкой делать? Меня смущает некорректнось условий...
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.01.2010, 11:01    Алгоритмы обработки двумерных массивов.

Еще ссылки по теме:

Delphi 6. Обработка двумерных массивов

Delphi Сортировка двумерных массивов

Delphi Обработка двумерных массивов

Delphi Обработка двумерных массивов

Seo-optimist
Форумчанин
2 / 2 / 0
Регистрация: 04.12.2009
Сообщений: 95
05.01.2010, 11:01  [ТС]     Алгоритмы обработки двумерных массивов.   #13
deathNC, спасибо. Думаю тогда ничего не нужно. Спасибо еще раз.
Yandex
Объявления
05.01.2010, 11:01    Алгоритмы обработки двумерных массивов.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему
Опции темы

Текущее время: 05:46. Часовой пояс GMT +4.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.