Автор: Лапочка 17.06.2010 18:02
1) Найти минимальные элементы и номера строк и столбцов, в которых они расположены, для матриц А(5,8) и B(7,4).(решить с использованием процедуры)
2) Найти произведение последних N отрицательных элементов массива . Выполнить для двух массивов.(с использованием подпрограмм-функций)
3) Из списка символов S1,S2...Sn получить список Sm+1 ,Sm+2 ...Sn ,S1,...Sm (m<n) .(на тему организация списков там ссылочные переменные используются с ^ таким значком)
заранее, спасибо!
Автор: Ozzя 17.06.2010 18:51
Цитата
заранее, спасибо!
заранее, пожалуйста.
А, таки хотелось бы увидеть Ваши попытки написать программу(ы)
хоть чуть-чуть поднапрячь Ваш блондинистый мозг?
Автор: Лапочка 17.06.2010 19:03
Цитата(Ozzя @ 17.06.2010 15:51)
заранее, пожалуйста.
А, таки хотелось бы увидеть Ваши попытки написать программу(ы) хоть чуть-чуть поднапрячь Ваш блондинистый мозг?
во-первых, я не блондинка
во-вторых, я не себе решаю, а другому человеку пытаюсь помочь
и в-третьих, вот первая задача, но она с ошибками, кажется
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я 17.06.2010 19:07
Цитата
во-первых, я не блондинка
Огорчает ;)
Цитата
другому человеку пытаюсь помочь
Радует ;)
Цитата
она с ошибками
Это не программа, а процедура из нее. Нужен полный текст.
PS: Пользуйтесь тэгами code!
Автор: Лапочка 17.06.2010 19:13
Цитата(Ozzя @ 17.06.2010 16:07)
Огорчает ;)
почему огорчает то, что я не блондинка?
Цитата(Ozzя @ 17.06.2010 16:07)
Это не программа, а процедура из нее. Нужен полный текст.
PS: Пользуйтесь тэгами code!
это как понять?
Автор: Ozzя 17.06.2010 19:21
Цитата
почему огорчает то, что я не блондинка?
Это шутка.
Цитата
это как понять?
Так и понять. НЕТ полного текста программы.
Автор: Лапочка 17.06.2010 19:26
Цитата(Ozzя @ 17.06.2010 16:21)
Так и понять. НЕТ полного текста программы.
какое мне условие дали, такое я и написала
а вообще правильное решение первой задачи? и что мне делать со второй и третьей задачами?
Автор: Ozzя 17.06.2010 19:32
Цитата
а вообще правильное решение первой задачи?
А оно есть?
Вы поймите правильно. Кроме оной процедуры, необходимы еще:
1. заполнение матрицы
2. вызов сей процедуры
3. вывод результатов
Их (выше) - нет.
То бишь, человеку, коему вздумается проверить правильность сией программы, придется всё это набирать самому.
Оно нам надо? (С)
Автор: Лапочка 17.06.2010 19:37
Цитата(Ozzя @ 17.06.2010 16:32)
А оно есть?
Вы поймите правильно. Кроме оной процедуры, необходимы еще:
1. заполнение матрицы
2. вызов сей процедуры
3. вывод результатов
Их (выше) - нет.
То бишь, человеку, коему вздумается проверить правильность сией программы, придется всё это набирать самому.
Оно нам надо? (С)
я никогда не работала с матрицами и массивами, так что даже не знаю что писать
помогите, пожалуйста, если можете!
Автор: Ozzя 17.06.2010 19:52
Цитата
я никогда не работала с матрицами и массивами, так что даже не знаю что писать помогите, пожалуйста, если можете!
Можно. Заполнение и вывод матриц есть в http://forum.pascal.net.ru/index.php?showforum=18
Автор: Лапочка 17.06.2010 20:01
Цитата(Ozzя @ 17.06.2010 16:52)
Можно. Заполнение и вывод матриц есть в http://forum.pascal.net.ru/index.php?showforum=18
спасибо!
Автор: Lapp 18.06.2010 2:32
М |
|
Лапочка, прочти, пожалуйста, Правила Форума (особенно п.4) и правила раздела Задачи (особенно пп.1 и 6) и постарайся их не нарушать..
Переименуй тему, плз
|