Модераторы: Snowy, MetalFan, bems, Poseidon

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Скалярное произведение строки и столбца, Программа в Delphi 
V
    Опции темы
St4vr1dze
Дата 26.5.2009, 19:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Помогите пожалуйста решить задачу на Delphi..
Задача такая: Дана вещественная матрица размерности 7х7, эллементы которой различны, найти скалярное произведение строки с найбольшим эллементом и столбца с найменьшим...
PM MAIL   Вверх
kami
Дата 26.5.2009, 19:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 22
Всего: 72
Класс.
А в чем вопрос?
Где код, который отрабатывает неправильно?
Или нужно полностью код накатать? Так за таким не сюда.
PM MAIL WWW   Вверх
St4vr1dze
Дата 26.5.2009, 20:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Цитата(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;


Это сообщение отредактировал(а) St4vr1dze - 26.5.2009, 20:20
PM MAIL   Вверх
kami
Дата 26.5.2009, 20:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 22
Всего: 72
И?
Код на первый взгляд вполне рабочий.
Хоть сейчас создавай в Delphi консольное приложение (File>New>Other>Console application) и вставляй этот код туда.
или нужно именно GUI, то есть приложение с окошками?
PM MAIL WWW   Вверх
St4vr1dze
Дата 26.5.2009, 21:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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

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

Это сообщение отредактировал(а) St4vr1dze - 26.5.2009, 21:23
PM MAIL   Вверх
kami
Дата 26.5.2009, 21:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 22
Всего: 72
мда?
а у меня отрабатывает без ошибок. Отлично и великолепно.

Цитата(St4vr1dze @  26.5.2009,  21:20 Найти цитируемый пост)
мне надо именно с окошками делать

С учетом
Цитата(St4vr1dze @  26.5.2009,  20:18 Найти цитируемый пост)
делфи вообще ничего толком не знаю, кроме эллементарных лейблов, баттоно

Сейчас подумаю, минут через 20 отпишусь.
PM MAIL WWW   Вверх
St4vr1dze
Дата 26.5.2009, 21:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Цитата(kami @ 26.5.2009,  21:37)
мда?
а у меня отрабатывает без ошибок. Отлично и великолепно.

Цитата(St4vr1dze @  26.5.2009,  21:20 Найти цитируемый пост)
мне надо именно с окошками делать

С учетом
Цитата(St4vr1dze @  26.5.2009,  20:18 Найти цитируемый пост)
делфи вообще ничего толком не знаю, кроме эллементарных лейблов, баттоно

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

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

Это сообщение отредактировал(а) St4vr1dze - 26.5.2009, 21:48
PM MAIL   Вверх
Keeper89
Дата 26.5.2009, 22:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58
Цитата(St4vr1dze @  26.5.2009,  22:47 Найти цитируемый пост)
Спасибо, за помощь, буду ждать, просто нам делфи убого преподавали один семестр всего, давали практические на половину решенные, все расписано- что куда вставлять, какой код для какого окна или кнопки.. наверно самое серьёзно что было это вставлять БД из Аксеса, до этого никаких подобные решений не проходили... 
а теперь дали задачу на практику, которую я делал на Джаве зимой и вот сижу мучаюсь с делфи.. 

Что же за ВУЗ такой замечательный smile
Берите StringGrid, создавайте массив 7x7 и считайте ваше произведение.


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
kami
Дата 26.5.2009, 22:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 22
Всего: 72
ой-е...
Вместо русских комментариев идут крякозябры.
хотел код здесь выложить.

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

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

Присоединённый файл ( Кол-во скачиваний: 10 )
Присоединённый файл  Matrix.zip 2,26 Kb
PM MAIL WWW   Вверх
kami
Дата 26.5.2009, 22:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 22
Всего: 72
Цитата(Keeper89 @  26.5.2009,  22:23 Найти цитируемый пост)
Что же за ВУЗ такой замечательный

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

Добавлено через 1 минуту и 10 секунд
Чего-то я недоперепонял...
я второй раз файл не выкладывал, это 100%. Откуда он появился?
Цитата(kami @  26.5.2009,  22:25 Найти цитируемый пост)
Присоединённый файл ( Кол-во скачиваний: 0 )



Присоединённый файл ( Кол-во скачиваний: 4 )
Присоединённый файл  Matrix.zip 2,26 Kb
PM MAIL WWW   Вверх
Keeper89
Дата 26.5.2009, 22:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58
Цитата(kami @  26.5.2009,  23:25 Найти цитируемый пост)
Непрофильное это дело - программирование.

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


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
Данкинг
Дата 26.5.2009, 22:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


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

Репутация: 11
Всего: 130
Цитата(kami @  26.5.2009,  23:23 Найти цитируемый пост)
Вместо русских комментариев идут крякозябры.

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


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
kami
Дата 26.5.2009, 22:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 22
Всего: 72
Цитата(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 
На всякий пожарный - юзаю оперу.
PM MAIL WWW   Вверх
St4vr1dze
Дата 26.5.2009, 22:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Цитата(kami @ 26.5.2009,  22:23)
З.Ы. И что это на меня нашло - готовый код давать...

Оооооеее.... Спасибо большое!! Очень благодарен!!! 
Наверно то, что скоро лето smile
PM MAIL   Вверх
Данкинг
Дата 26.5.2009, 22:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


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

Репутация: 11
Всего: 130
Цитата(kami @  26.5.2009,  23:35 Найти цитируемый пост)
Хоть кириллица, хоть латиница - сугубо одно... в смысле моно... в общем, одинаково.

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

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





--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1038 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.