Помощь - Поиск - Пользователи - Календарь
Полная версия: 3 задачи на языке Pascal
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Лапочка
1) Найти минимальные элементы и номера строк и столбцов, в которых они расположены, для матриц А(5,8) и B(7,4).(решить с использованием процедуры)

2) Найти произведение последних N отрицательных элементов массива . Выполнить для двух массивов.(с использованием подпрограмм-функций)

3) Из списка символов S1,S2...Sn получить список Sm+1 ,Sm+2 ...Sn ,S1,...Sm (m<n) .(на тему организация списков там ссылочные переменные используются с ^ таким значком)

заранее, спасибо!
Ozzя
Цитата
заранее, спасибо!

заранее, пожалуйста.
А, таки хотелось бы увидеть Ваши попытки написать программу(ы) хоть чуть-чуть поднапрячь Ваш блондинистый мозг?
Лапочка
Цитата(Ozzя @ 17.06.2010 15:51) *

заранее, пожалуйста.
А, таки хотелось бы увидеть Ваши попытки написать программу(ы) хоть чуть-чуть поднапрячь Ваш блондинистый мозг?

во-первых, я не блондинка dry.gif во-вторых, я не себе решаю, а другому человеку пытаюсь помочь mad.gif и в-третьих, вот первая задача, но она с ошибками, кажется
const
Max = 10; {Максимальный размер матрицы}
type
TMatrix = array[1..Max,1..Max] of integer; {Описание типа матрицы}

procedure FindMin(M:TMatrix; Size:byte; var MinRow, MinCol: byte; MinItem: integer);
{Поиск минимума.
Входные данные:
M - матрица.
Size - фактический размер матрицы.
Выходные данные:
MinRow, MinCol - координаты минимума.
MinItem - значение минимума.}
var
i,j:byte;
begin
{Начальные координаты}
MinRow:=1;
MinCol:=1;
{Просмотр матрицы}
for i:=1 to Size do
for j:=1 to Size do
if (M[i,j]<M[MinRow, MinCol]) then {Если меньше минимального}
begin {Сохраняем координаты}
MinRow:=i;
MinCol:=j;
end;
MinItem:=M[MinRow, MinCol]; {Значение минимального элемента.}
{Результаты будут возвращены через параметры-переменные (выходные параметры)}
end;
Ozzя
Цитата
во-первых, я не блондинка

Огорчает ;)
Цитата
другому человеку пытаюсь помочь

Радует ;)
Цитата
она с ошибками

Это не программа, а процедура из нее. Нужен полный текст.
PS: Пользуйтесь тэгами code!
Лапочка
Цитата(Ozzя @ 17.06.2010 16:07) *

Огорчает ;)

почему огорчает то, что я не блондинка? unsure.gif
Цитата(Ozzя @ 17.06.2010 16:07) *

Это не программа, а процедура из нее. Нужен полный текст.
PS: Пользуйтесь тэгами code!

это как понять?
Ozzя
Цитата
почему огорчает то, что я не блондинка?

Это шутка.
Цитата
это как понять?

Так и понять. НЕТ полного текста программы.
Лапочка
Цитата(Ozzя @ 17.06.2010 16:21) *

Так и понять. НЕТ полного текста программы.

какое мне условие дали, такое я и написала unsure.gif
а вообще правильное решение первой задачи? и что мне делать со второй и третьей задачами?
Ozzя
Цитата
а вообще правильное решение первой задачи?

А оно есть?
Вы поймите правильно. Кроме оной процедуры, необходимы еще:
1. заполнение матрицы
2. вызов сей процедуры
3. вывод результатов
Их (выше) - нет.
То бишь, человеку, коему вздумается проверить правильность сией программы, придется всё это набирать самому.
Оно нам надо? (С)
Лапочка
Цитата(Ozzя @ 17.06.2010 16:32) *

А оно есть?
Вы поймите правильно. Кроме оной процедуры, необходимы еще:
1. заполнение матрицы
2. вызов сей процедуры
3. вывод результатов
Их (выше) - нет.
То бишь, человеку, коему вздумается проверить правильность сией программы, придется всё это набирать самому.
Оно нам надо? (С)

я никогда не работала с матрицами и массивами, так что даже не знаю что писать mega_chok.gif помогите, пожалуйста, если можете!
Ozzя
Цитата
я никогда не работала с матрицами и массивами, так что даже не знаю что писать помогите, пожалуйста, если можете!

Можно. Заполнение и вывод матриц есть в FAQ
Лапочка
Цитата(Ozzя @ 17.06.2010 16:52) *

Можно. Заполнение и вывод матриц есть в FAQ

спасибо!
Lapp
М
Лапочка, прочти, пожалуйста, Правила Форума (особенно п.4) и правила раздела Задачи (особенно пп.1 и 6) и постарайся их не нарушать..

Переименуй тему, плз

Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.