Форум программистов, компьютерный форум CyberForum.ru

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 14, средняя оценка - 4.79
Seo-optimist
2 / 2 / 0
Регистрация: 04.12.2009
Сообщений: 95
#1

Алгоритмы обработки двумерных массивов. - Delphi

31.12.2009, 13:46. Просмотров 1728. Ответов 12
Метки нет (Все метки)

Здравствуйте, помогите решить 3 задачи, буду очень Вам благодарен. Нужно сделать в делфи с формой, буду очень признателен, если кинете сразу в файле. Спасибо.
Всех с наступающим Новым Годом!

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

Найти минимальный элемент главной диагонали и номер строки, в которой этот элемент располагается. Обнулить все элементы этой строки.
Задан двухмерный массив целых чисел A размером N на M. Найти: сумму элементов, расположенных на главной диагонали.
Ввести строку символов, если ее длина четная, удалить 2 первых и 2 последних символа.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.12.2009, 13:46     Алгоритмы обработки двумерных массивов.
Посмотрите здесь:

Алгоритмы обработки двумерных массивов - Delphi
Задан двухмерный массив целых чисел A размером N на M. Найти: произведение элементов, расположенных на главной диагонали. Напишите...

Алгоритмы обработки двумерных массивов - Delphi
Определить наименьшую из сумм элементов каждой строки матрицы (i=1,...,5, j=1,…3). Обьясните как решать плз. Добавлено через 29...

Алгоритмы обработки одномерных массивов - Delphi
Здраствуйте, помогите решить задачу: произведение элементов массива, расположенных между максимальным и минимальным элементами. ...

Алгоритмы обработки одномерных массивов - Delphi
Вычислить произведение отрицательных элементов массива Yi (i=1, ... 15) . стоящих на нечетных местах.Помогите плз решить буду оч благодарен

Алгоритмы обработки одномерных массивов - Delphi
Дан одномерный целочисленный массив. Найти сумму элементов массива, расположенных между первым и последним нулевыми элементами. Обьясните...

Копирование массивов двумерных - Delphi
Добрый день. Ситуация наверно банальная, но возникла ошибка Incompatible types при копировании одного двум. массива в другой. var ...

После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Inadequate
Retired
7706 / 2566 / 183
Регистрация: 17.10.2009
Сообщений: 5,106
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
Модератор
51538 / 39469 / 12997
Регистрация: 18.05.2008
Сообщений: 90,162
01.01.2010, 15:58     Алгоритмы обработки двумерных массивов. #3
Поскольку в задании указано
все элементы которой различны.
в проекте реализовал рандомный ввод не повторяющихся элементов.
Во, написал, а проект не приложил.
Вложения
Тип файла: rar Обнулить строку.rar (190.1 Кб, 17 просмотров)
deathNC
1885 / 999 / 27
Регистрация: 08.12.2009
Сообщений: 2,795
Записей в блоге: 2
02.01.2010, 22:39     Алгоритмы обработки двумерных массивов. #4
Вот, юзай первую задачку... сообщай, если что не так...

и пиши в тему, а не ко мне в сообщения... будем обсуждать все неполадки прямо тут, в теме...
другие ведь тоже хотят знать что к чему!!!
Вложения
Тип файла: rar Алгоритмы обработки двумерных массивов.rar (7.6 Кб, 36 просмотров)
deathNC
1885 / 999 / 27
Регистрация: 08.12.2009
Сообщений: 2,795
Записей в блоге: 2
02.01.2010, 22:39     Алгоритмы обработки двумерных массивов. #5
Я недавно проснулся (у меня пол второго ночи), поэтому отписываюсь и делаю всё только ночью...
deathNC
1885 / 999 / 27
Регистрация: 08.12.2009
Сообщений: 2,795
Записей в блоге: 2
02.01.2010, 23:01     Алгоритмы обработки двумерных массивов. #6
Вот и третье задание:
Вложения
Тип файла: rar Strings.rar (5.9 Кб, 20 просмотров)
deathNC
1885 / 999 / 27
Регистрация: 08.12.2009
Сообщений: 2,795
Записей в блоге: 2
02.01.2010, 23:22     Алгоритмы обработки двумерных массивов. #7
Я вот поразмышлял... некоторые говорят, что задание некорректно - ну нет главной диагонали в неквадратной матрице... вот решай:
1. я пишу проект с квадратной матрицей, и забиваю на то, что в условии её размеры MxN...
2. Ты выбираешь вариант от сюда:
толи считать, что диагональ будет всё равно считаться от квадрата (Matrix 1), либо MaTRIX 2:
Миниатюры
Алгоритмы обработки двумерных массивов.  
Inadequate
Retired
7706 / 2566 / 183
Регистрация: 17.10.2009
Сообщений: 5,106
02.01.2010, 23:35     Алгоритмы обработки двумерных массивов. #8
deathNC, главная диагональ существует только у квадратной матрицы
deathNC
1885 / 999 / 27
Регистрация: 08.12.2009
Сообщений: 2,795
Записей в блоге: 2
02.01.2010, 23:42     Алгоритмы обработки двумерных массивов. #9
Цитата Сообщение от Inadequate Посмотреть сообщение
deathNC, главная диагональ существует только у квадратной матрицы
А я не отрицаю (как ни как немного изучаю Линейную Алгебру)... но ведь придурки такие задания придумывают, вот и через задницу им всё и выполнить!!!)))
Inadequate
Retired
7706 / 2566 / 183
Регистрация: 17.10.2009
Сообщений: 5,106
02.01.2010, 23:46     Алгоритмы обработки двумерных массивов. #10
Цитата Сообщение от deathNC Посмотреть сообщение
но ведь придурки такие задания придумывают, вот и через задницу

Не по теме:

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

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

Не по теме:

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

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

хотя я написал так как они и есть...
deathNC
1885 / 999 / 27
Регистрация: 08.12.2009
Сообщений: 2,795
Записей в блоге: 2
05.01.2010, 10:52     Алгоритмы обработки двумерных массивов. #12
Так что с оставшейся задачкой делать? Меня смущает некорректнось условий...
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.01.2010, 11:01     Алгоритмы обработки двумерных массивов.
Еще ссылки по теме:

Сортировка двумерных массивов - Delphi
Привет:) Объясните мне пожалуйста самый простой способ сортировки многомерных массивов в StringGrid

Структура построения двумерных массивов - Delphi
Не так давно решил занятся программированием, но к сожалению начитавшись разных книг в голове осталась какая то каша, с которой не...

Алгоритмы обработки строк - Delphi
Ввести строку символов, если ее длина &gt;10 - удалить все цифры. Подскажите как решить

Алгоритмы обработки строк - Delphi
Здравствуйте. Помогите решить еще одну задачу, буду очень благодарен… осталось всего 3 сделать, и все сдано, 2 сам доделаю, а одну не как...


Искать еще темы с ответами

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru