Форум программистов, компьютерный форум CyberForum.ru Форум программистов | Компьютерный форум | Форум web-программистов | Форум по электронике и бытовой технике | Форум о софте | Научный форум | Карьера и бизнес
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
7682 / 2576 / 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
Модератор
42183 / 30697 / 1786
Регистрация: 18.05.2008
Сообщений: 65,331
01.01.2010, 15:58
  #3
Поскольку в задании указано
все элементы которой различны.
в проекте реализовал рандомный ввод не повторяющихся элементов.
Во, написал, а проект не приложил.
Вложения
Тип файла: rar Обнулить строку.rar (190.1 Кб, 17 просмотров)
deathNC
Форумчанин
1856 / 974 / 14
Регистрация: 08.12.2009
Сообщений: 2,795
Записей в блоге: 2
02.01.2010, 22:39
  #4
Вот, юзай первую задачку... сообщай, если что не так...

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

Не по теме:

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

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

Не по теме:

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

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

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

Похожие темы
Тема Раздел Автор Дата
C++ Программирование алгоритмов обработки двумерных массивов
напишите пожалуйста текст программы. Дан массив М координат точек на плоскости. Найти наибольшее расстоя-ние между этими точками.
С++ для начинающих Василий Конев 05.02.2012 13:51
Delphi Реализация алгоритмов обработки двумерных массивов
Помогите разобраться в задаче. Дана целочисленная квадратная матрица порядка 4, все элементы которой различны. Найти минимальный элемент главной диагонали и номер строки, в которой этот элемент...
Delphi для начинающих marikoss 19.12.2010 11:51
Pascal алгоритм обработки одномерных и двумерных массивов
Цель работы: Закрепить умение составлять алгоритмы обработки одномерных и двумерных массивов с использованием вспомогательных процедур и функций. Ребятки, помогайте!!!!!!!!!!!!!!!!!!!!:( ...
Pascal (Паскаль) mahtbl 01.11.2010 13:49
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
Delphi Алгоритмы обработки массивов
задан массив целых чисел A(n) n<=200. Зделать програму каторая переписывает все числа, каторые повтаряютса з массиву А(n) в массив В(n) по однаму разу. спасибо!
Delphi для начинающих Tariksifon 05.04.2009 19:21
Опции темы

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

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