Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.01.2013, 17:13   #1
Tigrenka
 
Регистрация: 24.01.2013
Сообщений: 7
По умолчанию курсовая в паскале

ребят помогите решить курсовую..

В матрице А(N,N) найти максимальный МХ и минимальный MN элемен¬ты, а также произведение P всех элементов, находящемся в прямоуголь¬нике ми-нимальных размеров, включающий оба этих элемента и сумму S элементов, находящихся вне этого прямоугольника. Замечание: в случае, если оба эле-мента находятся в одной строке/столбце, прямоугольник превращается в фрагмент этой строки/столбца.

Последний раз редактировалось Tigrenka; 29.01.2013 в 19:48.
Tigrenka вне форума Ответить с цитированием
Старый 29.01.2013, 19:53   #2
Sciv
Старожил
 
Аватар для Sciv
 
Регистрация: 16.05.2012
Сообщений: 3,211
По умолчанию

И чем же помочь-то? Матрицу задавать и вводить умеете?
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
Sciv вне форума Ответить с цитированием
Старый 29.01.2013, 20:13   #3
Tigrenka
 
Регистрация: 24.01.2013
Сообщений: 7
По умолчанию

я не умею....точнее сомневаюсь....вы напишите как должно быть а я со своим проверю!!!
Tigrenka вне форума Ответить с цитированием
Старый 29.01.2013, 20:32   #4
Sciv
Старожил
 
Аватар для Sciv
 
Регистрация: 16.05.2012
Сообщений: 3,211
По умолчанию

Цитата:
я не умею....точнее сомневаюсь....вы напишите как должно быть а я со своим проверю!!!
А давайте Вы свой выложите, а я тут проверю и исправлю
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
Sciv вне форума Ответить с цитированием
Старый 29.01.2013, 21:02   #5
Tigrenka
 
Регистрация: 24.01.2013
Сообщений: 7
По умолчанию

давайте...
Код:
programm matrica;
var a:matr; n:array [1..10]of integer;
begin
randomize;
writeln <'исходная матрица'>;
for n:=1 to 10 do read (x[n]);
begin
writeln <'введите n1'>;
if n1>= 1 then break else writeln <'введите n1'>;
writeln <'введите n2'>;
if n10<=10 then break else writeln <'введите n10'>;
p:=n1*n10;
s:=n2+n3+n4+n5+n6+n7+n8+n9;
end

Последний раз редактировалось Вадим Мошев; 24.11.2015 в 13:39.
Tigrenka вне форума Ответить с цитированием
Старый 29.01.2013, 21:07   #6
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 18,922
По умолчанию

А можно немножко пофлудить? Я вот не понимаю, где это можно образование получать, что бы такие задания на курсовой проект давали? Оно даже на лабу первокурсника не тянет
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 29.01.2013, 21:12   #7
Sciv
Старожил
 
Аватар для Sciv
 
Регистрация: 16.05.2012
Сообщений: 3,211
По умолчанию

Код оформляется кнопкой #

Матрица по условию двухмерная, а Вы задали одномерный массив

Код:
writeln <'введите n1'>;
if n1>= 1 then break else writeln <'введите n1'>;
Вы собираетесь все десять элементов так вводить? Открою тайну: в паскале есть такая вещь, как циклы (в частности цикл for i:=1 to 10 do)

Кроме того, обращение к элементу массива абсолютно неправильное. НЕ n1, a n[1] И тд.

Код:
p:=n1*n10;
s:=n2+n3+n4+n5+n6+n7+n8+n9;
Этот кусок кода вообще имеет весьма отдаленное отношение к исходной задаче.

Алгоритм примерно следующий:

1) Ввести матрицу
2) Определить значения MX и MN
3) Найти в матрице минимальный прямоугольник из элементов, содержащий в себе также и элементы, равные MX и MN
4) Найти произведение элементов этого прямоугольника
5) Найти сумму элементов матрицы, не попавших в этот прямоугольник

Собственно пункты 1,2,4,5 достаточно элементарны, поэтому вся задача упирается в решение пункта №3


Цитата:
А можно немножко пофлудить? Я вот не понимаю, где это можно образование получать, что бы такие задания на курсовой проект давали? Оно даже на лабу первокурсника не тянет
Абсолютно согласен. Но спросить постеснялся
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
Sciv вне форума Ответить с цитированием
Старый 29.01.2013, 21:13   #8
Tigrenka
 
Регистрация: 24.01.2013
Сообщений: 7
По умолчанию

может и не тянет..но суть не в этом...я последний раз в школе работала и то чуть чуть..это лет 6 назад было...поэтому прошу помощи
Tigrenka вне форума Ответить с цитированием
Старый 29.01.2013, 21:17   #9
Tigrenka
 
Регистрация: 24.01.2013
Сообщений: 7
По умолчанию

я прошу вас сделайте мне эту задачу...век буду благодарна...вопрос жизни и смерти...
Tigrenka вне форума Ответить с цитированием
Старый 29.01.2013, 21:20   #10
Sciv
Старожил
 
Аватар для Sciv
 
Регистрация: 16.05.2012
Сообщений: 3,211
По умолчанию

У Вас сейчас два варианта - продолжать эту ветку, в которой работать будете Вы, а мы только проверять, поправлять и тп - до получения работоспособной программы. Но учтите, что тут надо учиться. И судя по тому коду, который Вы, пардон, "наваяли", учиться Вам придется с нуля и долго.

Либо обратиться в раздел Фриланс, где Вам за деньги этот проект сделают, думаю, довольно быстро.

Выбор за Вами.
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
Sciv вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
курсовая skyline417 Помощь студентам 1 17.02.2012 08:39
нужна небольшая курсовая по теме "Графика в Паскале". Win't Фриланс 2 18.12.2007 07:53