Форум программистов, компьютерный форум CyberForum.ru Форум программистов | Компьютерный форум | Форум web-программистов | Форум по электронике и бытовой технике | Форум о софте | Научный форум | Карьера и бизнес
CyberForum.ru - форум программистов и сисадминов > Форум Форум программистов > Форум Delphi > Форум Delphi для начинающих
Восстановить пароль Регистрация

Ответ Создать новую тему
 
31.12.2009, 13:46   #1
Seo-optimist
Форумчанин
Регистрация: 04.12.2009
Сообщений: 95
Репутация: 2 (2)
Алгоритмы обработки двумерных массивов. / Delphi для начинающих

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

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

Найти минимальный элемент главной диагонали и номер строки, в которой этот элемент располагается. Обнулить все элементы этой строки.
Задан двухмерный массив целых чисел A размером N на M. Найти: сумму элементов, расположенных на главной диагонали.
Ввести строку символов, если ее длина четная, удалить 2 первых и 2 последних символа.
31.12.2009, 13:46
AdAgent
Объявления
31.12.2009, 15:03   #2
Inadequate
Retired
Регистрация: 17.10.2009
Сообщений: 5,112
Репутация: 7682 (2576)
Лучшие ответы: 63
Алгоритмы обработки двумерных массивов.

Цитата Сообщение от 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.
Другие темы раздела
Delphi Параметры функции DLL
Суть в следущем. Извлекаю функции из DLL, но параметры ясно понятно не вытаскиваются. Как можно при помощи дизассемблера узнать количество параметров? И ещё есть исходники этих dll на языке C++, но я работаю под Delphi, как их портировать на нужный мне язык программирования(Delphi). Привожу...
Не могу разобраться что ему надо :( Delphi
В программе используется нижеследующий код, но он почему то ругается на строку Exit. Ошибка: Statement expected but expression of type "TBitBtn" found Если строку Exit убираю - вся программа работает отлично, кроме выхода из окна сообщения... зацикливается, если хочешь отмену ввода. А с ним ни в...
01.01.2010, 15:58   #3
Puporev
Модератор
Регистрация: 18.05.2008
Сообщений: 64,862
Репутация: 41984 (30504)
Лучшие ответы: 1,716
Алгоритмы обработки двумерных массивов.

Поскольку в задании указано
все элементы которой различны.
в проекте реализовал рандомный ввод не повторяющихся элементов.
Во, написал, а проект не приложил.
Вложения
Тип файла: rar Обнулить строку.rar (190.1 Кб, 17 просмотров)
02.01.2010, 22:39   #4
deathNC
Форумчанин
Регистрация: 08.12.2009
Сообщений: 2,789
Репутация: 1846 (964)
Записей в блоге: 2
Лучшие ответы: 14
Алгоритмы обработки двумерных массивов.

Вот, юзай первую задачку... сообщай, если что не так...

и пиши в тему, а не ко мне в сообщения... будем обсуждать все неполадки прямо тут, в теме...
другие ведь тоже хотят знать что к чему!!!
Вложения
Тип файла: rar Алгоритмы обработки двумерных массивов.rar (7.6 Кб, 33 просмотров)
02.01.2010, 22:39
AdAgent
Объявления
02.01.2010, 22:39   #5
deathNC
Форумчанин
Регистрация: 08.12.2009
Сообщений: 2,789
Репутация: 1846 (964)
Записей в блоге: 2
Лучшие ответы: 14
Алгоритмы обработки двумерных массивов.

Я недавно проснулся (у меня пол второго ночи), поэтому отписываюсь и делаю всё только ночью...
02.01.2010, 23:01   #6
deathNC
Форумчанин
Регистрация: 08.12.2009
Сообщений: 2,789
Репутация: 1846 (964)
Записей в блоге: 2
Лучшие ответы: 14
Алгоритмы обработки двумерных массивов.

Вот и третье задание:
Вложения
Тип файла: rar Strings.rar (5.9 Кб, 19 просмотров)
02.01.2010, 23:22   #7
deathNC
Форумчанин
Регистрация: 08.12.2009
Сообщений: 2,789
Репутация: 1846 (964)
Записей в блоге: 2
Лучшие ответы: 14
Алгоритмы обработки двумерных массивов.

Я вот поразмышлял... некоторые говорят, что задание некорректно - ну нет главной диагонали в неквадратной матрице... вот решай:
1. я пишу проект с квадратной матрицей, и забиваю на то, что в условии её размеры MxN...
2. Ты выбираешь вариант от сюда:
толи считать, что диагональ будет всё равно считаться от квадрата (Matrix 1), либо MaTRIX 2:
Миниатюры
Алгоритмы обработки двумерных массивов.  
02.01.2010, 23:35   #8
Inadequate
Retired
Регистрация: 17.10.2009
Сообщений: 5,112
Репутация: 7682 (2576)
Лучшие ответы: 63
Алгоритмы обработки двумерных массивов.

deathNC, главная диагональ существует только у квадратной матрицы
02.01.2010, 23:42   #9
deathNC
Форумчанин
Регистрация: 08.12.2009
Сообщений: 2,789
Репутация: 1846 (964)
Записей в блоге: 2
Лучшие ответы: 14
Алгоритмы обработки двумерных массивов.

Цитата Сообщение от Inadequate Посмотреть сообщение
deathNC, главная диагональ существует только у квадратной матрицы
А я не отрицаю (как ни как немного изучаю Линейную Алгебру)... но ведь придурки такие задания придумывают, вот и через задницу им всё и выполнить!!!)))
02.01.2010, 23:46   #10
Inadequate
Retired
Регистрация: 17.10.2009
Сообщений: 5,112
Репутация: 7682 (2576)
Лучшие ответы: 63
Алгоритмы обработки двумерных массивов. / Delphi для начинающих

Цитата Сообщение от deathNC Посмотреть сообщение
но ведь придурки такие задания придумывают, вот и через задницу

Не по теме:

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

02.01.2010, 23:46
Yandex
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Автор Дата
Delphi: Реализация алгоритмов обработки двумерных массивов
Помогите разобраться в задаче. Дана целочисленная квадратная матрица порядка 4, все элементы которой различны. Найти минимальный элемент главной диагонали и номер строки, в которой этот элемент располагается. Обнулить все элементы этой строки.
Delphi для начинающих marikoss 19.12.2010 11:51
Turbo Pascal: Программирование обработки одномерных и двумерных массивов
Непойму как решить ету задачу:wall: Задан массив Х {-12.4,0,12.3, -1,0.01,0,123.3, -18.97,0,0.8, 10.01, -1.2,11.2,12.3,13.6, 0, -5.2,12.3, -111.3, 45.7, -6.7 , 0,2.1}.Упорядочить элементы массива по увеличению
Turbo Pascal Sistemshik 24.10.2010 18:01
Delphi: Алгоритмы обработки двумерных массивов
Задан двухмерный массив целых чисел A размером N на M. Найти: произведение элементов, расположенных на главной диагонали. Напишите решение плз. решить надо в Визуалке
Delphi для начинающих ---->HIGH<---- 18.03.2010 03:39
Delphi: Алгоритмы обработки двумерных массивов
Определить наименьшую из сумм элементов каждой строки матрицы (i=1,...,5, j=1,…3). Обьясните как решать плз. Добавлено через 29 секунд решить надо в Визуал дельфи
Delphi для начинающих ---->HIGH<---- 18.03.2010 02:16
Delphi: . Алгоритмы обработки двумерных массивов
Добрый день. Помогите, пожалуйста решить задачу нужно с формой Дана целочисленная квадратная матрица порядка 4, все элементы которой различны. Найти минимальный элемент главной диагонали и номер строки, в которой этот элемент располагается. Обнулить все элементы этой строки. Спасибо.
Delphi для начинающих Seo-optimist 18.12.2009 12:35
Опции темы

Текущее время: 22:03. Часовой пояс GMT +4.

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.