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

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

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

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 19.05.2015, 09:22   #1
Ksesha
 
Регистрация: 14.05.2015
Сообщений: 7
По умолчанию Паскаль. Определить минимальный элемент массива X. Оформить в виде процедуры

Определить минимальный элемент массива X i (i = 1…10) и его индекс,
оформить в виде процедуры. В основной программе организовать ввод и вывод массива, вывод минимального элемента и его индекса

помогите пожалуйста... буду очень благодарен
Ksesha вне форума Ответить с цитированием
Старый 19.05.2015, 09:38   #2
type_Oleg
Старожил
 
Аватар для type_Oleg
 
Регистрация: 02.03.2008
Сообщений: 2,499
По умолчанию

Код:
program Ksesha;

const NN=10;

type tArr=array[1..NN] of Real;

procedure maxXindexX(ar:tArr;var xmax:Real;var indX:Integer);
begin
// ..... и т.д. 
end;

var massiv:tArr;
    max:Real;
    num:Integer;
begin
// .... ввод 
   maxXindexX(massiv,max,num);
// ... вывод
end.
Остальное сам допиши.
type_Oleg вне форума Ответить с цитированием
Старый 19.05.2015, 09:42   #3
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

Цитата:
Код:
maxXindexX
а чего max ? вроде логично min ?

и возвращать достаточно одно значение - индекс минимального.
По индексу минимальное значение показать нет проблем.
Это не принципиально, но на одну переменную потребуется меньше.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 19.05.2015, 09:43   #4
Ksesha
 
Регистрация: 14.05.2015
Сообщений: 7
По умолчанию

Цитата:
Сообщение от type_Oleg Посмотреть сообщение
Код:
program Ksesha;

const NN=10;

type tArr=array[1..NN] of Real;

procedure maxXindexX(ar:tArr;var xmax:Real;var indX:Integer);
begin
// ..... и т.д. 
end;

var massiv:tArr;
    max:Real;
    num:Integer;
begin
// .... ввод 
   maxXindexX(massiv,max,num);
// ... вывод
end.
Остальное сам допиши.
проблема в том, что я не знаю что там надо дописать...
Ksesha вне форума Ответить с цитированием
Старый 19.05.2015, 09:59   #5
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

Цитата:
Сообщение от Ksesha Посмотреть сообщение
проблема в том, что я не знаю что там надо дописать...
Это нужно трактовать как - "я ничего не знаю и ЗНАТЬ НЕ ХОЧУ".
Так?
Кому учить Паскаль нужно нам или Вам?
Может стоит приложить усилия и разобраться?

Или хочется полностью готовый код, а вот учиться не хочется?
Serge_Bliznykov вне форума Ответить с цитированием
Старый 19.05.2015, 10:07   #6
Ksesha
 
Регистрация: 14.05.2015
Сообщений: 7
По умолчанию

разбиралась и разбираюсь.
именно с этой лабой ни чего сделать не могу, т к просто не могу понять , поэтому и попросила о помощи
Ksesha вне форума Ответить с цитированием
Старый 19.05.2015, 10:20   #7
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

Цитата:
именно с этой лабой ни чего сделать не могу, т к просто не могу понять
и есть желание разобраться?

тогда.
1) Вы вообще что такое массивы знаете?
Сможете массив описать?

2) у Вас есть заготовка программы, которую дали в пост #2
там всё понятно?
Если не понятно, то что именно?

3) циклы проходили?
Тогда напишите код с циклом FOR для заполнения массива в переменной Massiv (из пост #2) (для простоты пусть программа запрашивает десять чисел у пользователя и вводит их в массив)

будем изучать Паскаль
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Определить во сколько раз максимальный элемент массива превышает минимальный danil663 Паскаль, Turbo Pascal, PascalABC.NET 2 21.06.2013 09:47
1)Оформить сортировку в виде процедуры. ---Demon--- Паскаль, Turbo Pascal, PascalABC.NET 0 25.05.2013 16:12
Минимальный элемент массива Артемкка Помощь студентам 3 19.12.2011 01:18
Для файла определить максимальный и минимальный элемент zheka89 Паскаль, Turbo Pascal, PascalABC.NET 0 27.04.2010 09:46
оформить в виде процедуры. Riza Помощь студентам 1 19.03.2010 15:31