VPF::[Delphi] Две программы: на массив и матрицу

Mandarinka

Дата 7.10.2008, 07:57 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 6.10.2008
Где: КрАсНоЯрСк

Репутация: нет
Всего: нет

Всем привет.
У меня тут незадача - нужно написать две программы в среде Делфи.. Они легонькие, может кто помочь? smile

Пожалуйста. smile

Вот задачи:
1. Найти максимальный элемент одномерного массива А. Размерность массива А задет пользователь. Элементы массива А заполнить с помощью генератора случайных чисел.
2. Дополнить матрицу строкой, содержащей максимумы по столбцам. Размерность исходной матрицы задает пользователь. Матрицу заполнить при помощи генератора случайных чисел.
Если можно то с комментариями... ;)

Это сообщение отредактировал(а) Mandarinka - 7.10.2008, 07:58

Данкинг

Дата 7.10.2008, 10:18 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: нет
Всего: 130

Это в "центр помощи". smile

--------------------

There's nothing left but silent epitaphs.

THandle

Дата 7.10.2008, 13:09 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 30
Всего: 372

Цитата(Mandarinka @ 7.10.2008, 08:57

)

1. Найти максимальный элемент одномерного массива А. Размерность массива А задет пользователь. Элементы массива А заполнить с помощью генератора случайных чисел.

http://forum.vingrad.ru/faq/topic-201072.html

Постараюсь найти время сегодня-завтра - написать. Там дел то на 15 минут...

Данкинг, а мы где? smile

Данкинг

Дата 7.10.2008, 22:18 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: нет
Всего: 130

Цитата(THandle @ 7.10.2008, 14:09

)

Данкинг, а мы где?

Это было в "разном". smile

--------------------

There's nothing left but silent epitaphs.

Mandarinka

Дата 8.10.2008, 16:01 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 6.10.2008
Где: КрАсНоЯрСк

Репутация: нет
Всего: нет

THandle - буду ждать smile

InMist

Дата 9.10.2008, 08:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 14.5.2008

Репутация: нет
Всего: нет

если что я напишу smile

Mandarinka

Дата 9.10.2008, 16:19 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 6.10.2008
Где: КрАсНоЯрСк

Репутация: нет
Всего: нет

InMist - обе можешь написать? ;)

mr.Anderson

Дата 9.10.2008, 16:53 (ссылка)

(нет голосов)

Загрузка ...

iOS Lead Developer

Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: 16
Всего: 128

Первая задача:

Код


program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
 a : Array of Integer;
 i : Integer;
 l : Integer;
 m : Integer;

begin
 WriteLn('Enter size of array: ');
 ReadLn(l);

 setLength(a, l);

 Randomize();
 //честно заполняем
 for i:=Low(a) to High(a) do
  a[i] := Random(100);

 //начинаем искать максимум
 m := a[Low(a)];

 for i:=Low(a) to High(a) do
  if (a[i] > m) then
   m := a[i];

 WriteLn(m);
end.

Добавлено через 8 минут и 28 секунд
Во второй, честно говоря, не знаю, как можно при помощи SetLength задать двумерный массив.

--------------------

THandle

Дата 9.10.2008, 17:15 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 30
Всего: 372

mr.Anderson, оформление не лучшее, непонятно за каким сусликом тут SysUtils, юзверь так результа и не увидет.

Код


program Project1;
{$APPTYPE CONSOLE}

var
 a: Array of Integer;
 i: Integer;
 l: Integer;
 m: Integer;
begin
 WriteLn('Enter size of array: ');
 ReadLn(l);
 SetLength(a, l);
 Randomize;
 //честно заполняем
 for i := Low(a) to High(a) do
   a[i] := Random(100);
 //начинаем искать максимум
 m := a[Low(a)];
 for i := Low(a) to High(a) do
   if (a[i] > m) then
     m := a[i];
 WriteLn(m);
 ReadLn;
end.

Вторая задача:

Код


program Project1;

{$APPTYPE CONSOLE}

var
  { Матрица }
  a: Array Of Array Of Integer;
  { Размер матрицы }
  MatrixSizeX, MatrixSizeY: Integer;
  { Переменные-счетчики циклов }
  I, J: Integer;

function GetMax(X: Integer): Integer;
var
  N: Integer;
begin
  { Функция находящяя максимумы }
  Result := a[X, 0];
  for N := 1 to MatrixSizeY - 2 do
    if a[X, N] > Result then
      Result := A[X, N];
end;

procedure WriteArray;
begin
  { Процедура выводящая всю матрицу на экран }
  for I := 0 to MatrixSizeX - 1 do
    for J := 0 to MatrixSizeY - 1 do
      WriteLn('a[', I, ', ', J, '] = ', a[I, J], '  ');
end;

begin
  { Вводим размер матрицы }
  WriteLn('Enter Matrix Size (x, y): ');
  ReadLn(MatrixSizeX, MatrixSizeY);
  { Устанавливаем размер матрицы }
  SetLength(a, MatrixSizeX, MatrixSizeY + 1);
  { Заполняем матрицу случайными числами }
  Randomize;
  for I := 0 to MatrixSizeX - 1 do
    for J := 0 to MatrixSizeY - 2 do
      a[I, J] := Random(100);
  { Дополняем матрицу строкой с максимами }
  for I := 0 to MatrixSizeX - 1 do
    a[I , MatrixSizeY - 1] := GetMax(I);
  { Выводим результат на экран }
  WriteArray;
  ReadLn;
end.

Цитата(Mandarinka @ 8.10.2008, 17:01

)

THandle - буду ждать

Если я сказал что напишу - значит я сдохну, но напишу все равно.

mr.Anderson

Дата 9.10.2008, 17:28 (ссылка)

(нет голосов)

Загрузка ...

iOS Lead Developer

Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: 16
Всего: 128

Ща я начну спорить.

Цитата

оформление не лучшее,

Это где это?

Цитата

непонятно за каким сусликом тут SysUtils

Мешает? Ну можно убрать, конечно, только зачем. Экономии толковой нет.

Цитата

юзверь так результа и не увидет

Ага, у меня в дельфе так и не пашет Readln в конце программы. Поэтому не ставлю и смотрю через дебаггер. Но тут логично, если у кого работает - то лучше поставить.

--------------------

THandle

Дата 9.10.2008, 17:33 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 30
Всего: 372

mr.Anderson, см отступы в коде. Как было и как я сделал.

Цитата(mr.Anderson @ 9.10.2008, 18:28

)

Мешает? Ну можно убрать, конечно, только зачем. Экономии толковой нет.

Ни извините (тут идет какое нить слово)!!!!!

Delphi 2009.

Размер с SysUtils - 84 кб.
Без - 18.

Разницы нет?

Цитата(mr.Anderson @ 9.10.2008, 18:28

)

Delphi 7, 2006, 2007, 2009. ReadLn работает.

mr.Anderson

Дата 9.10.2008, 17:41 (ссылка)

(нет голосов)

Загрузка ...

iOS Lead Developer

Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: 16
Всего: 128

Цитата

см отступы в коде

А мне твой код вообще меньше нравится. Я люблю отделять логические блоки друг от друга. И не комментами, которые еще больше забивают экран текстом, а нормальными пропусками строк. И на эту тему спорить со мной не надо, мне так удобнее. Я не люблю читать сплошную мешанину. Так это не учитывается.

Цитата

Размер с SysUtils - 84 кб.
Без - 18.

Это существенно? Нет, правда что ли? Если да, уберите. Я никогда не убирал, он ставится по умолчанию, ну, и пусть стоит. Лишние 60 кб погоды не сделают.

Цитата

Delphi 7, 2006, 2007, 2009. ReadLn работает.

Delphi 7, ReadLn не работает. Может, только у меня, но именно поэтому я его и не поставил.

Все, закончили дискуссию. Речь идет о правильном, корректно работающем и понятном коде, а не о взаимных придирках к оформлению и паре десятков сэкономленных килобайт.

--------------------

THandle

Дата 9.10.2008, 17:44 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 30
Всего: 372

mr.Anderson, ладно. Не буду продолжать спор. Ибо бессмысленно, да и придирки мелкие.

Добавлено через 53 секунды

Цитата(mr.Anderson @ 9.10.2008, 18:41

)

Delphi 7, ReadLn не работает. Может, только у меня, но именно поэтому я его и не поставил.

Работает

ЗЫ: это так. Для народа smile

Mandarinka

Дата 9.10.2008, 18:58 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 6.10.2008
Где: КрАсНоЯрСк

Репутация: нет
Всего: нет

Ребята, всем большое спасибо smile

Я тут смотрю вы так заинтересовались, может вы мне еще две задачки напишите..? Они только чуть позапутаннее будут. smile

mr.Anderson

Дата 9.10.2008, 19:13 (ссылка)

(нет голосов)

Загрузка ...

iOS Lead Developer

Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: 16
Всего: 128

Mandarinka, пожалуйста, но вот такого не надо. Мы не заинтересовались, мы просто оказали помощь. В меру своих сил и своего свободного времени. Нам эти задачи неинтересны, мы уже их нарешались выше крыши и заняты куда более серьезными делами. Поэтому мы можем помочь, но не надо превращать это в бесплатную эксплуатацию. Мы не делатели домашних работ, а помощники в экстренных ситуациях.

Это сообщение отредактировал(а) mr.Anderson - 9.10.2008, 19:13

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »