Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Скалярное произведение строки и столбца

Автор: St4vr1dze 26.5.2009, 19:11

Помогите пожалуйста решить задачу на Delphi..
Задача такая: Дана вещественная матрица размерности 7х7, эллементы которой различны, найти скалярное произведение строки с найбольшим эллементом и столбца с найменьшим...

Автор: kami 26.5.2009, 19:33

Класс.
А в чем вопрос?
Где код, который отрабатывает неправильно?
Или нужно полностью код накатать? Так за таким не сюда.

Автор: St4vr1dze 26.5.2009, 20:18

Цитата(kami @ 26.5.2009, 19:33)

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

Код


type Matrix = array[1..7,1..7] of integer;
var min, max, imax, jmin, i, j, res: integer;
     m: Matrix;
begin
for i := 1 to 7 do
  for j := 1 to 7 do
    read(m[i, j]);
{ввод матрицы}
max := m[1, 1]; min := m[1, 1]; imax := 1; jmin := 1;
for i := 1 to 7 do
  for j := 1 to 7 do
    begin
    if m[i, j] > max then begin max := m[i, j]; imax := i end;
    if m[i, j] < min then begin min := m[i, j]; jmin := j end;
    end;
{нашли нужные строку и столбец}
res := 0;
for i := 1 to 7 do res := res + m[imax, i] * m[i, jmin];
writeln(res);
end;

Автор: kami 26.5.2009, 20:27

И?
Код на первый взгляд вполне рабочий.
Хоть сейчас создавай в Delphi консольное приложение (File>New>Other>Console application) и вставляй этот код туда.
или нужно именно GUI, то есть приложение с окошками?

Автор: St4vr1dze 26.5.2009, 21:20

Цитата(kami @ 26.5.2009, 20:27)

Если делать в консольном приложении то выдает ошибку "Runtime error 6 at 00403AB2"
Но ты правильно сказал мне надо именно с окошками делать..

Автор: kami 26.5.2009, 21:37

мда?
а у меня отрабатывает без ошибок. Отлично и великолепно.

Цитата(St4vr1dze @ 26.5.2009, 21:20

)

мне надо именно с окошками делать

С учетом

Цитата(St4vr1dze @ 26.5.2009, 20:18

)

делфи вообще ничего толком не знаю, кроме эллементарных лейблов, баттоно

Сейчас подумаю, минут через 20 отпишусь.

Автор: St4vr1dze 26.5.2009, 21:47

Цитата(kami @ 26.5.2009, 21:37)

мда?
а у меня отрабатывает без ошибок. Отлично и великолепно.

Цитата(St4vr1dze @ 26.5.2009, 21:20

)

мне надо именно с окошками делать

С учетом

Цитата(St4vr1dze @ 26.5.2009, 20:18

)

делфи вообще ничего толком не знаю, кроме эллементарных лейблов, баттоно

Сейчас подумаю, минут через 20 отпишусь.

Спасибо, за помощь, буду ждать, просто нам делфи убого преподавали один семестр всего, давали практические на половину решенные, все расписано- что куда вставлять, какой код для какого окна или кнопки.. наверно самое серьёзно что было это вставлять БД из Аксеса, до этого никаких подобные решений не проходили...
а теперь дали задачу на практику, которую я делал на Джаве зимой и вот сижу мучаюсь с делфи..

Автор: Keeper89 26.5.2009, 22:23

Цитата(St4vr1dze @ 26.5.2009, 22:47

)

Что же за ВУЗ такой замечательный smile

Берите StringGrid, создавайте массив 7x7 и считайте ваше произведение.

Автор: kami 26.5.2009, 22:23

ой-е...
Вместо русских комментариев идут крякозябры.
хотел код здесь выложить.

Так, с оформлением разберешься сам, код - во вложении.

З.Ы. И что это на меня нашло - готовый код давать...

Автор: kami 26.5.2009, 22:25

Цитата(Keeper89 @ 26.5.2009, 22:23

)

Что же за ВУЗ такой замечательный

Непрофильное это дело - программирование.
Вот у меня в вузе (в расшифровке - военно-учебном заведении) вообще паскалем ограничивались. И ничего - все живы.

Добавлено через 1 минуту и 10 секунд
Чего-то я недоперепонял...
я второй раз файл не выкладывал, это 100%. Откуда он появился?

Цитата(kami @ 26.5.2009, 22:25

)

Присоединённый файл ( Кол-во скачиваний: 0 )

Автор: Keeper89 26.5.2009, 22:27

Цитата(kami @ 26.5.2009, 23:25

)

Непрофильное это дело - программирование.

Просто я знаю специальности, где программирование на завтрак. обед и ужин. Поэтому и спрашиваю.
А за архив smile

, еще и с такими комментариями.

Автор: Данкинг 26.5.2009, 22:28

Цитата(kami @ 26.5.2009, 23:23

)

Вместо русских комментариев идут крякозябры.

Переключи раскладку на кириллицу и копируй текст. smile

Автор: kami 26.5.2009, 22:35

Цитата(Keeper89 @ 26.5.2009, 22:27

)

Просто я знаю специальности, где программирование на завтрак. обед и ужин.

Не спорю, знаю такое.

Цитата(Keeper89 @ 26.5.2009, 22:27

)

ще и с такими комментариями.

Ну дык...

Цитата(St4vr1dze @ 26.5.2009, 20:18

)

в делфи вообще ничего толком не знаю

да и настроение хорошее smile

Цитата(Данкинг @ 26.5.2009, 22:28

)

Переключи раскладку на кириллицу и копируй текст

Хоть кириллица, хоть латиница - сугубо одно... в смысле моно... в общем, одинаково. smile

На всякий пожарный - юзаю оперу.

Автор: St4vr1dze 26.5.2009, 22:41

Цитата(kami @ 26.5.2009, 22:23)

З.Ы. И что это на меня нашло - готовый код давать...

Оооооеее.... Спасибо большое!! Очень благодарен!!!
Наверно то, что скоро лето smile

Автор: Данкинг 26.5.2009, 22:42

Цитата(kami @ 26.5.2009, 23:35

)

Хоть кириллица, хоть латиница - сугубо одно... в смысле моно... в общем, одинаково.

Ну не знаю, вот у меня скопировалось из FireFox'а, но суть не в браузере же:

Код


procedure TForm1.FormActivate(Sender: TObject); ///это крутая процедура
begin///это начало её

Автор: kami 26.5.2009, 22:50

Цитата(Данкинг @ 26.5.2009, 22:42

)

вот у меня скопировалось из FireFox'а, но суть не в браузере же

Значит, кодировка не та.
У меня по умолчанию win1251 в браузере, а в Delphi не нашел, где это. Но это уже оффтопик.

Автор: St4vr1dze 26.5.2009, 22:51

Просто нет слов)) ещё раз спасибо, комментарии супер, программа работает отлично!

Автор: kami 26.5.2009, 22:53

Цитата(St4vr1dze @ 26.5.2009, 22:51

)

программа работает отлично!

Ну и поставь галочку, что вопрос закрыт.