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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 31.05.2010, 21:42   #1
Masya1705
 
Аватар для Masya1705
 
Регистрация: 31.05.2010
Сообщений: 3
Печаль Функции в Pascal

Помогите пожалуйста!!!!Скоро сессия,а долги отдать все-таки надо (((

Нужно написать программу содержащую функцию нахождения максимального элемента открытого массива.
Спасибо
Masya1705 вне форума Ответить с цитированием
Старый 31.05.2010, 21:54   #2
ROMA2PVT
ТАМБОВСКИЙ ВОЛК.
Участник клуба
 
Аватар для ROMA2PVT
 
Регистрация: 16.03.2010
Сообщений: 1,354
По умолчанию

Код:
function MaxEl(Var kl:mas;k:integer):integer;
begin
max:=kl[1];
imax:=1;
for i:=1 to k do
if kl[i]>max then
begin
max:=kl[i];
imax:=i;
end;
end;
Поторопился.Забыл спросить.А где ваши наработки.
にんじゃ

Последний раз редактировалось ROMA2PVT; 31.05.2010 в 21:58.
ROMA2PVT вне форума Ответить с цитированием
Старый 01.06.2010, 19:54   #3
Masya1705
 
Аватар для Masya1705
 
Регистрация: 31.05.2010
Сообщений: 3
По умолчанию

Предоставление собственных наработок - обязательное условие?)))
Учтем в следующий раз
Большое спасибо за программу ))))
Masya1705 вне форума Ответить с цитированием
Старый 01.06.2010, 19:56   #4
ROMA2PVT
ТАМБОВСКИЙ ВОЛК.
Участник клуба
 
Аватар для ROMA2PVT
 
Регистрация: 16.03.2010
Сообщений: 1,354
По умолчанию

Цитата:
Предоставление собственных наработок - обязательное условие?)))
Да.Обязательное.Да не за что.
にんじゃ
ROMA2PVT вне форума Ответить с цитированием
Старый 01.06.2010, 21:14   #5
advokat807
 
Регистрация: 23.05.2010
Сообщений: 3
По умолчанию помогите с задачей на функции

пожаалуйста
Изображения
Тип файла: jpg 6лаб99999.JPG (57.9 Кб, 123 просмотров)
advokat807 вне форума Ответить с цитированием
Старый 01.06.2010, 21:23   #6
ROMA2PVT
ТАМБОВСКИЙ ВОЛК.
Участник клуба
 
Аватар для ROMA2PVT
 
Регистрация: 16.03.2010
Сообщений: 1,354
По умолчанию

Цитата:
пожаалуйста
помочь не значит написать за вас.Алгоритмов нахождения мин и макс в нете полно и вывода значений функций тоже достаточно.Ищите,изучайте и будет вам счастье.
にんじゃ
ROMA2PVT вне форума Ответить с цитированием
Старый 01.06.2010, 21:28   #7
advokat807
 
Регистрация: 23.05.2010
Сообщений: 3
По умолчанию

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

procedure minim;
var
min: integer;
begin
min:=mas[i];
for i:=1 to n do
if mas[i]<min then min:=mas[i];
writeln('Минимальный элемент массива: ',min);
end;
advokat807 вне форума Ответить с цитированием
Старый 01.06.2010, 21:34   #8
ROMA2PVT
ТАМБОВСКИЙ ВОЛК.
Участник клуба
 
Аватар для ROMA2PVT
 
Регистрация: 16.03.2010
Сообщений: 1,354
По умолчанию

так гляньте выше функцию нахождения max элемента.Заменяете знак с > на < и будет минимум.
にんじゃ
ROMA2PVT вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Процедуры и функции (Pascal) P1RoG Помощь студентам 2 29.04.2010 03:44
Pascal. Функции. HD-boy Помощь студентам 2 22.12.2009 12:00
Pascal-процедуры и функции xxBOBAHxx Помощь студентам 3 18.11.2008 14:30
Функции [Pascal]. sergey31 Помощь студентам 4 31.05.2008 22:11