zzloй гений!
28 / 28 / 2
Регистрация: 13.09.2009
Сообщений: 218
1

Навести код функции с именем MinElem для определения минимального элемента массива

27.12.2009, 16:59. Показов 539. Ответов 2
Метки нет (Все метки)

Навести код функции с именем MinElem для определения минимального элемента массива
Pascal
1
2
3
4
5
M type Mas1=array[1..10] of real; 
var 
M:mas1; 
Min:real; 
I:integer;
Использовать цикл for и только описаны переменные.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.12.2009, 16:59
Ответы с готовыми решениями:

Навести код функции c именем Exists буливского типа с формальными параметрами
треугольник, задается длинами 3-х сторон: A,b,c типа real. Навести код функции c именем Exists...

Навести фрагмент программы для определения или есть среди массива элементы со значением K
Задано следующее описание данних: type Mas1=array of byte; var K,S,I : byte; M:mas1; B :...

Процедура для определения минимального элемента матрицы
Используя данную процедуру, определить значение минимального элемента заданной матрици Q и, если...

Составить функцию для определения минимального элемента матрицы NxN
Составить функцию для определения минимального элемента матрицы NxN. используя данную функцию,...

2
localhost
58 / 58 / 9
Регистрация: 02.09.2009
Сообщений: 170
27.12.2009, 17:06 2
Цитата Сообщение от chezz Посмотреть сообщение
Навести код функции с именем...
Не пойму...те надо функцию которая ищет минимальный елемент в массиве?
0
zzloй гений!
28 / 28 / 2
Регистрация: 13.09.2009
Сообщений: 218
27.12.2009, 18:58  [ТС] 3
Цитата Сообщение от Wassago Посмотреть сообщение
Не пойму...те надо функцию которая ищет минимальный елемент в массиве?
Да, я могу сделать процедурой, а надо функцией, можешь помочь?

Добавлено через 2 минуты
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
type Mas1=array[1..10] of real;
var
m:mas1;
min:real;
i:integer;
begin
for i:=1 to 10 do
 m[i]:=random(10);
    if i=1 then
      min:=m[i];
    if m[i]<min then
      min:=m[i];
    write(m[i]:2,' ');
  writeln('Minimum ',min);
  readln;
  readln;
end.
Всегда ноль.. почему?

Добавлено через 26 минут
Правда мне еще и функцию сделать надо.. но все-равно..почему так не работает?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.12.2009, 18:58
Помогаю со студенческими работами здесь

Описать функцию min (x) для определения минимального элемента вектора
Всем доброго дня. Есть необходимость решить 4 задания. По поиску на этом форуме на три из четырех...

Рекурсивная функция. Описать функцию для определения минимального элемента вектора
помогите пожалуйста с заданием const n=...; type vector = array of real; Описать функцию min...

Напишите программу определения индексов для максимального (минимального) элемента введенной матрицы
Напишите программу определения индексов (номер строки и столбца) для максимального (минимального)...

Написать функцию для определения минимального элемента двумерного массива
Написать функцию для определения минимального элемента двумерного массива.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru